Paginazione ASP

**quotidiano** · 13-11-2007, 17:11

Premetto che non sono un programmatore....

Sto tentando di adattare un codice di paginazione asp ad una mia pagina che filtra tramite query sql dei dati provenienti da un form.
Naturalmente non riesco ad adattarlo.

il codice funziona fino a quando incontra la seconda serie di Response.Write cioè quando deve stampare i record estratti dal db - L'errore è il seguente:

Expected end of statement

Qualcuno può darmi una mano?

Ecco il codice

codice:

<html>
<head>
<title>I NOSTRI TITOLI</title>
</head>

<%' dati ricevuti dal form%>

<%
AbiCode=request.form("AbiCode")
CabCode=request.form("CabCode")
Descrizione=request.form("Descrizione")
Localita=request.form("Localita")

if AbiCode="" then AbiCode="%"
if CabCode="" then CabCode="%"
if Descrizione="" then Descrizione="%"
if Localita="" then Localita="%"
%>

<%
Dim DBConn 
Set DBConn = Server.CreateObject("ADODB.Connection") 
DBConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("registrazione_gestione/mdb-database/abicab.mdb")&";  Persist Security Info = False"
Dim objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 

RecordsPerPagina = 10
page = Request("page")
if page="" then page = 1

' CAMBIARE LA DATA NELLA RIGA SQL SEGUENTE
strSQL="select * from abicab where AbiCode like '%"&AbiCode&"%' and CabCode like '%"&CabCode&"%' and Descrizione like '%"&Descrizione&"%' and Localita like '%"&Localita&"%' and Data like '10/31/2007'"
objRS.open strSQL, DBConn, 1 
objRS.PageSize = RecordsPerPagina 
objRS.AbsolutePage = page 
If objRS.Eof=True or objRS.Bof=True then 

<%' PRIMA SERIE DI RESPONSE.WRITE - descrive la tabella %>
Response.Write "

