Om ni går in på min sida:
http://www.tillmar.net/diskussion/gastbok/default.asp
så ser ni att jag får ett felmess...det har med pagingen att göra
har testat en massa olika och alla funkar på min hemma dator men när jag laddar upp det till mitt webhotell så funkar det inte!
Kod:
<%
Set MinConn = Server.CreateObject("Adodb.Connection")
Set Rs = Server.Createobject("Adodb.Recordset")
Sql = "Select * from gastbok order by datum desc"
MinConn.open "driver=MySQL;server=localhost;uid=hemligt;pwd=hemligt;database=wis1840"
PageId = request.querystring( "pageid" )
if PageId = "" then PageId = "1"
with Rs
.cursorlocation = 3 'adUseClient
.open SQL, MinCOnn 'öppnar databasen och hämtar info.
.pagesize = 3 'bestämmer hur många poster per sida.
.absolutepage = PageId 'bestämmer vilken sida som skall visas.
end with
Pages = cint( Rs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
CurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.
do while not Rs.eof and intCurrentPost < Rs.pagesize%>
<table width="529" border="0" cellspacing="0" cellpadding="3" style="border-collapse: collapse; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" bordercolor="#000000">
<tr>
<td bgcolor="#A7B1C2" width="523">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="50%"><b><%=RS("namn")%></b>_</td>
<td width="50%"><%if session("inloggad") = "true" then%><p align="right"><a href="javascript:popup('svara.asp?id=<%=RS("gb_id")%>',438,330);">Svara</a> - <a href="delete.asp?id=<%=RS("gb_id")%>">Ta bort!</a> -
<a href="#" onclick="alert('<%=RS("IP")%>');">Ip<% end if%></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#D0D6DF" width="523"><%=forumkod(RS("gb_inlagg"))%>
<br>..................................................................................................................................
<br><i><font color="#800000">Svar:<br>
<% if rs("svar") = "kommer" then
Response.Write("Webmaster har inte svarat på detta inlägg än!")
Else%>
<%=RS("svar")%></i><% end if %></font> </td>
</tr>
<tr>
<td bgcolor="#A7B1C2" width="523">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="67%"><%=RS("datum")%></td>
<td width="33%"><p align="right"><a href="mailto:<%=RS("Email")%>">
<img border="0" src="/diskussion/gastbok/bilder/mail.gif" alt="Klicka här för att mejla: <%=RS("namn")%> (<%=RS("Email")%>)"></a>_
<a href="<%=RS("hemsida")%>">
<img border="0" src="bilder/http.gif" alt="Gå till <%=RS("NAMN")%>'s Hemsida (<%=RS("HEMSIDA")%>)"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<br><br>
<%
intCurrentPost = intCurrentPost + 1
Rs.MoveNext
loop
for i = 1 to Rs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write strNavigation
Rs.Close
MinConn.close
Set MinConn = nothing
Set Rs = nothing
%>
felet är på denna rad:
.absolutepage = PageId 'bestämmer vilken sida som skall visas.
/pontus