279 messaggi dal 08 maggio 2001
Intendi che devo scrivere questos enza apici .......

Select case scelta
Case "1"
SQL=SQL & " WHERE data = '" & SQLDateTime(DateAdd("d", scelta, Now() )) & "'"
Case "2"
SQL=SQL & " WHERE data <= '" & SQLDateTime(DateAdd("d", scelta, Now() ) ) & "'"
End Select

********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************
839 messaggi dal 13 febbraio 2001
Togli gli apici intorno al critero data. non servono! Anzi sono sbagliati.

Alla fine deve venire qualcosa del tipo

<b>... WHERE data = #12/25/2001#;</b>


Select case scelta
Case "1"
SQL=SQL & " WHERE data = " & SQLDateTime(DateAdd("d", scelta, Now() )) & ";"
Case "2"
SQL=SQL & " WHERE data &lt;= " & SQLDateTime(DateAdd("d", scelta, Now() ) ) & ";"
End Select



Ciao!
Paolo
279 messaggi dal 08 maggio 2001
Paolo, ti ringrazio ...... ho risolto il problema

Adesso però vorrei chiederti un altra cosa: se io seleziono gli utenti iscritti da una settimana mi si formano due pagine : come faccio a mantenere tale dato quando ad esempio vado nella pagina 2 ?
Io ho provato cosi ma quando clicco per esempio sulla seconda pagina mi vengono fuori altre pagine con non c'entrano nulla.

<code>
&lt;%
For p=1 to rs.PageCount

If p = CInt(Page) then
%&gt;
&lt;b&gt;&lt;%=p%&gt;&lt;/b&gt;
&lt;% ELSE %&gt;
&lt;a href="visualizza1.asp?page=&lt;%=p%&gt;&scelta=&lt;%=scelta%&gt;"&gt;&lt;%=p%&gt;&lt;/a&gt;
&lt;%END IF
Next
END IF
%&gt;
</code>

Il codice è quello presente prima con la semplice modifica della quary ......... l'ho corretta come da te indicato.

********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************
839 messaggi dal 13 febbraio 2001
Non te la mantiene per due motivi:
1. nel form iniziale usi il metodo POST anzichè GET e quindi i dati non passano nella stringa di interrogazione...
infatti poi te li prelevi con

scelta=Request.form("Days")

quindi se vuoi fare anche la paginazione usa il metodo GET e passa i request con
scelta=Request.QueryString("Days")


2. In secondo luogo il nome del parametro mi pare sia "Days" non "scelta" e a meno che tu non aggiunga il recupero dati su una nuova variabile "Scelta" del tipo

scelta=Request.QueryString("scelta")





Ciao!
Paolo
279 messaggi dal 08 maggio 2001
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>

&lt;!-- #INCLUDE FILE="adovbs.inc" --&gt;
&lt;%

page = TRIM(Request("page"))
if page="" then page=1

scelta=TRIM(Request("Days"))
if scelta = "" then
scelta = 0
end if
%&gt;
&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1"&gt;
&lt;meta name="GENERATOR" content="Microsoft FrontPage 4.0"&gt;
&lt;title&gt; &lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;%
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 &gt;= " & SQLDateTime(DateAdd("d", -2, Now() ) )
Case "5"
SQL=SQL & " WHERE data &gt;= " & SQLDateTime(DateAdd("d", -5, Now() ) )
Case "7"
SQL=SQL & " WHERE data &gt;= " & SQLDateTime(DateAdd("ww", -1, Now() ) )
Case "14"
SQL=SQL & " WHERE data &gt;= " & SQLDateTime(DateAdd("ww", -2, Now() ) )
Case "30"
SQL=SQL & " WHERE data &gt;= " & SQLDateTime(DateAdd("m", -1, Now() ) )
End Select


SQL= SQL & " ORDER BY data DESC"

rs.Open SQL, Conn, 3, 3

Response.Write (SQL)
%&gt;

