Restaurant Inspections By Date

Please Select a month and a year and click submit below to view Inspections for the month specified.
Select a Month
Select a Year
<% Dim conn, myrs, monthins, yearins, submit, rcount set conn=Server.CreateObject("ADODB.Connection") set myrs=Server.CreateObject("ADODB.Recordset") submit=request.QueryString("submit") conn.Open ("DSN=cabellrestinspect;UID=;PWD=;") if submit="true" then monthins=Request.Form("month") yearins=Request.Form("year") datestring = monthins & "/%/" & yearins myrs.open "SELECT * FROM InternetQuery WHERE InternetQuery.DATE_OF_INSPECTION Like '" & datestring & "'",conn,3,3 rcount = myrs.recordcount if rcount = 0 then Response.Write ("No records found. Please try again.") Else myrs.movefirst Response.Write ("") Do While Not myrs.eof Response.Write ("") myrs.movenext loop end if myrs.close conn.close Response.Write ("
Name of FacilityAddressDate of InspectionNon CriticalsCriticalsRemarks
" & myrs("NAME_OF_FACILITY") & "" & myrs("STREET_ADDRESS") & "" & myrs("DATE_OF_INSPECTION")& "" & myrs("NON_CRITICALS") & "" & myrs("CRITICALS") & "" & myrs("REMARKS") & "
") end if %>