Salve,
ho reperito sul sito creamware uno splendido script per la paginazione che ho adattato alle mie necessità. Lo script funziona senza problemi se parte da localhost in modo autonomo, ma se provo ad includerlo in un altro file, quando tento ti passare alle successive pagine di visualizzazione ottengo un errore relativo di questo tipo:


codice:
HTTP 404 - File non trovato
se cambio il percorso sul tag del next ottengo questo messaggio di errore:

codice:
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0x22c Thread 0x8e4 DBC 0x82b6014 Jet' del Registro di sistema.
/SITO/modulistica/connDb.asp, line 4
a questo punto vado a modificare il percorso allo script connDb.asp aggiungendo "../" sul percorso del database.


Bingo!!! Vado avanti al secondo quadro

ma brutta sorpresa se tento di riaprire la pagina asp che include lo script di paginazione ottengo il medesimo errore:

codice:
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access]Errore generale. Impossibile aprire la chiave 'Temporary (volatile) Jet DSN for process 0x22c Thread 0x95c DBC 0x82b6014 Jet' del Registro di sistema.
/SITO/modulistica/connDb.asp, line 4
a questo punto non so dove sbattere... immagino si tratti di un problema di percorsi, ma non so come sistemare la cosa.
Ringrazio chiunque voglia aiutarmi.


Lo script in questione è il seguente :

codice:

<%@ Language=VBScript %> 
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>





<html>
<head>
	<title>Creamweb.it - Paginazione</title>
</head>
<BODY MARGINWIDTH="0" MARGINHEIGHT="0" TOPMARGIN="0" LEFTMARGIN="0" bgcolor="white">
<TABLE CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center" style="width: 775px; height: 134px">
	<TR>
		<TD>	
			<%
			iPageSize = 5 'NUMERO RECORD PER PAGINA

			If Request.QueryString("page") = "" Then
				iPageCurrent = 1
			Else
				iPageCurrent = CInt(Request.QueryString("page"))
			End If

			strSQL = "SELECT * FROM temp ORDER BY titolo ASC"
			Set objRS = Server.CreateObject("ADODB.Recordset")
			objRS.PageSize = iPageSize
			objRS.CacheSize = iPageSize
			objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText

			reccount = objRS.recordcount
			iPageCount = objRS.PageCount

			If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
			If iPageCurrent < 1 Then iPageCurrent = 1

			If iPageCount = 0 Then
				Response.Write "

<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
			Else
				objRS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
				%>
				<table cellpadding="0" cellspacing="0" border="0" style="width: 99%" align="center">
					<tr>
						<td bgcolor="#cccccc">
							<table cellpadding="2" cellspacing="1" border="0" style="width: 100%">
								<tr height="22">
									<td bgcolor="#dddddd" style="width: 2%"><font face="verdana" size="2" color="#000000">N.</font></td>
									<td bgcolor="#dddddd" style="width: 9%"><font face="verdana" size="2" color="#000000">titolo</font></td>
									<td bgcolor="#dddddd" align="center" style="width: 6%"><font face="verdana" size="2" color="#000000">Scarica</font></td>
									<td bgcolor="#dddddd" align="center" style="width: 16%"><font face="verdana" size="2" color="#000000">Descrizione</font></td>
								</tr>
								<%
								'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
								'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
								cont=1
								Do While iRecordsShown < iPageSize And Not objRS.EOF
									Dim Rig, bg
									Rig = Rig + 1
									If Rig Mod 2 = 0 then
										bg = "#E4E4E4"
									Else
										bg = "#ccccff"	
									End if	
									Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
									Response.Write "<td><font color='#000000' face='Verdana' size='1'>" & objRS("titolo") & "</font></td>"
									Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("posizione") & "</font></td>" 
									Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("descrizione") & "</font></td>"
									Cont = Cont + 1
									'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
									iRecordsShown = iRecordsShown + 1
									objRS.MoveNext
								Loop
								'PULIZIA DEGLI OGGETTI ADO
								objRS.Close
								Set objRS = Nothing
								%>
							</table>
						</td>
					</tr>
				</table>
			<%End if%>
			


			<%If ipagecount <> 1 Then%>
				<center>
				<table>
					<tr valign="middle">
						<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
							[
							<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
								[img]images/first.gif[/img]
							<%end if%>
							<%if iPageCurrent > 1 then%>
								[img]images/pre.gif[/img]
							<%end if%>
							<%if iPageCount > 2 then
								if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
								if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
							else
								da_pag = 1
								fino_a_pag = iPageCount
							end if%>
							<%for i = da_pag to fino_a_pag%>
								<%if i = iPageCurrent then%>
									<font color="red"><%=i%></font>
								<%else%>	
									<%=i%>
								<%end if%>	
							<%next%>
							<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
								[img]modulistica/images/next.gif[/img]
							<%end if%>	
							<%if iPageCurrent+1 < iPageCount then%>
								[img]modulistica/images/last.gif[/img]
							<%end if%>	
							]
						</font></td>
					</tr>
					<tr>
						<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
							<center>
							Pagina
								<font color="#FF0000"><%=iPageCurrent%></font>
								di
								<font color="#FF0000"><%=iPageCount%></font>
							</center>
						</font></td>
					</tr>
				</table>
				</center>
			<%end if%>
			<%
			objConn.Close
			Set objConn = Nothing
			%>
		</TD>
	</TR>
</TABLE>		
</body>
</html>

Saluti, Gurdjieff