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
%>
| Days of Week |
Opening Time |
<%
Do while not rs.EOF%>
| <%=rs("DaysOfWeek")%> |
<%=rs("OpeningTime")%> |
<%
rs.MoveNext
Loop%>
<%
rs.Close
Set rs = Nothing
adoCon.Close
Set adoCon = Nothing
%>