<%
On Error Resume Next
Dim Conn, rsRecords, ctr
Dim Date, Place, Sat_Morning, Sat_Evening, Init
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("rohitpm")
Set rsRecords = Conn.Execute("Select * from Schedule")
ctr=0
Response.Write("
")
Response.Write(" | Date | ")
Response.Write(" Place | ")
Response.Write(" Morning | ")
Response.Write(" Evening | ")
Response.Write(" Initiation |
")
WHILE rsRecords.EOF = FALSE
if ctr =0 then
Response.Write("")
ctr=1
else
Response.Write("
")
ctr=0
end if
Response.Write("| "&rsRecords(0)&" | ")
Response.Write(""&rsRecords(1)&" | ")
Response.Write(""&rsRecords(2)&" | ")
Response.Write(""&rsRecords(3)&" | ")
Response.Write(""&rsRecords(4)&" | ")
Response.Write("
")
rsRecords.MoveNext
WEND
Response.Write("
")
rsRecords.Close
Conn.Close
%>