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



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