%@LANGUAGE="VBSCRIPT"%> <% Dim templeCafe__MMColParam templeCafe__MMColParam = "1" If (Request.QueryString("IDNumber") <> "") Then templeCafe__MMColParam = Request.QueryString("IDNumber") End If %> <% Dim templeCafe Dim templeCafe_numRows Set templeCafe = Server.CreateObject("ADODB.Recordset") templeCafe.ActiveConnection = MM_gallery_STRING templeCafe.Source = "SELECT eventDescription, menuDescription, IDNumber FROM mainTable WHERE IDNumber = " + Replace(templeCafe__MMColParam, "'", "''") + "" templeCafe.CursorType = 0 templeCafe.CursorLocation = 2 templeCafe.LockType = 1 templeCafe.Open() templeCafe_numRows = 0 %>