<%@ LANGUAGE="VBSCRIPT" %> <% Call Header() Call LeftNav() Call MainContent() Call Footer() %> <%Function MainContent() SQL = "Select * from Specials where DateFrom <= # " & formatDateTime(now,2) & "# AND DateTo >= # " & formatDateTime(now,2) & " # " ' response.write(SQL) i=0 '****Open connection object if Access Database Set objConn = Server.CreateObject("ADODB.Connection") Set objRec = Server.CreateObject("ADODB.Recordset") objConn.Open "DSN=superrepair;UID=super;pwd=rpr101spr" '****Open recordset object set objRec = objConn.Execute(SQL) %>

Service

<%While not objRec.EOF%>

Good from: <%=objRec("DateFrom")%> - <%=objRec("DateTo")%>

<%=objRec("Title")%>
<%=objRec("Details")%>

Print this out and bring in to receive your discount.

<%i=i+1 objRec.Movenext wend If i = 0 Then%> No Specials this week. <%End If '***Close database connection to save resources. objRec.Close objRec.ActiveConnection = Nothing Set objRec = Nothing objConn.close %>

<%End Function%>