<% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Initialize common variables x_Comune = Null: ox_Comune = Null: z_Comune = Null y_Comune = Null: w_Comune = Null x_Provincia = Null: ox_Provincia = Null: z_Provincia = Null x_Zona_climatica = Null: ox_Zona_climatica = Null: z_Zona_climatica = Null x_Gradi_Giorno = Null: ox_Gradi_Giorno = Null: z_Gradi_Giorno = Null x_Altezza = Null: ox_Altezza = Null: z_Altezza = Null x_Valori_U_serramenti_prodotto = Null: ox_Valori_U_serramenti_prodotto = Null: z_Valori_U_serramenti_prodotto = Null x_Valori_U_serramenti_valore_U_dal_12F12F2006 = Null: ox_Valori_U_serramenti_valore_U_dal_12F12F2006 = Null: z_Valori_U_serramenti_valore_U_dal_12F12F2006 = Null y_Valori_U_serramenti_valore_U_dal_12F12F2006 = Null: w_Valori_U_serramenti_valore_U_dal_12F12F2006 = Null x_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Null: ox_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Null: z_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Null y_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Null: w_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Null x_Valori_U_vetrate_prodotto = Null: ox_Valori_U_vetrate_prodotto = Null: z_Valori_U_vetrate_prodotto = Null x_Valori_U_vetrate_valore_U_dal_12F12F2006 = Null: ox_Valori_U_vetrate_valore_U_dal_12F12F2006 = Null: z_Valori_U_vetrate_valore_U_dal_12F12F2006 = Null y_Valori_U_vetrate_valore_U_dal_12F12F2006 = Null: w_Valori_U_vetrate_valore_U_dal_12F12F2006 = Null x_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Null: ox_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Null: z_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Null y_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Null: w_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Null %> <% Response.Buffer = True ' Get action sAction = Request.Form("a_search") Select Case sAction Case "S": ' Get Search Criteria ' Build search string for advanced search, remove blank field sSrchStr = "" ' Field Comune x_Comune = Request.Form("x_Comune") z_Comune = Request.Form("z_Comune") v_Comune = Request.Form("v_Comune") y_Comune = Request.Form("y_Comune") w_Comune = Request.Form("w_Comune") sSrchWrk = "" If x_Comune <> "" Then sSrchWrk = sSrchWrk & "x_Comune=" & Server.URLEncode(x_Comune) sSrchWrk = sSrchWrk & "&z_Comune=" & Server.URLEncode(z_Comune) End If If y_Comune <> "" Then If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&" sSrchWrk = sSrchWrk & "y_Comune=" & Server.URLEncode(y_Comune) sSrchWrk = sSrchWrk & "&w_Comune=" & Server.URLEncode(w_Comune) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk sSrchStr = sSrchStr & "&v_Comune=" & Server.URLEncode(v_Comune) End If Session(ewSessionTblAdvSrch & "_v_Comune") = v_Comune ' Save AND/OR condition ' Field Provincia x_Provincia = Request.Form("x_Provincia") z_Provincia = Request.Form("z_Provincia") sSrchWrk = "" If x_Provincia <> "" Then sSrchWrk = sSrchWrk & "x_Provincia=" & Server.URLEncode(x_Provincia) sSrchWrk = sSrchWrk & "&z_Provincia=" & Server.URLEncode(z_Provincia) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk End If ' Field Zona climatica x_Zona_climatica = Request.Form("x_Zona_climatica") z_Zona_climatica = Request.Form("z_Zona_climatica") sSrchWrk = "" If x_Zona_climatica <> "" Then sSrchWrk = sSrchWrk & "x_Zona_climatica=" & Server.URLEncode(x_Zona_climatica) sSrchWrk = sSrchWrk & "&z_Zona_climatica=" & Server.URLEncode(z_Zona_climatica) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk End If ' Field Gradi Giorno x_Gradi_Giorno = Request.Form("x_Gradi_Giorno") z_Gradi_Giorno = Request.Form("z_Gradi_Giorno") sSrchWrk = "" If x_Gradi_Giorno <> "" Then sSrchWrk = sSrchWrk & "x_Gradi_Giorno=" & Server.URLEncode(x_Gradi_Giorno) sSrchWrk = sSrchWrk & "&z_Gradi_Giorno=" & Server.URLEncode(z_Gradi_Giorno) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk End If ' Field Altezza x_Altezza = Request.Form("x_Altezza") z_Altezza = Request.Form("z_Altezza") sSrchWrk = "" If x_Altezza <> "" Then sSrchWrk = sSrchWrk & "x_Altezza=" & Server.URLEncode(x_Altezza) sSrchWrk = sSrchWrk & "&z_Altezza=" & Server.URLEncode(z_Altezza) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk End If ' Field Valori U serramenti_valore U dal 1/1/2006 x_Valori_U_serramenti_valore_U_dal_12F12F2006 = Request.Form("x_Valori_U_serramenti_valore_U_dal_12F12F2006") z_Valori_U_serramenti_valore_U_dal_12F12F2006 = Request.Form("z_Valori_U_serramenti_valore_U_dal_12F12F2006") v_Valori_U_serramenti_valore_U_dal_12F12F2006 = Request.Form("v_Valori_U_serramenti_valore_U_dal_12F12F2006") y_Valori_U_serramenti_valore_U_dal_12F12F2006 = Request.Form("y_Valori_U_serramenti_valore_U_dal_12F12F2006") w_Valori_U_serramenti_valore_U_dal_12F12F2006 = Request.Form("w_Valori_U_serramenti_valore_U_dal_12F12F2006") sSrchWrk = "" If x_Valori_U_serramenti_valore_U_dal_12F12F2006 <> "" Then sSrchWrk = sSrchWrk & "x_Valori_U_serramenti_valore_U_dal_12F12F2006=" & Server.URLEncode(x_Valori_U_serramenti_valore_U_dal_12F12F2006) sSrchWrk = sSrchWrk & "&z_Valori_U_serramenti_valore_U_dal_12F12F2006=" & Server.URLEncode(z_Valori_U_serramenti_valore_U_dal_12F12F2006) End If If y_Valori_U_serramenti_valore_U_dal_12F12F2006 <> "" Then If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&" sSrchWrk = sSrchWrk & "y_Valori_U_serramenti_valore_U_dal_12F12F2006=" & Server.URLEncode(y_Valori_U_serramenti_valore_U_dal_12F12F2006) sSrchWrk = sSrchWrk & "&w_Valori_U_serramenti_valore_U_dal_12F12F2006=" & Server.URLEncode(w_Valori_U_serramenti_valore_U_dal_12F12F2006) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk sSrchStr = sSrchStr & "&v_Valori_U_serramenti_valore_U_dal_12F12F2006=" & Server.URLEncode(v_Valori_U_serramenti_valore_U_dal_12F12F2006) End If Session(ewSessionTblAdvSrch & "_v_Valori_U_serramenti_valore_U_dal_12F12F2006") = v_Valori_U_serramenti_valore_U_dal_12F12F2006 ' Save AND/OR condition ' Field Valori U serramenti_Valore U dal 1/1/2009 x_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Request.Form("x_Valori_U_serramenti_Valore_U_dal_12F12F2009") z_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Request.Form("z_Valori_U_serramenti_Valore_U_dal_12F12F2009") v_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Request.Form("v_Valori_U_serramenti_Valore_U_dal_12F12F2009") y_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Request.Form("y_Valori_U_serramenti_Valore_U_dal_12F12F2009") w_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Request.Form("w_Valori_U_serramenti_Valore_U_dal_12F12F2009") sSrchWrk = "" If x_Valori_U_serramenti_Valore_U_dal_12F12F2009 <> "" Then sSrchWrk = sSrchWrk & "x_Valori_U_serramenti_Valore_U_dal_12F12F2009=" & Server.URLEncode(x_Valori_U_serramenti_Valore_U_dal_12F12F2009) sSrchWrk = sSrchWrk & "&z_Valori_U_serramenti_Valore_U_dal_12F12F2009=" & Server.URLEncode(z_Valori_U_serramenti_Valore_U_dal_12F12F2009) End If If y_Valori_U_serramenti_Valore_U_dal_12F12F2009 <> "" Then If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&" sSrchWrk = sSrchWrk & "y_Valori_U_serramenti_Valore_U_dal_12F12F2009=" & Server.URLEncode(y_Valori_U_serramenti_Valore_U_dal_12F12F2009) sSrchWrk = sSrchWrk & "&w_Valori_U_serramenti_Valore_U_dal_12F12F2009=" & Server.URLEncode(w_Valori_U_serramenti_Valore_U_dal_12F12F2009) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk sSrchStr = sSrchStr & "&v_Valori_U_serramenti_Valore_U_dal_12F12F2009=" & Server.URLEncode(v_Valori_U_serramenti_Valore_U_dal_12F12F2009) End If Session(ewSessionTblAdvSrch & "_v_Valori_U_serramenti_Valore_U_dal_12F12F2009") = v_Valori_U_serramenti_Valore_U_dal_12F12F2009 ' Save AND/OR condition ' Field Valori U vetrate_valore U dal 1/1/2006 x_Valori_U_vetrate_valore_U_dal_12F12F2006 = Request.Form("x_Valori_U_vetrate_valore_U_dal_12F12F2006") z_Valori_U_vetrate_valore_U_dal_12F12F2006 = Request.Form("z_Valori_U_vetrate_valore_U_dal_12F12F2006") v_Valori_U_vetrate_valore_U_dal_12F12F2006 = Request.Form("v_Valori_U_vetrate_valore_U_dal_12F12F2006") y_Valori_U_vetrate_valore_U_dal_12F12F2006 = Request.Form("y_Valori_U_vetrate_valore_U_dal_12F12F2006") w_Valori_U_vetrate_valore_U_dal_12F12F2006 = Request.Form("w_Valori_U_vetrate_valore_U_dal_12F12F2006") sSrchWrk = "" If x_Valori_U_vetrate_valore_U_dal_12F12F2006 <> "" Then sSrchWrk = sSrchWrk & "x_Valori_U_vetrate_valore_U_dal_12F12F2006=" & Server.URLEncode(x_Valori_U_vetrate_valore_U_dal_12F12F2006) sSrchWrk = sSrchWrk & "&z_Valori_U_vetrate_valore_U_dal_12F12F2006=" & Server.URLEncode(z_Valori_U_vetrate_valore_U_dal_12F12F2006) End If If y_Valori_U_vetrate_valore_U_dal_12F12F2006 <> "" Then If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&" sSrchWrk = sSrchWrk & "y_Valori_U_vetrate_valore_U_dal_12F12F2006=" & Server.URLEncode(y_Valori_U_vetrate_valore_U_dal_12F12F2006) sSrchWrk = sSrchWrk & "&w_Valori_U_vetrate_valore_U_dal_12F12F2006=" & Server.URLEncode(w_Valori_U_vetrate_valore_U_dal_12F12F2006) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk sSrchStr = sSrchStr & "&v_Valori_U_vetrate_valore_U_dal_12F12F2006=" & Server.URLEncode(v_Valori_U_vetrate_valore_U_dal_12F12F2006) End If Session(ewSessionTblAdvSrch & "_v_Valori_U_vetrate_valore_U_dal_12F12F2006") = v_Valori_U_vetrate_valore_U_dal_12F12F2006 ' Save AND/OR condition ' Field Valori U vetrate_Valore U dal 1/1/2009 x_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Request.Form("x_Valori_U_vetrate_Valore_U_dal_12F12F2009") z_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Request.Form("z_Valori_U_vetrate_Valore_U_dal_12F12F2009") v_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Request.Form("v_Valori_U_vetrate_Valore_U_dal_12F12F2009") y_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Request.Form("y_Valori_U_vetrate_Valore_U_dal_12F12F2009") w_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Request.Form("w_Valori_U_vetrate_Valore_U_dal_12F12F2009") sSrchWrk = "" If x_Valori_U_vetrate_Valore_U_dal_12F12F2009 <> "" Then sSrchWrk = sSrchWrk & "x_Valori_U_vetrate_Valore_U_dal_12F12F2009=" & Server.URLEncode(x_Valori_U_vetrate_Valore_U_dal_12F12F2009) sSrchWrk = sSrchWrk & "&z_Valori_U_vetrate_Valore_U_dal_12F12F2009=" & Server.URLEncode(z_Valori_U_vetrate_Valore_U_dal_12F12F2009) End If If y_Valori_U_vetrate_Valore_U_dal_12F12F2009 <> "" Then If sSrchWrk <> "" Then sSrchWrk = sSrchWrk & "&" sSrchWrk = sSrchWrk & "y_Valori_U_vetrate_Valore_U_dal_12F12F2009=" & Server.URLEncode(y_Valori_U_vetrate_Valore_U_dal_12F12F2009) sSrchWrk = sSrchWrk & "&w_Valori_U_vetrate_Valore_U_dal_12F12F2009=" & Server.URLEncode(w_Valori_U_vetrate_Valore_U_dal_12F12F2009) End If If sSrchWrk <> "" Then If sSrchStr <> "" Then sSrchStr = sSrchStr & "&" sSrchStr = sSrchStr & sSrchWrk sSrchStr = sSrchStr & "&v_Valori_U_vetrate_Valore_U_dal_12F12F2009=" & Server.URLEncode(v_Valori_U_vetrate_Valore_U_dal_12F12F2009) End If Session(ewSessionTblAdvSrch & "_v_Valori_U_vetrate_Valore_U_dal_12F12F2009") = v_Valori_U_vetrate_Valore_U_dal_12F12F2009 ' Save AND/OR condition If sSrchStr <> "" Then Response.Clear Response.Redirect "Valori_Ulist.asp" & "?" & sSrchStr End If Case Else ' Restore search settings x_Comune = Session(ewSessionTblAdvSrch & "_x_Comune") v_Comune = Session(ewSessionTblAdvSrch & "_v_Comune") y_Comune = Session(ewSessionTblAdvSrch & "_y_Comune") w_Comune = Session(ewSessionTblAdvSrch & "_w_Comune") x_Provincia = Session(ewSessionTblAdvSrch & "_x_Provincia") x_Zona_climatica = Session(ewSessionTblAdvSrch & "_x_Zona_climatica") z_Zona_climatica = Session(ewSessionTblAdvSrch & "_z_Zona_climatica") x_Gradi_Giorno = Session(ewSessionTblAdvSrch & "_x_Gradi_Giorno") z_Gradi_Giorno = Session(ewSessionTblAdvSrch & "_z_Gradi_Giorno") x_Altezza = Session(ewSessionTblAdvSrch & "_x_Altezza") z_Altezza = Session(ewSessionTblAdvSrch & "_z_Altezza") x_Valori_U_serramenti_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_x_Valori_U_serramenti_valore_U_dal_12F12F2006") v_Valori_U_serramenti_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_v_Valori_U_serramenti_valore_U_dal_12F12F2006") y_Valori_U_serramenti_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_y_Valori_U_serramenti_valore_U_dal_12F12F2006") w_Valori_U_serramenti_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_w_Valori_U_serramenti_valore_U_dal_12F12F2006") x_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_x_Valori_U_serramenti_Valore_U_dal_12F12F2009") v_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_v_Valori_U_serramenti_Valore_U_dal_12F12F2009") y_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_y_Valori_U_serramenti_Valore_U_dal_12F12F2009") w_Valori_U_serramenti_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_w_Valori_U_serramenti_Valore_U_dal_12F12F2009") x_Valori_U_vetrate_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_x_Valori_U_vetrate_valore_U_dal_12F12F2006") v_Valori_U_vetrate_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_v_Valori_U_vetrate_valore_U_dal_12F12F2006") y_Valori_U_vetrate_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_y_Valori_U_vetrate_valore_U_dal_12F12F2006") w_Valori_U_vetrate_valore_U_dal_12F12F2006 = Session(ewSessionTblAdvSrch & "_w_Valori_U_vetrate_valore_U_dal_12F12F2006") x_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_x_Valori_U_vetrate_Valore_U_dal_12F12F2009") v_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_v_Valori_U_vetrate_Valore_U_dal_12F12F2009") y_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_y_Valori_U_vetrate_Valore_U_dal_12F12F2009") w_Valori_U_vetrate_Valore_U_dal_12F12F2009 = Session(ewSessionTblAdvSrch & "_w_Valori_U_vetrate_Valore_U_dal_12F12F2009") End Select ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str %>

Search TABLE: Valori U                  Inserisci il dato da ricercare (Es. "Comune = Pavia" oppure  "Zona Climatica  = B"

Ritorna alla lista

Comune contiene ">
"OR" Then Response.Write " checked"%>>and >or   ">
Provincia contiene ">
Zona climatica (A, B, C, D, E, F) ">
Gradi Giorno ">
Altezza ">
Valori U serramenti valore U dal 1/1/2006 = ">
"OR" Then Response.Write " checked"%>>and >or   ">
Valori U serramenti Valore U dal 1/1/2009 = ">
"OR" Then Response.Write " checked"%>>and >or   ">
Valori U vetrate valore U dal 1/1/2006 = ">
"OR" Then Response.Write " checked"%>>and >or   ">
Valori U vetrate Valore U dal 1/1/2009 = ">
"OR" Then Response.Write " checked"%>>and >or   ">

<% conn.Close ' Close Connection Set conn = Nothing %>