Paolo,
Ci ho provato ma non penso sia li il problema ...... non avresti 5 minuti per provarlo sul tuo PC...... ci sto impazzendo sopra da troppo tempo.
Se mi scrivi una mail ...... te lo invio e cosi ti è più facile.
Di solito sono in grado di fare il debuggin delle mie applicazioni ma questa volta non capisco .....
Riposto il codice:
<code>
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
page = TRIM(Request("page"))
if page="" then page=1
scelta=TRIM(Request("Days"))
if scelta = "" then
scelta = 0
end if
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title> </title>
</head>
<body>
<%
Function SQLDateTime(ByVal strToFmt)
If IsDate(strToFmt) Then
SQLDateTime="#" & _
DatePart("d", strToFmt) & "/" &_
DatePart("m", strToFmt)& "/" &_
DatePart("yyyy", strToFmt) & " " &_
DatePart("h", strToFmt) & ":" &_
DatePart("n", strToFmt) & ":" &_
DatePart("s", strToFmt) & "#"
Else
SQLDateTime=""
End If
End Function
dim conn, strConn
strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../mdb-database/utenti.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open StrConn
'PAGINAZIONE
Dim SQL, RecordsPerPagina,TotalRecords
SQL = "SELECT * FROM community"
Select case scelta
Case "1"
SQL=SQL & " WHERE data = " & SQLDateTime(DateAdd("d", 0, Now() ))
Case "2"
SQL=SQL & " WHERE data >= " & SQLDateTime(DateAdd("d", -2, Now() ) )
Case "5"
SQL=SQL & " WHERE data >= " & SQLDateTime(DateAdd("d", -5, Now() ) )
Case "7"
SQL=SQL & " WHERE data >= " & SQLDateTime(DateAdd("ww", -1, Now() ) )
Case "14"
SQL=SQL & " WHERE data >= " & SQLDateTime(DateAdd("ww", -2, Now() ) )
Case "30"
SQL=SQL & " WHERE data >= " & SQLDateTime(DateAdd("m", -1, Now() ) )
End Select
SQL= SQL & " ORDER BY data DESC"
rs.Open SQL, Conn, 3, 3
Response.Write (SQL)
%>
<form action="visualizza1.asp" method="GET" name="data">
<p><select name="Days" size="1">
<option value="0"> tutti gli Iscritti </option>
<option value="1"> Iscritti oggi </option>
<option value="2"> Iscritti da due giorni </option>
<option value="5"> Iscritti da 5 giorni </option>
<option value="7"> Iscritti da 1 settimana </option>
<option value="14"> Iscritti da 2 settimana </option>
<option value="30">Iscritti da un mese </option>
<option value="60"> Iscritti da due mesi </option>
<option value="120"> Iscritti da 4 mesi </option>
<option value="365"> Iscritti da un anno </option>
</select><input type="submit" name="B1" value="Invia"> </p>
</form>
<%
FUNCTION SELECTED( val1, val2 )
IF cSTR( val1 ) = cSTR( val2 ) THEN
SELECTED = " selected "
END IF
END FUNCTION
'record attivi
TotalRecords = rs.RecordCount
If TotalRecords=0 then
Response.Write "<P>Nessun risultato trovato</P>"
Else
' paginazione
RecordsPerPagina = 10
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page
For i=1 to RecordsPerPagina
WHILE NOT rs.Eof and rowCount < rs.PageSize
rowCount = rowCount + 1
%><%=Add%>
<form action="modify.asp" method="POST">
<input type="hidden" name="ID" value="<%=rs("ID")%>"><div
align="left"><table border="0" cellspacing="1" width="500">
<tr>
<td><p align="center"><b>Data iscrizione</b> </p>
</td>
<td><p align="center"><b>Nome</b></p>
</td>
<td><p align="center"><b>Presentatore</b> </p>
</td>
<td> </td>
</tr>
<tr>
<td><input type="text" size="15" name="data"
value="<%=rs("data")%>"> </td>
<td><input type="text" size="15" name="nome"
value="<%=rs("nome")%>"></td>
<td><input type="text" size="5" name="IDN"
value="<%=rs("IDN")%>"> </td>
<td><input type="submit" name="modifica"
value="Invia"></td>
</tr>
</table>
</div>
</form>
<%
rs.MoveNext
wend
next
end if
%>
<hr width="400" color="#0000FF">
<p> </p>
<p><%If TotalRecords > 1 then%> <strong>Pagine</strong> <font color="#0000DA"><b>: <%
For p=1 to rs.PageCount
If p <> CInt(Page) then
%></b> <a href="visualizza1.asp?page=<%=p%>&scelta=<%=scelta%>"><%=p%></a>
<% ELSE %> <%=p%> <%END IF
Next
END IF
' liberiamo le risorse
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%> </font></p>
</body>
</html>
</code>
********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************