Nessun risultato trovato</P>" 
Else 
Response.Write ("<center><h2>ABICAB Trovati </h2></center>
")
Response.Write ("<table border=1><tr><td>Numero</td>")
Response.Write ("<td align=center>AbiCode</td>")
Response.Write ("<td>CabCode</td>")
Response.Write ("<td>Descrizione</td>")
Response.Write ("<td>Filiale</td>")
Response.Write ("<td>Indirizzo</td>")
Response.Write ("<td>Località</td>")
Response.Write ("<td>ID</td> </tr>")

For i=1 to RecorsPerPagina
if Not objRS.EOF then
%>

<%k=k+1%>

<%' SECONDA SERIE DI RESPONSE.WRITE - STAMPA I DATI %>
<%
Response.Write("<TR><TD>") k ("</TD>")
Response.Write("<td>"objRS("AbiCode") AbiCode=rs("AbiCode")"</td>")
Response.Write("<td>"objRS("CabCode") CabCode=rs("CabCode")"</td>")
Response.Write("<td>"objRS("Descrizione") Descrizione=rs("Descrizione")"</td>")
Response.Write("<td>"objRS("Filiale") Filiale=rs("Filiale")"</td>")
Response.Write("<td>"objRS("Indirizzo") Indirizzo=rs("Indirizzo")"</td>")
Response.Write("<td>"objRS("Localita") Localita=rs("Localita")"</td>")
Response.Write("<td>"objRS("ID") ID=rs("ID")"</td>")
%>

<%
objRS.MoveNext 
end if 
Next 
Response.Write ("</table></center>") 
End if 
Response.Write "

Pagine: " 
For pag=1 to objRS.PageCount 
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 
objRS.Close 
Set objRS=Nothing 
DBConn.Close 
Set DBConn=Nothing 
%>

</body>
</html>

**Roby_72** · 13-11-2007, 17:15

codice:

If objRS.Eof=True or objRS.Bof=True then 
' PRIMA SERIE DI RESPONSE.WRITE - descrive la tabella
Response.Write "

Nessun risultato trovato</P>" 
Else

Roby

**quotidiano** · 13-11-2007, 17:22

ok
è un errore nel copia incolla del codice.

Ma non è quello il problema, come dicevo, il problema è nella seconda serie di response.write

Si riesce a fare qualcosa?

Grazie

**Mems** · 13-11-2007, 17:25

codice:

Response.Write "</P>" 
End If
objRS.Close 
Set objRS=Nothing 
DBConn.Close 
Set DBConn=Nothing

**quotidiano** · 13-11-2007, 17:41

Grazie ma ancora il codice si ferma alla Seconda serie di Response.Write

Mi potete controllare questa parte se è scritta bene?

codice:

 
......

For i=1 to RecorsPerPagina
if Not objRS.EOF then
%>

<%k=k+1%>

<%' SECONDA SERIE DI RESPONSE.WRITE - STAMPA I DATI %>
<%
Response.Write("<TR><TD>") k ("</TD>")
Response.Write("<td>"objRS("AbiCode") AbiCode=rs("AbiCode")"</td>")
Response.Write("<td>"objRS("CabCode") CabCode=rs("CabCode")"</td>")
Response.Write("<td>"objRS("Descrizione") Descrizione=rs("Descrizione")"</td>")
Response.Write("<td>"objRS("Filiale") Filiale=rs("Filiale")"</td>")
Response.Write("<td>"objRS("Indirizzo") Indirizzo=rs("Indirizzo")"</td>")
Response.Write("<td>"objRS("Localita") Localita=rs("Localita")"</td>")
Response.Write("<td>"objRS("ID") ID=rs("ID")"</td>")
%>

**Roby_72** · 13-11-2007, 17:44

Tutte quelle aperture / chiusure di codice ASP sono inutili, serve solo l'ultima.
I response.write sono tutti sbagliati:

codice:

Response.Write("<TR><TD>k</TD>") 'se k non è una variabile
Response.Write("<TR><TD>"& k &"</TD>") 'se k è una variabile

Roby

**quotidiano** · 13-11-2007, 17:50

k è una variabile.

Infatti correggendola il codice passa.

c'è qualcuno in grado di riscrivermi questo pezzo di codice in modo corretto?

codice:

Response.Write("<td>"objRS("AbiCode") AbiCode=rs("AbiCode")"</td>")
Response.Write("<td>"objRS("CabCode") CabCode=rs("CabCode")"</td>")
Response.Write("<td>"objRS("Descrizione") Descrizione=rs("Descrizione")"</td>")
Response.Write("<td>"objRS("Filiale") Filiale=rs("Filiale")"</td>")
Response.Write("<td>"objRS("Indirizzo") Indirizzo=rs("Indirizzo")"</td>")
Response.Write("<td>"objRS("Localita") Localita=rs("Localita")"</td>")
Response.Write("<td>"objRS("ID") ID=rs("ID")"</td>")

Grazie

**Roby_72** · 13-11-2007, 18:03

codice:

For i=1 to RecorsPerPagina
if Not objRS.EOF then
k=k+1
AbiCode=rs("AbiCode")
CabCode=rs("CabCode") 

' SECONDA SERIE DI RESPONSE.WRITE - STAMPA I DATI
Response.Write("<TR><TD>"& k &"</TD>")
Response.Write("<td>"& AbiCode &"</td>")
Response.Write("<td>"& CabCode &"</td>")
Response.Write("<td>"objRS("Descrizione") Descrizione=rs("Descrizione")"</td>")
Response.Write("<td>"objRS("Filiale") Filiale=rs("Filiale")"</td>")
Response.Write("<td>"objRS("Indirizzo") Indirizzo=rs("Indirizzo")"</td>")
Response.Write("<td>"objRS("Localita") Localita=rs("Localita")"</td>")
Response.Write("<td>"objRS("ID") ID=rs("ID")"</td>")
%>

I primi tre li ho sistemati, puoi continuare.

Roby

**quotidiano** · 13-11-2007, 18:45

Riposto il codice corretto secondo i suggerimenti.

Il produce una pagina che ha la riga di intestazione della tabella e la paginazione, cioè mi dice di quante pagine (contenenti 10 record) è composto il recordset

PURTROPPO ancora NON riesco a VISUALIZZARE i RECORD.

Probabilmente c'è una variabile che non funziona.

Potete verificare?

codice:

<html>
<head>
<title>I NOSTRI TITOLI</title>
</title>
<% 
'rem dati provenienti dal form
AbiCode=request.form("AbiCode")
CabCode=request.form("CabCode")
Descrizione=request.form("Descrizione")
Localita=request.form("Localita")

if AbiCode="" then AbiCode="%"
if CabCode="" then CabCode="%"
if Descrizione="" then Descrizione="%"
if Localita="" then Localita="%"

Dim DBConn 
Set DBConn = Server.CreateObject("ADODB.Connection") 
DBConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("registrazione_gestione/mdb-database/abicab.mdb")&";Persist Security Info = False"
Dim objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 

RecordsPerPagina = 10
page = Request("page")
if page="" then page = 1

' CAMBIARE LA DATA NELLA RIGA SQL SEGUENTE
strSQL="select * from abicab where AbiCode like '%"&AbiCode&"%' and CabCode like '%"&CabCode&"%' and Descrizione like '%"&Descrizione&"%' and Localita like '%"&Localita&"%' and Data like '10/31/2007'"
objRS.open strSQL, DBConn, 1 
objRS.PageSize = RecordsPerPagina 
objRS.AbsolutePage = page 
If objRS.Eof=True or objRS.Bof=True then 
Response.Write "

Nessun risultato trovato</P>" 
Else 
Response.Write ("<center><h2>ABICAB Trovati </h2></center>
")
Response.Write ("<table border=1><tr><td>Numero</td>")
Response.Write ("<td align=center>AbiCode</td>")
Response.Write ("<td>CabCode</td>")
Response.Write ("<td>Descrizione</td>")
Response.Write ("<td>Filiale</td>")
Response.Write ("<td>Indirizzo</td>")
Response.Write ("<td>Località</td>")
Response.Write ("<td>ID</td> </tr>")

For i=1 to RecorsPerPagina
if Not objRS.EOF then

k=k+1
AbiCode=rs("AbiCode")
CabCode=rs("CabCode") 
Descrizione=rs("Descrizionq")
Filiale=rs("Filiale") 
Indirizzo=rs("Indirizzo")
Localita=rs("Localita") 
ID=rs("ID")

Response.Write("<TR><TD>"& k &"</TD>")
Response.Write("<td>"& AbiCode &"</td>")
Response.Write("<td>"& CabCode &"</td>")
Response.Write("<td>"& Descrizione & "</td>")
Response.Write("<td>" & Filiale & "</td>")
Response.Write("<td>" & Indirizzo & "</td>")
Response.Write("<td>" & Localita & "</td>")
Response.Write("<td>" & ID & "</td>")

objRS.MoveNext 
End If 
Next 
Response.Write ("</table></center>") 
End If 
Response.Write "

Pagine: " 
For pag=1 to objRS.PageCount 
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 
objRS.Close 
Set objRS=Nothing 
DBConn.Close 
Set DBConn=Nothing 
%>
</body>
</html>

Discussione: Paginazione ASP

Strumenti discussione

Ricerca discussione

Visualizza

Paginazione ASP

Permessi di invio