<%@LANGUAGE="VBSCRIPT"%>
<%
Dim search__MMColParam
search__MMColParam = "1"
If (Request.Form("TYPE") <> "") Then
search__MMColParam = Request.Form("TYPE")
End If
%>
<%
Dim search
Dim search_numRows
Set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_mannering_STRING
search.Source = "SELECT * FROM data WHERE TYPE LIKE '%" + Replace(search__MMColParam, "'", "''") + "%'"
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 1
search.Open()
search_numRows = 0
%>
search