webForumDet fria alternativet
Logga in / Bli medlem

Paging fel :-(

ASP

12 svar · 709 visningar · startad av antar

antarMedlem sedan dec. 2001289 inlägg
Frågan#1

ser ni nått fel:
ADODB.Recordset (0x800A0CB3)
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.
/onlinelistan.asp, line 109

<!-- #include file="adovbs.inc" -->

<%

mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
   
End If
mypagesize = 2

Set conn1 = Server.CreateObject("ADODB.Connection") 

conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
strsql1 = "SELECT * FROM members where status = 'online'"

Set Rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
rs.cachesize = 5
set rs=conn1.execute(strsql1)
%>

<HTML><HEAD>
</SCRIPT>
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta http-equiv="Content-Language" content="sv">
<TITLE>PLANKA.COM</TITLE>

<base target="_self">

</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" background="" bgproperties="fixed" bgcolor="#C6C6C6" link="#000000" vlink="#000000" alink="#000000">
<div align="center">
  <center>
<TABLE height="57" cellSpacing=0 cellPadding=0 border=0 width="227" style="border-collapse: collapse" bordercolor="#111111">
  <TBODY>
  <TR>
    <TD vAlign=top width=214 rowspan="2" height="110">
      &nbsp;<TABLE cellSpacing=0 cellPadding=0 width=391 border=0 height="122">
      <%

SQL = "Select * From members Order by username"

Set rstemp = Server.Createobject("ADODB.Recordset")

MdbFilePath = Server.MapPath("database/members.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"%>
        
      </TD>
        <TD vAlign=top align=middle width=434 height="122">
      <TABLE cellSpacing=0 cellPadding=0 width=430 border=0 height="1">
        <TBODY>
        <TR>
          <TD height=1><font face="Arial"><IMG height=6 
          src="default-filer/1x1.gif"></font></TD></TR>
        </TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width=313 border=0 height="1">
        <TBODY>
        <TR>
          <TD width=1 height="1"></TD>
          <TD width=8 height="1"></TD>
          <TD width=6 background=default-filer/win_left.gif height="1">&nbsp;</TD>
          <TD width=415 bgColor=#ffffff height="1">
             <TABLE cellSpacing=0 cellPadding=0 width=414 border=0 style="border-collapse: collapse" bordercolor="#111111" height="1">
              <TBODY>
              <tr>
                <TD height=1 width="4"></TD>
                <TD align="right" height="1">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="410" height="1">
                  <tr>
                    <td width="410" height="1" colspan="5"></td>
                  </tr>

                  <tr>
                    <td width="131" height="1">
                    <font face="Arial">
                    <img border="0" src="Bilder/1pxtrans2.gif"><br>
                    <img border="0" src="Bilder/1pxtrans2.gif"><br>
                    </font>
                    <b><font face="Arial" size="2">Användare:</font></b></td>
                    <td width="106" height="1">
                    <b><font face="Arial" size="2">Stad:</font></b></td>
                    <td width="114" height="1">
                    <b><font face="Arial" size="2">Min. online:</font></b></td>
                    <td width="59" height="1" colspan="2">
                    <b><font face="Arial" size="2">Bild:</font></b></td>
                  </tr>

                  <tr>
                    <td width="410" height="1" colspan="5">
                    <font face="Arial">
                    <img border="0" src="Bilder/Streck.gif" width="407" height="1"></font></td>
                  </tr>
                  <tr>
                    
<font face="Arial">

<%

rs.movefirst
   rs.pagesize = mypagesize
   maxcount = Cint(rs.pagecount)
   rstemp.absolutepage = mypage
   
   
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not RS.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#F0F0F0"
   End If
%> </font>

                    <td width="131" height="1" bgcolor="<%= color %>">

                    <font size="1" face="Arial">&nbsp;<img border="0" src="Bilder/relationonline.gif">&nbsp;<a href="krypin.asp?checkid=<%=rs("id")%>"><%Response.Write RS("username")%></a>&nbsp;<%=left(rs("kon"),1)%><%=RS("alder")%></font></td>                                            
                    <td width="106" height="1" bgcolor="<%= color %>">
                    <font size="1" face="Verdana">
    <%=RStemp("stad")%></font><font size="1" face="Arial"> </font>
                     </td>                                            
                    <td width="114" height="1" bgcolor="<%= color %>">
                    <font size="1" face="Arial"><%Response.Write RS("minonline")%> 
                    min.</font></td>                                            
                    <td bgcolor="<%= color %>" width="57">
                             </font>  
                    <td height="1" width="2">
                    <font face="Arial"><font size="1">&nbsp;</font></td>  
             </tr> 

 <%
RS.Movenext
howmanyrecs = howmanyrecs + 1
Loop
RS.Close
Cn.Close

%> </font>

                </table>                
                </TD>
              </tr>
              <tr>

                    <td height="5" colspan="2" align="center">
                    <font size="1" face="Arial">
                    <img border="0" src="Bilder/1pxtrans2.gif"><br>
                    <img border="0" src="Bilder/1pxtrans2.gif"><img border="0" src="Bilder/Streck.gif" width="407" height="1"><br>
                    <img border="0" src="Bilder/1pxtrans2.gif" width="1" height="3"></font></td>
                  </tr>
              </TBODY></TABLE>

            <TABLE cellSpacing=0 cellPadding=0 width=415 border=0 height="1">
              <tr>
                <TD height="1" width="24" align="left">
                <font face="Arial" size="1">
                <IMG height=1 src="default-filer/1x1.gif" 
              width=5></font></TD>
                <TD height="1" valign="top" rowspan="2">
  </TD>                
                <TD height="1" width="20" align="right" rowspan="2">
 </TD><%
   If maxcount <> 0 then
  
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   Next
   End If
%>
              </tr>               
              <tr>
                <TD height="0" width="24" align="left">
                &nbsp;</TD>
              </tr>               
              </TABLE>
     </TD>
          <TD width=9 background=default-filer/win_right.gif height="1">
          <p align="left"><font face="Arial"><IMG height=1 
            src="default-filer/1x1.gif" width=1 border=0></font></TD></TR>
              </TBODY></TABLE>
      </TD>
      
    </TR>
      </TBODY></TABLE>
  </center>
</div>               
     
      </BODY></HTML>
SPiNMedlem sedan mars 20007 896 inlägg
#2

Och vilken rad är rad 109?

antarMedlem sedan dec. 2001289 inlägg
#3

rs.absolutepage = mypage

antarMedlem sedan dec. 2001289 inlägg
#4

Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.

SPiNMedlem sedan mars 20007 896 inlägg
#5

Varför har du två stycken recordset's? Du försöker använda rstemp, som inte är öppnat - därav felmeddelandet skulle jag gissa på.

Varför har du med ett recordset som heter rstemp? Du använder det aldrig ju!

------------------
SPiN, bjorne.w@telia.com

-- En ask vet jag stånda - den Yggdrasil heter, ett väldigt träd överöst av vita sanden. --

antarMedlem sedan dec. 2001289 inlägg
#6

nope har inte rstemp

antarMedlem sedan dec. 2001289 inlägg
#7

ops jo fast nu får jag

ADODB.Recordset (0x800A0CB3)
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.
/onlinelistan.asp, line 99

rs.absolutepage = mypage

PatrikBMedlem sedan mars 20002 836 inlägg
#8

för att recordsetet är inte "ställt" så att du får "röra" dig fritt i det.
Du måste lägga till:

rs.CursorType = 1
rs.LockType = 3

eller

rs.Open strSQL, objConn, 1, 3

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

PatrikBMedlem sedan mars 20002 836 inlägg
#9

denna rad:
set rs=conn1.execute(strsql1)

skapar ett nytt recordset och förstör det som du skapade med ADODB.Recordset.

För att kunna använda denna metod av paging MÅSTE du använda dig av ADODB.Recordset så ovanstående rad kan du fimpa.

rs.PageSize måste oxå sättas innan du öppnar recordsetet, lixom CursorType och LockType.

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

antarMedlem sedan dec. 2001289 inlägg
#10

såhär???:
Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
strsql1 = "SELECT * FROM members where status = 'online'"

Set Rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
rs.cachesize = 5

rs.Open strsql1, objConn, 1, 3
%>

antarMedlem sedan dec. 2001289 inlägg
#11

hoooohooo

PatrikBMedlem sedan mars 20002 836 inlägg
#12

med dina variabler:

rs.Open strsql1, Conn1, 1, 3

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

antarMedlem sedan dec. 2001289 inlägg
#13

tack så mycket missade det :-)

265 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
116 ms — deklarationer (db)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)