% ' databaseopen skall öppnas dim conn, rs Set conn = Server.CreateObject("ADODB.Connection") conn.Open "tradesell" set rs = server.createobject("ADODB.RecordSet") %>
<%
rs.OPEN "Select * from tradesell order by id desc", conn, 3, 1
dim gra
gra = "#F9F9F9"
do until rs.EOF
response.Write "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") & " "
rs.movenext
if gra = "#F9F9F9" then
gra = "#F0F0F0"
else
gra = "#F9F9F9"
end if
loop
rs.CLOSE
%>