%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Dim rstLooking__MMColParam rstLooking__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then rstLooking__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rstLooking Dim rstLooking_numRows Set rstLooking = Server.CreateObject("ADODB.Recordset") rstLooking.ActiveConnection = MM_ICWEB_STRING rstLooking.Source = "SELECT * FROM LookingFor WHERE Active = " + Replace(rstLooking__MMColParam, "'", "''") + "" rstLooking.CursorType = 0 rstLooking.CursorLocation = 2 rstLooking.LockType = 1 rstLooking.Open() rstLooking_numRows = 0 %>