The Old Nick Cottage

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsMonth Dim rsMonth_numRows Set rsMonth = Server.CreateObject("ADODB.Recordset") rsMonth.ActiveConnection = MM_pkson_STRING rsMonth.Source = "SELECT * FROM month ORDER BY MonthID ASC" rsMonth.CursorType = 0 rsMonth.CursorLocation = 2 rsMonth.LockType = 1 rsMonth.Open() rsMonth_numRows = 0 %> <% Dim rsMonth2 Dim rsMonth2_numRows Set rsMonth2 = Server.CreateObject("ADODB.Recordset") rsMonth2.ActiveConnection = MM_pkson_STRING rsMonth2.Source = "SELECT * FROM month WHERE view=True ORDER BY MonthID ASC" rsMonth2.CursorType = 0 rsMonth2.CursorLocation = 2 rsMonth2.LockType = 1 rsMonth2.Open() rsMonth2_numRows = 0 %> <% Dim rs1__MMColParam rs1__MMColParam = "1" If (Request.Form("Month") <> "") Then rs1__MMColParam = Request.Form("Month") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_pkson_STRING rs1.Source = "SELECT * FROM ViewAvail WHERE MonthID = " + Replace(rs1__MMColParam, "'", "''") + " AND YearID=6" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs1_numRows = rs1_numRows + Repeat1__numRows %> The Old Nick Cottage

<% rsMonth.Close() Set rsMonth = Nothing %> <% rsMonth2.Close() Set rsMonth2 = Nothing %> <% rs1.Close() Set rs1 = Nothing %>