<html>
<head>
<meta http-equiv = "Refresh" content="3">
<style>
#lbhead {background-color: beige}
#lghead {background-color: powderblue}
</style>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=chat.dsn"
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From IdeaTime Order By id Desc", Conn
%>
<table border="0" width="700">
<%
while not Rs.eof
%>
<tr <% If Rs("id") Mod 2 = 0 Then %> id="lbhead" <% Else %> id="lghead" <% End If %>
>
<td width="155" height="3">
<p><%=Rs("Idea")%></p>
</td>
</tr>
<%
Rs.movenext
Wend
Rs.close
set Rs=nothing
Conn.close
Set Conn=nothing
%>
</body>
</html>
