Our opening time are : -



<% dim adoCon dim rs dim strSQL Set adoCon =Server.CreateObject("ADODB.Connection") adoCon.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("timetable.mdb") strSQL = "SELECT * FROM OpeningTime" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, adoCon %>
<% Do while not rs.EOF%> <% rs.MoveNext Loop%>
Days of Week Opening Time
<%=rs("DaysOfWeek")%> <%=rs("OpeningTime")%>
<% rs.Close Set rs = Nothing adoCon.Close Set adoCon = Nothing %>