Med risk för påhopp säger jag igen: prova sökfunktionen: §e
Kolla även i skriptarkivet, där finns exempel på utmärkt paging.
RED:
En bra länk med förklaringar:
http://www.webforum.nu/showthread.php?s=&threadid=13551&highlight=paging
Frågan#1
Hej!..
jag undrar om ni vill hjälpa mig sätta paging på det här.. jag har gjort det för .. men när det blir flera sidor och man ska kolla typ på sida 2 så visas inte medlemmens gästboksinlägg det blir tomt jag vet inte hur jag ska göra så att den fortsätter visa medlemmens gästboksinlägg
<html>
<!-- #include file="adovbs.inc" -->
<% Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("databass.mdb")&";pwd=password"
SQL = "Update gastbok set Last = 'ja' where tillid =" & session("id") & " "
Con.Execute(SQL)
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databass.mdb")&";pwd=password"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select top 3 * from gastbok Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<style type="text/css">
<!--
.Rubrik { font-family: Tahoma; font-size: 11px; color: #000000 }
-->
</style>
<head>
<meta http-equiv="Content-Language" content="sv">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Välkommen</title>
<base target="_self">
</head>
<body bgcolor="#000000">
<p> </p>
<div align="right">
<TABLE WIDTH=322 BORDER=0 CELLPADDING=0 CELLSPACING=0 style="border-collapse: collapse">
<TR>
<TD width="20">
<p align="center">
<IMG SRC="upner3.gif" width="20" height="22"></p>
</TD>
<TD width="470">
<p align="center">
<IMG SRC="ovre_bild.gif" width="319" height="22"></p>
</TD>
<TD width="22">
<p align="center">
<IMG SRC="sin.gif"></p>
</TD>
</TR>
<TR>
<TD background="vanster_linje.gif" bgcolor="#FFFFFF" width="20">
<p align="center">
</p>
</TD>
<TD bgcolor="#FFFFFF" width="470">
<p style="margin-top: 0; margin-bottom: 0" align="left"><br>
<font face="Tahoma" size="2">
<b><font class="Rubrik">Gästbok
[</font><a href="javascript:liten()" style="text-decoration: none"><font class="Rubrik"></font></a><font class="Rubrik">]</font></b></p>
<hr color="#C9CDD1" width="90%">
<font face="Tahoma" size="1">
<table width="200" border="1" cellspacing="0" cellpadding="2" style="border-style:solid; border-collapse:collapse">
<tr>
<td valign="top" bgcolor="#FFFFFF" width="386">
<table width="295" border="0" cellspacing="0" cellpadding="0">
<%
if recset.eof then
response.write ("inga inlägg")
else
Do Until RecSet.EOF %>
<tr>
<td width="47"><b>
<font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<img border="0" src="<%=recset("bild")%>" align="left" width="39" height="53"></font></b></font></td>
<td width="248"><font face="Tahoma" size="1"> <a href="vem.asp?id=<%=Recset("franid")%>" style="text-decoration: none"><%=RecSet("av")%></a>
- <font color="#FF0000"><%=RecSet("datum")%><%
if recset("Last") = nej then recset("last") = ja end if %><br></font><%=Replace(TRIM(Server.HTMLEncode(RecSet("syfte"))),vbcrlf,"<br>")%></td>
</tr>
<tr>
<td width="295" colspan="2">
<hr width="50%" size="1" color="#8BD8F1">
</td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</table>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b>
Skriv i gästboken</b></font></p>
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>">
<p>
<input type="hidden" name="Last" size="20" value="Nej"><br>
<textarea rows="2" name="Syfte" cols="32"></textarea><br>
</font><font face="Tahoma" size="1"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><input type="submit" name="Submit" value="Skicka" class="knapp" style="background-image: url('file:///C:/Mina%20dokument/Community/nysida/bakgrundfin.gif'); font-family:Tahoma; font-size:10px"></font></p>
</form>
</td>
</tr>
</table>
</TD>
<TD background="hoger_linje.gif" width="22">
<p align="center">
</p>
</TD>
</TR>
<TR>
<TD width="20">
<p align="center">
<IMG SRC="sin1.gif"></p>
</TD>
<TD width="470">
<p align="center">
<IMG SRC="upner.gif" width="319" height="22"></p>
</TD>
<TD width="22">
<p align="center">
<IMG SRC="upner4.gif" width="22" height="22"></p>
</TD>
</TR>
</TABLE>
</div>
</body>
<% end if %>
</html>