<% Dim oConn, filePath vbqt = chr(34) varYearSelect = Request.Form("frmYearSelect") 'response.Write("1-"&varYearSelect&"
") If varYearSelect = "" Then 'If session("sesYearSelect") = "" Then varYearSelect = (year(now())) 'session("sesYearSelect") = varYearSelect 'response.Write("2-"&varYearSelect&"
") 'Else 'varYearSelect = session("sesYearSelect") 'response.Write("3-"&varYearSelect&"
") 'End If 'Else 'session("sesYearSelect") = varYearSelect 'response.Write("4-"&varYearSelect&"
") End If %>
Select Year: 
<% i=1 varBGcolor = "#ccffcc" Set oConn=Server.CreateObject("ADODB.Connection") filePath = Server.MapPath("access_db/shadowridgedb.mdb") oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath) Set recordSet=Server.CreateObject("ADODB.Recordset") recordSet.Open "SELECT * FROM tbl_calschedule WHERE dbDate LIKE '%"&varYearSelect&"%' ORDER by dbDate", oConn Do While recordSet.EOF = FALSE varID=recordSet("ID") varDate=recordSet("dbDate") varTime=recordSet("dbTime") varEvent=recordSet("dbEvent") response.write("") response.write("") If varTime<>"" Then response.write("") Else response.write("") End If response.write("") response.write("") recordSet.MoveNext i=i+1 k = i MOD 2 If k = 0 Then varBGcolor = "#99cc99" Else varBGcolor = "#ccffcc" End If Loop recordSet.Close oConn.Close %>
Date Time Event
"&varDate&""&varTime&"TBA"&varEvent&"