&lt;form action="visualizza1.asp" method="GET" name="data"&gt;
&lt;p&gt;&lt;select name="Days" size="1"&gt;
&lt;option value="0"&gt; tutti gli Iscritti &lt;/option&gt;
&lt;option value="1"&gt; Iscritti oggi &lt;/option&gt;
&lt;option value="2"&gt; Iscritti da due giorni &lt;/option&gt;
&lt;option value="5"&gt; Iscritti da 5 giorni &lt;/option&gt;
&lt;option value="7"&gt; Iscritti da 1 settimana &lt;/option&gt;
&lt;option value="14"&gt; Iscritti da 2 settimana &lt;/option&gt;
&lt;option value="30"&gt;Iscritti da un mese &lt;/option&gt;
&lt;option value="60"&gt; Iscritti da due mesi &lt;/option&gt;
&lt;option value="120"&gt; Iscritti da 4 mesi &lt;/option&gt;
&lt;option value="365"&gt; Iscritti da un anno &lt;/option&gt;
&lt;/select&gt;&lt;input type="submit" name="B1" value="Invia"&gt; &lt;/p&gt;
&lt;/form&gt;
&lt;%
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 "&lt;P&gt;Nessun risultato trovato&lt;/P&gt;"

Else

' paginazione
RecordsPerPagina = 10
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page

For i=1 to RecordsPerPagina

WHILE NOT rs.Eof and rowCount &lt; rs.PageSize
rowCount = rowCount + 1
%&gt;&lt;%=Add%&gt;
&lt;form action="modify.asp" method="POST"&gt;
&lt;input type="hidden" name="ID" value="&lt;%=rs("ID")%&gt;"&gt;&lt;div
align="left"&gt;&lt;table border="0" cellspacing="1" width="500"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;p align="center"&gt;&lt;b&gt;Data iscrizione&lt;/b&gt; &lt;/p&gt;
&lt;/td&gt;
&lt;td&gt;&lt;p align="center"&gt;&lt;b&gt;Nome&lt;/b&gt;&lt;/p&gt;
&lt;/td&gt;
&lt;td&gt;&lt;p align="center"&gt;&lt;b&gt;Presentatore&lt;/b&gt; &lt;/p&gt;
&lt;/td&gt;
&lt;td&gt;&nbsp;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;input type="text" size="15" name="data"
value="&lt;%=rs("data")%&gt;"&gt; &lt;/td&gt;
&lt;td&gt;&lt;input type="text" size="15" name="nome"
value="&lt;%=rs("nome")%&gt;"&gt;&lt;/td&gt;
&lt;td&gt;&lt;input type="text" size="5" name="IDN"
value="&lt;%=rs("IDN")%&gt;"&gt; &lt;/td&gt;
&lt;td&gt;&lt;input type="submit" name="modifica"
value="Invia"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/div&gt;
&lt;/form&gt;
&lt;%
rs.MoveNext
wend

next
end if
%&gt;
&lt;hr width="400" color="#0000FF"&gt;

&lt;p&gt;&nbsp;&lt;/p&gt;

&lt;p&gt;&lt;%If TotalRecords &gt; 1 then%&gt; &lt;strong&gt;Pagine&lt;/strong&gt; &lt;font color="#0000DA"&gt;&lt;b&gt;: &lt;%
For p=1 to rs.PageCount

If p &lt;&gt; CInt(Page) then

%&gt;&lt;/b&gt; &lt;a href="visualizza1.asp?page=&lt;%=p%&gt;&scelta=&lt;%=scelta%&gt;"&gt;&lt;%=p%&gt;&lt;/a&gt;
&lt;% ELSE %&gt; &lt;%=p%&gt; &lt;%END IF
Next
END IF

' liberiamo le risorse
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%&gt; &lt;/font&gt;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;
</code>

********************
Webmaster Nationaldjteam
www.nationaldjteam.com
webmaster@nationaldjteam.com
********************

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.