<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("databas.mdb") &";"

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * From TABELL", Connect, 1, 3
%>

<%
Do Until RecSet.EOF

' Detta är koden som kollar färgerna

nummer = nummer + 1
If nummer Mod 2 = 0 Then
color = "#FFFF00"
Else
color = "#FFFFFF"
End If

' här slutar koden som kollar färger
%>



<%
RecSet.MoveNext
Loop
%>

<%=RecSet("KOLUMN NAMN")%>

<%
RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%>