caja de buscador con varios valores

[JuanRAPerez]

yo decía algo así:

<%
Dim fitxa__MMColParam
fitxa__MMColParam = "1"
If (Request.QueryString("sector") <> "") Then
fitxa__MMColParam = Request.QueryString("sector")
End If
%>

<%
Dim fitxa__MMColParam2
fitxa__MMColParam2 = "2"
If (Request.QueryString("promocio") <> "") Then
fitxa__MMColParam2 = Request.QueryString("promocion")
End If
%>

<%
Dim fitxa
Dim fitxa_cmd
Dim fitxa_numRows

Set fitxa_cmd = Server.CreateObject ("ADODB.Command")
fitxa_cmd.ActiveConnection = MM_emocity_STRING

if (Request.QueryString("promocio") = "Ambos" then
fitxa_cmd.CommandText = "SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento in ('regalo','descuento') ORDER BY nom ASC"
fitxa_cmd.Prepared = true
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param1", 200, 1, 255, fitxa__MMColParam) ' adVarChar
else
fitxa_cmd.CommandText = "SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento = ? ORDER BY nom ASC"
fitxa_cmd.Prepared = true
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param1", 200, 1, 255, fitxa__MMColParam) ' adVarChar
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param2", 200, 1, 255, fitxa__MMColParam2) ' adVarChar
end if


Set fitxa = fitxa_cmd.Execute
fitxa_numRows = 0
%>

no se pero proba

suerte