Ho un problema.
Devo avere dei record su un area ripetuta.
Il Recordset mi deve restituire tutti i record dove il campo "Data_Ultima_Visita" è inferiore ad una certa data che viene passata da un modulo con metodo GET tramite l'url.
Il problema credo stia nel recordset e nel confronto tra date.
Se ad esmpio se chiedo gli utenti inattivi da 2 settimane mi ritorna un numero di record Minore di quelli inattivi da 3 mesi. Dovrebbe funzionare che più mi avvicino a oggi, più il numero di date minori di oggi, dovrebbe aumentare.
Nel modulo c'è un elenco/menù con alcune date da scegliere. Le date sono calcolate in questo modo: (esempio: per avere "un anno fa" = Date()-365, per avere "6 mesi fa" Date()-182 .. e cosi via) vedi menù select sotto:
codice:
<select name="Ultima_Data_Utile"  id="Ultima_Data_Utile" style="color: #ffffff; background: #CC6600" >                    
                    <option value="<%= (Date() - 365) %>" selected>Elenca utenti inattivi da almeno 1 anno</option>
                    <option value="<%= (Date() - 183) %>">Elenca utenti inattivi da almeno 6 mesi</option>
                    <option value="<%= (Date() - 92) %>">Elenca utenti inattivi da almeno 3 mesi</option>
                    <option value="<%= (Date() - 31) %>">Elenca utenti inattivi da almeno 1 mesi</option>
                    <option value="<%= (Date() - 16) %>">Elenca utenti inattivi da almeno 2 settimane</option>
                    <option value="<%= (Date() - 7) %>">Elenca utenti inattivi da almeno 1 settimane</option>
                    <option value="<%= (Date() - 2) %>">Elenca utenti inattivi da almeno 2 giorni</option>
                  </select>
Mentre questo sotto il codice per il recordset che mi ha tirato fuori Dreamweaver:
codice:
Dim Recordset_Elimina_Vecchi_Utenti__MMColParamRecordset_Elimina_Vecchi_Utenti__MMColParam = "1"
If (Request.QueryString("Ultima_Data_Utile") <> "") Then 
  Recordset_Elimina_Vecchi_Utenti__MMColParam = Request.QueryString("Ultima_Data_Utile")
End If
%>
<%
Dim Recordset_Elimina_Vecchi_Utenti
Dim Recordset_Elimina_Vecchi_Utenti_cmd
Dim Recordset_Elimina_Vecchi_Utenti_numRows


Set Recordset_Elimina_Vecchi_Utenti_cmd = Server.CreateObject ("ADODB.Command")
Recordset_Elimina_Vecchi_Utenti_cmd.ActiveConnection = MM_connessione_STRING
Recordset_Elimina_Vecchi_Utenti_cmd.CommandText = "SELECT * FROM Clienti WHERE Data_Ultima_Visita < ?" 
Recordset_Elimina_Vecchi_Utenti_cmd.Prepared = true
Recordset_Elimina_Vecchi_Utenti_cmd.Parameters.Append Recordset_Elimina_Vecchi_Utenti_cmd.CreateParameter("param1", 135, 1, -1, Recordset_Elimina_Vecchi_Utenti__MMColParam) ' adDBTimeStamp


Set Recordset_Elimina_Vecchi_Utenti = Recordset_Elimina_Vecchi_Utenti_cmd.Execute
Recordset_Elimina_Vecchi_Utenti_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index


Repeat1__numRows = -1
Repeat1__index = 0
Recordset_Elimina_Vecchi_Utenti_numRows = Recordset_Elimina_Vecchi_Utenti_numRows + Repeat1__numRows
Mi date una mano?
Grazie