Hej :)
Jag använder en gästbok med mdb - Jag kan ange hur många inlägg som ska visas men hur fixar jag till så man kan bläddra i gästbokens tidigare sidor? Visst är det detta kommando? AllowPaging="True"

Men var sjutton stoppar jag in det nånstans? Tacksam för hjälp.

Här är koden:

<%

Set rsvisa = Server.CreateObject("ADODB.Recordset")
SQL = "select * from gastbok order by datum desc"
rsvisa.Open SQL, Connect, 3,3
'Number of messages to show per page/ Antal meddelande per sida
rsvisa.pagesize = 20
page = Request.QueryString("page")

If page = "" then page = 1

if rsvisa.EOF then
Response.write noguests
Else

rsvisa.AbsolutePage = page
totalPages = rsvisa.PageCount

Do until rsvisa.EOF or fldcounter = rsvisa.pagesize

If strBGColor = "#ffffff" then strBGColor = "#f2f2f2" else strBGColor = "#ffffff"
fldcounter = fldcounter + 1

%>


<div class="comment1">
<p class="com3"><%= author %>:
<% = rsvisa("namn") %>
&nbsp; <% = rsvisa("datum") %><br /><% if rsvisa("status") = "private" then
%>
<%= privatemess2 %><% else
%></p>
</div>
<div class="comment2"><p class="com">
<% = rsvisa("meddelande") %> <br /><% end if
%>
<% if rsvisa("answer") > "" then
%></p>
</div>
<div class="comment3">
<p class="com2"><span class="bla"><%= answer %></span><br /><br /> <%= rsvisa("answer") %>
<% else
end if%></p>
<p class="com">
E-mail: ">
<% = rsvisa("email") %>
<br />
<%= Homepage %>:" target="_blank">
<% = rsvisa("url") %><br />
IP: <% = rsvisa("ip") %>
</p>
</div>
<%


rsvisa.movenext
loop
End If%>
<p>
<%
i = 0
For i = 1 to rsvisa.PageCount

If (Int(i)) = (Int(page)) then
Response.write "<b>"& i &"</b> &nbsp;"
Else
Response.write ""& i &""" &nbsp;"
End If
Next


If page = 1 then
Response.write ""

ElseIf (Int(totalPages)) = (Int(page)) then
Response.write ""

Else
Response.write ""
Response.write ""
End If
%>
</p>
<%
rsvisa.close
set rsvisa=nothing


case "addpost"
if request.form("namn") > "" and request.form("meddelande") > "" then

strnamn=CStr(request.form("namn"))
strurl=CStr(request.form("url"))
stremail=Cstr(request.form("email"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")

strMeddelande=Replace(strMeddelande,"[:)]","<img src='images/glad.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:(]","<img src='images/ledsen.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:V]","<img src='images/arg.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[;)]","<img src='images/ironi.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:D]","<img src='images/skratt.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:O]","<img src='images/oops.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[:V:]","<img src='images/sur.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"[8D]","<img src='images/cool.gif alt=""' />")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"<br />")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop


strRubrik=Replace(strRubrik,"'","''")
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & strnamn & "','" & strip & "','" & strurl & "','" & stremail & "','" & strMeddelande & "','" & strprivate & "')")
response.redirect("index.asp")
else
response.write(postcheck)
end if
end select
%>

Med vänlig hälsning Lillan

Se Artikel [Paging! Hur man delar upp ett recordset på flera sidor]

Tack men jag fick lägga till en sluttagg i page funktionen. Nu kommer nästa problem, man ska kolla så att inte intpage variablen är tom. Jag har skickat upp allt som det stod och vet inte exakt VAD för siffra jag ska lägga in. Jag antar att det är i denna del: If intPage = "" . Men VAD ska jag skriva in där? Hur ska jag veta hur många sidor det kommer att bli?

*## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --



Felkod på själva sidan:
Microsoft VBScript compilation error '800a0400'

Expected statement
index.asp, line 183

*## -- kontrollera så att inte intPage variabeln är tom --
^

mvh/Lillan

Finns det INGEN här inne som kan svara på VAR jag ska lägga in koden och VILKEN siffra jag ska ange så inte variablen svarar att den är tom?????????

Det första tecknet på raden...

*## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --

...skall inte vara en * utan en '

Prova att byta ut det tecknet och se om det fungerar bättre.

/ Per

Hjälpte föregående tips?

/ Per