<%
rs.OPEN "Select * from dress order by id desc", conn, 3, 1
dim gra
gra = "#F9F9F9"
do until rs.EOF
response.Write "Nick
Homepage
Comment
Country
" & rs.FIELDS("nick") & " "
response.Write "" & rs.FIELDS("homepage") & " "
response.Write rs.FIELDS("comment") & " "
response.Write rs.FIELDS("country") & " "
rs.movenext
if gra = "#F9F9F9" then
gra = "#F0F0F0"
else
gra = "#F9F9F9"
end if
loop
rs.CLOSE
%>