<% ' databaseopen skall öppnas dim conn, rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "pink" set rs = server.createobject("ADODB.RecordSet") %> THE PINKDRESS.COM
[bio] [disco] [lyrics] [visual] [news] [various] [fans] [trading] [links]



<% 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 %>