%@LANGUAGE="VBSCRIPT"%> <% Dim rsVehicles__MMColParam rsVehicles__MMColParam = "y" if(Request("MM_EmptyValue") <> "") then rsVehicles__MMColParam = Request("MM_EmptyValue") %> <% set rsVehicles = Server.CreateObject("ADODB.Recordset") rsVehicles.ActiveConnection = "dsn=legend" rsVehicles.Source = "SELECT * FROM Vehicle_Inventory WHERE includeonSite = '" + Replace(rsVehicles__MMColParam, "'", "''") + "'" rsVehicles.CursorType = 0 rsVehicles.CursorLocation = 2 rsVehicles.LockType = 3 rsVehicles.Open rsVehicles_numRows = 0 %>