16 svar · 359 visningar · startad av sven
Jag har denna koden för att läsa i min gästbok. Det funkar som det ska.
<%
Set Rs = Server.Createobject("Adodb.Recordset")
SQL = "SELECT * FROM guestbook ORDER BY datum"
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1
with Rs
.cursorlocation = 3
.open SQL, db
.pagesize = 5
.absolutepage = intPageId
end with
intPages = cint( Rs.pagecount )
intCurrentPost = 0
Function Radbryt(rfix)
rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix
End Function
do while not Rs.eof and intCurrentPost < Rs.pagesize
strContents = strContents %><tr><td width="180" align="left"><b><a href="mailform.asp?do=<%=rs("epost")%>&name=<%=rs("fran")%>"><%=rs("fran")%></a></b></td>
<td width="120" align="right"><b><%=rs("datum")%></b></tr>
<tr><td width="400" colspan="2"><%=radbryt(rs("meddelande"))%></td></tr>
<tr><td with="400" colspan="2"></td></tr>
<%
intCurrentPost = intCurrentPost + 1
Rs.movenext
loop
for i = 1 to Rs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>"
%>
Men om databasen är tom så blir det fel. Jag måste altså någonstans peta in If rs.EOF then
Response.Write "Gästboken är tom"
else
Frågan är nu. Var gör jag det?
Lättviktsmodellen kommer här:
Varför inte lägga in ett litet inlägg av dig själv, där du uppmanar andra till att skriva inlägg?
Annars är det väl:
If rs.EOF then
Response.Write "Keine inlägg here"
Else
do while not Rs.eof and intCurrentPost < Rs.pagesize
MVH Jesper T
Det är klart att man kan göra ett eget inlägg. Men jag vill helst få det att funka helt ut om du förstår.
Problemet är inte koden. Problemet är var den skall vara.
Eller jag vet inte... Plötslight blir allt bara svart.... 
<%
Set Rs = Server.Createobject("Adodb.Recordset")
SQL = "SELECT * FROM guestbook ORDER BY datum"
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1
with Rs
.cursorlocation = 3
.open SQL, db
.pagesize = 5
.absolutepage = intPageId
end with
intPages = cint( Rs.pagecount )
intCurrentPost = 0
Function Radbryt(rfix)
rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix
End Function
[b]If Rs.EOF Then
Response.Write "Inga meddelande in gästboken ännu."
Else[/b]
do while not Rs.eof and intCurrentPost < Rs.pagesize
strContents = strContents %><tr><td width="180" align="left"><b><a href="mailform.asp?do=<%=rs("epost")%>&name=<%=rs("fran")%>"><%=rs("fran")%></a></b></td>
<td width="120" align="right"><b><%=rs("datum")%></b></tr>
<tr><td width="400" colspan="2"><%=radbryt(rs("meddelande"))%></td></tr>
<tr><td with="400" colspan="2"></td></tr>
<%
intCurrentPost = intCurrentPost + 1
Rs.movenext
loop
[b]End If[/b]
for i = 1 to Rs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>"
%>
Tyvärr... funkar inte...
Får fel på raden
.absolutepage = intPageId
som inte gillar att databasen är tom
Du får köra iffen innan den raden. Får väl ta och skippa with prylen. 
Man kan ju göra så... men det är inte rätt...
Det beror väl på i vilket syfte man gör olika saker och ting.
Om man tex försöker förstå sig på grejor så är det väl ganska viktig... eller?
Är inte rätt? Hur ska man annars göra? Det går inte att ange AbsolutePage på ett recordset som är EOF....
Så om jag nu förstår vad du säger är att det inte går att ha paging och en tom databas?
Självklart går det. Men du måste kolla om det är tomt innan du skriver Rs.AbsolutePage. Exempel:
If Not Rs.EOF Then Rs.absolutepage = intPageId
lägg in on error resume next så ska det gå om ajg fattar rätt hehe
[Redigerat av jboy_87 den 12 feb 2002]
Lysande jboy_87 .... Tänk så enkelt det kan vara ändå...
Varför köra med något som On Error Resume Next istället för att lära sig koda korrekt kod?
Skall testa ditt förslag också....
Tack Erik... det funkar.....