ho copiato una paginazione da inserire nel mio sito, ma mi da questo errore:
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype
la riga d'errore è questa
rs.AbsolutePage = iPageCurrent
non capisco proprio l'errore :|
Il database è mysql?
no!
Posta tutto lo script d'impaginazioneOriginariamente inviato da Fedina
ho copiato una paginazione da inserire nel mio sito, ma mi da questo errore:
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype
la riga d'errore è questa
rs.AbsolutePage = iPageCurrent
non capisco proprio l'errore :|
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Lalibela Express - Catalogue </title>
<link rel="STYLESHEET" type="text/css" href="style.css">
</head>
<body background="bkg.jpg" topmargin="25" alink="#000000">
<table cellpadding="0" cellspacing="0" border="0" width="50%" align="center">
<tr>
<td background="bordo.jpg" height="2"></td>
</tr>
<tr>
<td>
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="555" bgcolor="#FFFFFF">
<tr>
<td>[img]lalibela.jpg[/img]</td>
<td width="10">[img]motivo.jpg[/img]</td>
<td>
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="555" bgcolor="#FFFFFF">
<tr>
<td>[img]about.gif[/img]</td>
</tr>
<tr>
<td>[img]service.gif[/img]</td>
</tr>
<tr>
<td>[img]catalogue.gif[/img]</td>
</tr>
<tr>
<td>[img]clients.gif[/img]</td>
</tr>
<tr>
<td>[img]contacts.gif[/img]</td>
</tr>
</table>
</td>
<td width="10">[img]motivo.jpg[/img]</td>
<td>
<table cellpadding="0" cellspacing="10" border="0" width="280" height="555" bgcolor="#FFFFFF" align="center">
<tr>
<td align="center" valign="top">[img]catalogue.jpg[/img]</td>
</tr>
<tr>
<td valign="top" class="normal">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.MapPath("/mdb-database/catalogo.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
richiediID = request("id")
iPageSize = 4 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
strSQL = "SELECT * FROM prodotti where IdCategoria="&richiediID
Rs.PageSize = iPageSize
Rs.CacheSize = iPageSize
Rs.Open strSQL, Conn
set rs = conn.execute(strSQL)
reccount = rs.recordcount
iPageCount = rs.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
rs.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table width="65%" align="center" border="0">
<tr>
<%
x=0
while not rs.eof
result = x mod 1
if x=1 and result=0 then
response.write "<tr>"
x=0
end if
%>
<td height="150">
<table border="0">
<tr>
<td>
<table>
<tr>
<td>[img]img/prod/<%=RS([/img].gif" width="100" height="100" alt="" border="1"></td>
</tr>
</table>
</td>
<td>
<table>
<tr>
<td class="tahoma11">[img]freccia.gif[/img]Cod.:</td>
<td class="tahoma11"><%=RS("CodProdotto")%></td>
</tr>
<tr>
<td colspan="2">[img]separatore.gif[/img]</td>
</tr>
<tr>
<td class="tahoma11">[img]freccia.gif[/img]Category.:</td>
<td class="tahoma11"><%=RS("TipoProdotto")%></td>
</tr>
<tr>
<td colspan="2">[img]separatore.gif[/img]</td>
</tr>
<tr>
<td class="tahoma11">[img]freccia.gif[/img]Availability.:</td>
<td class="tahoma11"><%=RS("Disponibilita")%></td>
</tr>
<tr>
<td colspan="2">[img]separatore.gif[/img]</td>
</tr>
<tr>
<td class="tahoma11">[img]freccia.gif[/img]Price.:</td>
<td class="tahoma11">Birr. <%=RS("Prezzo")%></td>
</tr>
<tr>
<td colspan="2">[img]separatore.gif[/img]</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%
'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>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
x = x +1
Rs.MoveNext
Wend
%>
</tr>
<%End if%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="bordo.jpg" height="2"></td>
</tr>
</table>
</body>
</html>
1)L'impaginazione del recordset e di sola lettura?
2)Ci sono dei recordset nella tabella?
prova a cambaire questa riga:
coon questa:codice:Rs.Open strSQL, Conn
Ciaocodice:Rs.Open strSQL, Conn, 2, 2
Cavicchi Andrea
Problemi con javascript, jquery, ajax clicca qui
fa sempre uguale
uppo perche interessa anche a me!!
E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.
io ribadisco che questo script c'è + gente che lo posta poichè non funziona che gente che lo fa funzionare....
ce ne sono anche altri? che funzionano meglio??Originariamente inviato da santino83
io ribadisco che questo script c'è + gente che lo posta poichè non funziona che gente che lo fa funzionare....
E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.
Permessi di invio
Rispondi quotando