---
title: "Skulle ni kunna hjälpa"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44341-skulle-ni-kunna-hjälpa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sin_adec"
published: "2002-05-22T14:49:44.000Z"
updated: "2002-05-22T18:09:35.000Z"
replies: 1
views: 238
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/44341-skulle-ni-kunna-hjälpa"
---

# Skulle ni kunna hjälpa

## #1 — sin_adec, 2002-05-22T14:49Z

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&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            [</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>
        &nbsp;<input type="hidden" name="Last" size="20" value="Nej"><br>
        <textarea rows="2" name="Syfte" cols="32"></textarea><br>
&nbsp;</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>
```

Permalänk: https://www.webforum.nu/p/44341

## #2 — LAMP, 2002-05-22T18:09Z

Med risk för påhopp säger jag igen: prova sökfunktionen: §e

<http://www.webforum.nu/search.php?s=&action=showresults&searchid=40196&sortby=lastpost&sortorder=descending>

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>

Permalänk: https://www.webforum.nu/p/680761

---

Tråden på webben: https://www.webforum.nu/amne/asp/44341-skulle-ni-kunna-hjälpa
