---

Please Select a month and a year and click submit below to view Inspections for the month specified.
Select a Month 1 2 3 4 5 6 7 8 9 10 11 12	Select a Year 2004 2005 2006 2007 2008 2009 2010 2011

<% 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 Facility	Address	Date of Inspection	Non Criticals	Criticals	Remarks
" & myrs("NAME_OF_FACILITY") & "	" & myrs("STREET_ADDRESS") & "	" & myrs("DATE_OF_INSPECTION")& "	" & myrs("NON_CRITICALS") & "	" & myrs("CRITICALS") & "	" & myrs("REMARKS") & "

") end if %>