% Option Explicit %> <% Session.LCID = 1040 Dim Conn, RsCateg, s_sql Dim v_trova, v_ragsoc v_trova = Request.Form("f_categ") v_ragsoc = Trim(Request.Form("f_ragsoc")) If Request.Form("fCerca.x") > 0 or Request.Form("fCerca.y") > 0 or Request.ServerVariables("REQUEST_METHOD") = "POST" then Session("v_page_eserc") = 1 Session("v_where_eserc") = "" Session("v_trova_eserc") = v_trova Session("v_trova_ragsoc") = v_ragsoc if v_trova <> "Tutti" then Session("v_where_eserc") = Session("v_where_eserc") & " AND Esercenti.id_categ = '" & v_trova & "'" 'un valore qualsiasi giusto per indicare alla pagina che c'è un filtro Session("v_filter_eserc") = "a" Else Session("v_filter_eserc") = "" end if If Len(Trim(v_ragsoc)) > 0 then v_ragsoc = Replace(v_ragsoc,"'","''") Session("v_where_eserc") = Session("v_where_eserc") & " AND RagSoc like '%" & v_ragsoc & "%'" End If Response.Write("") End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_Esercenti %>