4 svar · 883 visningar · startad av clacke
Jag har lagt in ett paging script på en sida
och jag får följande felmeddelande:
ADODB.Recordset error '800a0cb3'
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.
och raden den säger till om:
if not rsPage.eof then rsPage.AbsolutePage = cint(sida)
Visa kod.
Du måste öppna recordsettet på rätt sätt, t.ex med konstanterna adOpenStatic och adLockPessimistic.
http://www.devguru.com/Technologies/ado/quickref/recordset_open.html
Ok anders här är koden:
[kod]
<% option explicit %>
<!-- #INCLUDE FILE="../adovbs.inc" -->
<!--#include file="../koppling.asp" -->
<% if session("admin") <> true then
response.redirect("logout.asp")
end if
dim rs2, sql2, conn, strConn, rs,sql, rumId, sql3, best_id, sql4, rs4, sql5, rs5, sql6, rs6,da,dag, sida, rad, i, rsPage
rumId = cint(request.querystring("rumId"))
sida = TRIM(Request.querystring("sida"))
if sida = "" then sida = 1
sql2 = "SELECT \* FROM room;"
set rs2 = conn.execute(sql2)
if rumId \< 1 then rumId = rs2("rum_id")
da=date()
dag=Cstr(da)
if request.querystring("design") \<\> "" then
best_id = cint(request.querystring("design"))
sql3="Delete FROM tidsbest WHERE best_id="& best_id &" OR best_id2="&best_id&";"
Conn.Execute(sql3)
'response.redirect("bokning.asp?rumId="& rumId)
'kolla efter dubbelbokad tid...
sql = "SELECT \* FROM dubbelbokning WHERE dubbelbokad_id = "& best_id &";"
set rs = conn.execute(sql)
if not rs.eof then
if rs("bokad") = true then
sql6 = "SELECT \* FROM allatider WHERE tider = '"& rs("tid_id") &"';"
set rs6 = conn.execute(sql6)
sql = "INSERT INTO tidsbest(anv_id,tid_id, till_id,datum,rum_id, sort_id, antal, meddelande) VALUES("& rs("anv_id")&", "& rs6("tid_id") &", '"& rs("till_id") &"', '"& rs("datum") &"', "& rs("rum_id") &", "& rs("sort_id") &", "& rs("antal") &", '"& rs("meddelande") &"')"
conn.execute(sql)
sql5 = "SELECT \* FROM tidsbest WHERE anv_id = "& rs("anv_id") &" AND tid_id = "& rs6("tid_id")&" AND rum_id = "& rs("rum_id") &" AND datum = '"& rs("datum") &"';"
set rs5 = conn.execute(sql5)
dim b
b = 1
while b \< rs("antal")
sql = "INSERT INTO tidsbest(anv_id, tid_id, best_id2, datum, rum_id) VALUES("& rs("anv_id") &", "& rs6("tid_id") + b &", "& rs5("best_id") &", '"& rs("datum") &"', "& rs("rum_id") &")"
conn.execute(sql)
b = b + 1
wend
end if
sql = "DELETE FROM dubbelbokning WHERE dubbelbokad_id = "& best_id &";"
conn.execute(sql)
end if
'slut dubbelbokning...
end if
if request.querystring("dubbelbokning") \<\> "" then
best_id = cint(request.querystring("dubbelbokning"))
sql3 = "UPDATE dubbelbokning SET anv_id = " & 0 & ", bokad = "& 0 &", tid_id = '"& "" &"', till_id = '"& "" &"' WHERE best_id = "& best_id &";"
conn.execute(sql3)
end if
'set rs = nothing
Set rsPage = Server.CreateObject ("ADODB.Recordset")
rsPage.CursorType = adOpenStatic
rsPage.PageSize = 30 'ANTALET POSTER MAN VILL VISA PÅ VARJE SIDA...
rsPage.open "SELECT \* FROM tidsbest,users,allatider,room where tidsbest.anv_id=users.anv_id AND users.anv_id=tidsbest.anv_id AND allatider.tid_id=tidsbest.tid_id AND room.rum_id= tidsbest.rum_id AND tidsbest.rum_id = "& cint(rumId) &" ORDER BY datum, tider;", conn
'rsPage.open "SELECT \* FROM tidsbest INNER JOIN users ON tidsbest.anv_id = users.anv_id WHERE tidsbest.rum_id = "& rumId &";", conn
if not rsPage.eof then rsPage.AbsolutePage = cint(sida)
%>
<html>
<head>
<title>Bokade tider</title>
<link rel="stylesheet" href="../css/bokning_css.asp" type="text/css">
</head>
<body topmargin="0" class="main">
<table width="770" height="380" border="0" align="center" cellpadding="10" cellspacing="0" class="tabellram">
<tr>
<td align="center" colspan="7" height="65" valign="top"> <b>Välj typ av bokning!</b>
<p>
<%while not rs2.eof
if rs2("rum_id") = rumId then
response.write("<b><a href='bokning.asp?rumId="& rs2("rum_id") &"'>"& rs2("rumsnamn") &"</a></b> ")
else
response.write("<a href='bokning.asp?rumId="& rs2("rum_id") &"'>"& rs2("rumsnamn") &"</a> ")
end if
rs2.movenext
wend
%>
</p>
</td>
</tr>
<tr valign="top"><td>
<table width="100%">
<%'if rumId <> "" then%>
<tr>
\<td align="center" width="18%"\>\<b\>Bokade datum\</b\>\</td\>
\<td align="center" width="29%"\>\<b\> Namn\</b\>\</td\>
\<td align="center" width="8%"\>\<b\> Platsnr\</b\>\</td\>
\<td align="center" width="24%"\>\<b\> Telefon\</b\>\</td\>
\<td align="center" width="21%"\>\<b\> Ta bort\</b\>\</td\>
\</tr\>
\<tr\>
\<td colspan="6"\>
\<hr noshade\>
\</td\>
\</tr\>
\<% rad = 0
while not rsPage.eof and rad \< rsPage.PageSize
if rsPage("rum_id") = rumId AND rsPage("best_id2") = 0 then
rad = rad + 1
if rsPage("datum") = dag then %\>
\<tr valign="top"\>
\<td align="center" class="idag" width="18%"\> \<%=rsPage("tider")%\> - \<%=rsPage("till_id")%\>\</td\>
\<td align="center" class="idag" width="29%"\> \<%=rsPage("namn")%\>\</td\>
\<td align="center" class="idag" width="8%"\>\<a href="mailto:\<%=rsPage("rumsnamn")%\>"\>\<%=rsPage("rumsnamn")%\>\</a\>\</td\>
\<td align="center" class="idag" width="24%"\> \<%=rsPage("telenr")%\>\</td\>
\<td align="center" class="idag" width="21%"\> \<a href="bokning.asp?design=\<%=rsPage("best_id")%\>&rumId=\<%=rumId%\>"\>Ta
bort\</a\>\</td\>
\</tr\>
\<%if rad = rsPage.PageSize then%\>
\<tr\>
\<td colspan="6"\>\<hr noshade\>\</td\>
\</tr\>
\<TR\>
\<td colspan="6" align="center"\>Sida: \<%=sida%\>
\<%if not sida \< 2 then%\>
\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>
\<%end if%\>
\<%if not sida = rsPage.PageSize then%\>
\<A HREF="bokning.asp?sida=\<%=sida+1%\>&rumId=\<%=rumId%\>"\>Nästa\</A\>
\<%end if%\>
\</TD\>
\</TR\>
\<%end if%\>
\<% else %\>
\<tr valign="top"\>
\<td align="center" width="18%"\> \<%=rsPage("tider")%\> - \<%=rsPage("till_id")%\>\</td\>
\<td align="center" width="29%"\> \<%=rsPage("namn")%\>\</td\>
\<td align="center" width="8%"\>\<a href="mailto:\<%=rsPage("rumsnamn")%\>"\>\<%=rsPage("rumsnamn")%\>\</a\>\</td\>
\<td align="center" width="24%"\> \<%=rsPage("telenr")%\>\</td\>
\<td align="center" width="21%"\> \<a href="bokning.asp?design=\<%=rsPage("best_id")%\>&rumId=\<%=rumId%\>"\>Ta
bort\</a\>\</td\>
\</tr\>
\<%if rad = rsPage.PageSize then%\>
\<tr\>
\<td colspan="6"\>\<hr noshade\>\</td\>
\</tr\>
\<TR\>
\<td colspan="6" align="center"\>Sida: \<%=sida%\>
\<%if not sida \< 2 then%\>
\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>
\<%end if%\>
\<%if not sida = rsPage.PageSize then%\>
\<A HREF="bokning.asp?sida=\<%=sida+1%\>&rumId=\<%=rumId%\>"\>Nästa\</A\>
\<%end if%\>
\</TD\>
\</TR\>
\<%end if%\>
\<% end if
if rsPage("antal") \> 9 then
sql4 = "SELECT \* FROM dubbelbokning INNER JOIN users ON users.anv_id = dubbelbokning.anv_id WHERE dubbelbokad_id = "& rsPage("best_id") &";"
set rs4 =conn.execute(sql4)
if not rs4.eof then%\>
\<tr valign="top"\>
\<td align="center" width="18%"\> \<%=rs4("tid_id")%\> - \<%=rs4("till_id")%\>\</td\>
\<td align="center" width="29%"\> \<%=rs4("namn")%\>\</td\>
\<td align="center" width="8%"\>\<a href="mailto:\<%=rs4("rumsnamn")%\>"\>\<%=rs4("rumsnamn")%\>\</a\>\</td\>
\<td align="center" width="24%"\> \<%=rs4("telenr")%\>\</td\>
\<td align="center" width="21%"\> \<a href="bokning.asp?dubbelbokning=\<%=rs4("best_id")%\>&rumId=\<%=rumId%\>"\>Ta
bort\</a\>\</td\>
\</tr\>
\<% end if
end if
end if
rsPage.movenext
wend
'end if %\>
\<%'if cint(sida) = rsPage.PageCount then%\>
\<%if cint(sida) = rsPage.PageCount then%\>
\<tr\>
\<td colspan="6"\>\<hr noshade\>\</td\>
\</tr\>
\<TR\>
\<td colspan="6" align="center"\>Sida: \<%=sida%\>
\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>
\</TD\>
\</TR\>
\<%end if%\>
\</table\>
\</td\>\</tr\>
</table>
<center>
<br>
<%'<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="C:\Inetpub\wwwroot\manmade\camping\myinfo.asp" orig="%3C!--#include file=%22../myinfo.asp%22 --%3E" %>
<% response.write ("<div class='myinfo' align='center'>copyright©<a href='mailto:info@manmade.se'>manmade.</a>2003</div>") %>
<MM:EndLock>%>
</center>
</body>
</html>
<% conn.close
set conn = nothing
%>
Det är helt klart något fel som är trasigt. Men du ger oss för mycket oläsbar kod, så jag kan inte hjälpa till.
Mvh