codice:
<%
Dim RsNome
Dim RsNome_numRows
Kat = request.QueryString("IDCategoria")


Set RsNome = Server.CreateObject("ADODB.Recordset")
RsNome.ActiveConnection = strConn
RsNome.Source = "SELECT * FROM [T_Anag_Clienti"&session("StagioneAttuale")&"] WHERE Categoria = '" & Kat &"' and DateDiff('d',"&DataUsa&",[Certificato])>=1 AND ([T_Anag_Clienti"&session("StagioneAttuale")&"].Stato)='ATTIVO' ORDER BY [T_Anag_Clienti"&session("StagioneAttuale")&"].Nome"
RsNome.CursorType = 0
RsNome.CursorLocation = 2
RsNome.LockType = 1
RsNome.Open()
RsNome_numRows = 0
%>