<%
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open "DBQ="& Server.Mappath("genel.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
Set Rs = Server.Createobject("Adodb.Recordset")
rSQL = "Select * from Verilerim"
Rs.Open rSQL, Conn, 1, 3
%>
<html>
<head>
<title>Renkli Tablo</title>
</head>
<body>
<center>
<table border = "1" bordercolorlight = "silver" bordercolordark = "white" cellspacing = "0">
<%
i = 0
Do while Not Rs.Eof
if i mod 2 then
bgcolor = "#C0C0C0"
else
bgcolor = "#E9E8FF"
end if
%>
<tr bgcolor='<%=bgcolor%>'>
<td>Renkli Tablo1</td>
<td>Renkli Tablo2</td>
</tr>
<%
i = i + 1
Rs.MoveNext
Loop
%>
</table>