<%@LANGUAGE="VBSCRIPT"%> <% CURR_LANG = "Ita" %> <% Dim rsFam__idFamily rsFam__idFamily = "0" If (Request.QueryString("idFam") <> "") Then rsFam__idFamily = Request.QueryString("idFam") End If %> <% Dim rsFam Dim rsFam_cmd Dim rsFam_numRows Set rsFam_cmd = Server.CreateObject ("ADODB.Command") rsFam_cmd.ActiveConnection = MM_cnn_STRING rsFam_cmd.CommandText = "SELECT Txt_Col_0_" & CURR_LANG & " AS Txt_Col_0 FROM tbl_search_cat WHERE Txt_Col_0_" & CURR_LANG & " IS NOT NULL AND IDFamiglia = ?" rsFam_cmd.Prepared = true rsFam_cmd.Parameters.Append rsFam_cmd.CreateParameter("param1", 5, 1, -1, rsFam__idFamily) ' adDouble Set rsFam = rsFam_cmd.Execute rsFam_numRows = 0 %> Panozzo srl <% idFamily = Request.QueryString("idFam") %>
 
 
<% rsFam.Close() Set rsFam = Nothing %>