<% 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 journals") Response.Write("
") 'WHILE rsRecords.EOF = FALSE %> <% 'rsRecords.MoveNext 'WEND Response.Write("

	<%=rsRecords(1)%>
	English Hindi Punjabi

") rsRecords.Close Conn.Close %>