Dim Recordset1__MMColParam
Recordset1__MMColParam = "advanced"
If (Request.Form("search") <> "") Then
Recordset1__MMColParam = Request.Form("search")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_linkmicrotek_STRING
Recordset1_cmd.CommandText = "SELECT Supplier, Product_Type,
Part_No, Frequency, Connector_Type, Average_Power_Handling,
Switch_Type, Package, Gain, Pout, P1dB_Output, Output_IP3,
Attenuation, Reverse_Voltage, name FROM Category WHERE Product_Type
Like ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append
Recordset1_cmd.CreateParameter("param1", 5, 1, 1073741823, "%" +
Recordset1__MMColParam + "%") ' adDouble
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
This is the results page from a keyword search, the form
variable is called search. As soon as i add the sql to say if like
MMColParam thats when it does not work.
Please help
John