<% 'VERSIONE FILE 1.4.0 Option Explicit %> <% '---Dichiarazione variabili Dim QSCategoria, QSPg, QSQuery '---Recupero le informazioni sulla scategoria, categoria e pagina QSCategoria = Request.QueryString("cat") QSSCategoria = Request.QueryString("scat") QSQuery = Request.QueryString("q") QSPg = Int(Request.QueryString("pg")) If QSPg <= 0 Then QSPg = 1 End If %> <% Conn.Close Set Conn = Nothing %>