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