Newsgroup: it.comp.www.asp
Titolo: paginazione..problema...Ancora non funziona

Ciao,
ho provato mettendo ors.open SQL,oConn, 1, 3
ma continua a funzionare...
ora l'errore e':
Errore di compilazione di Microsoft VBScript errore "800a0400'
Prevista istruzione
/IMU/imupj/riunioni.asp, riga 105
end if
^
Riporto nuovamente il codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<% Dim no
Dim idp
Dim i
no = request.querystring("nome")
%>
		<title>Progetto <% response.write no %></title>
	</head>
<body>
<!--#INCLUDE FILE="inc/testa.inc"-->
<br>
<div align="center">
<table>
	<tr>
		<td>
			<table>
					<tr>
						<td><font face="Arial,Helvetica,sans-serif" size="+1"
color="Navy">Riunioni per il progetto&nbsp;<% response.write no
%></font></td>
					</tr>
					<tr>
						<td><hr align="center" width="700" size="1" color="Navy" noshade></td>
					</tr>
			</table>
		</td>
	</tr>
	<tr>
<%
RecordPerPagina = 4
page = Request("page")
if page="" then page=1
strRicerca = request.querystring ("id")
Set oConn = server.createobject ("ADODB.connection")
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("db/utenti.mdb")
Set ors=server.createobject ("ADODB.recordset")
SQL = "select * from riunioni where IDpj = "&strRicerca&" order by data
desc"
ors.open SQL,oConn, 1, 3
ors.PageSize = RecordsPerPagina
ors.absolutePage =page
if ors.Eof = true or ors.Bof= True then
Response.write "<p>Nessun elemento</p>"
Else
%>
<td>
<%
For i=1 to RecordsPerPagina
if not ors.Eof then
%>
<table>
<tr>
	<td><font face="Arial,Helvetica,sans-serif" size="2" color="Navy">Luogo di
svolgimento:</font></td>
								<td><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy"><%=ors.fields(1)%></font></td>
							</tr>
<tr>
	<td><font face="Arial,Helvetica,sans-serif" size="2" color="Navy">Il
giorno:</font></td>
	<td><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy"><%=ors.fields(2)%></font></td>
	<td><font face="Arial,Helvetica,sans-serif" size="2" color="Navy">Alle
ore:</font></td>
	<td><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy"><%=ors.fields(3)%></font></td>
</tr>
<tr>
	<td><font face="Arial,Helvetica,sans-serif" size="2" color="Navy">Indetta
da:</font></td>
	<td><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy"><%=ors.fields(4)%></font></td>
</tr>
<tr>
	<td><font face="Arial,Helvetica,sans-serif" size="2"
color="Navy">Effettuata:</td>
	<td><%if ors.fields(5) = True then%>
		<font face="Arial,Helvetica,sans-serif" size="2"
color="Navy">Si</font></td>
		<% else%>
		<font face="Arial,Helvetica,sans-serif" size="2" color="Navy">No</font>
	</td>
		<% end if%>
</tr>
<tr>
	<td><%if ors.fields(5) = True then%>
	<a href="#"
onclick="javascript:window.open('verbale.asp?id=<%=ors.fields(0)%>&nome=<%
response.write no
%>&luogo=<%=ors.fields(1)%>&giorno=<%=ors.fields(2)%>&ora=<%=ors.fields(3)%>
','popup','width=400,height=400,top=30,left=550,scrollbars=yes')"><font
face="Arial,Helvetica,sans-serif" size="2"
color="Navy">Verbale</font></a></td>
		<% else%>
	<font face="Arial,Helvetica,sans-serif" size="2" color="red">Nessun verbale
</font>
		<% end if%>
</tr>
</table>
<hr align="left" width="300" size="1" color="Navy">
<%ors.movenext
end if
next
End if%>
</td>
</tr>
</table>
<% Response.write "<p>Pagine: "&page&"</p>"
For page=1 to ors.PageCount
Response.write "<a href='riunioni.asp?page=" & page
Response.write "&" & Server.UrlEncode (idp)
Response.write "'>"
Response.write pag
Response.write "</a>"
Next
Response.write "</p>"
end if
ors.close
Set ors=nothing
oConn.close
Set oConn=Nothing
 %>%>
</div>
</body>
</html>
Grazie mille...
per l'aiuto
__________________
Sergio Sbracia
-- 
Posted from 
mail1.webmessenger.it
 [193.70.193.50] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Moderatore di it.comp.www.asp
Sito di supporto: 
http://www.aspitalia.com/newsgroup/
La più grande community italiana di sviluppatori!

spero che identi il codice, e che sia così incasinato solo qui....
    Simone

si il codice e' indentato.
