--- title: "Paging skit!!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/65935-paging-skit" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "olle91091" published: "2003-01-23T19:02:09.000Z" updated: "2003-01-24T08:33:39.000Z" replies: 5 views: 408 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/65935-paging-skit" --- # Paging skit!! ## #1 — olle91091, 2003-01-23T19:02Z Hur jag en försöker med paging får jag bara upp: Microsoft VBScript compilation error '800a03fb' Expected 'Loop' /olle91091/gratisgb/lgastbok.asp, line #linjen# Snälla hjälp mig min nuvarande kod är: \<% If Request.Querystring("id") = "" Then Response.Redirect "default.asp" Else End if Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("gastbok.mdb")&";pwd=\*\*\*\*\*\*\*" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera2 = "Select \* From medlemmarT Where ID = "&Request.QueryString("id") &" Order By Datum DESC" RecSet.Open Addera2, Connect, adOpenStatic, adLockOptimistic if RecSet("Sprak") = "en" then Session("titel22") = "Welcome to " & RecSet("Titel") Session("titel33") = "Write in the guestbook" Session("namn") = "Name:" Session("epost") = "E-mail:" Session("hemsida") = "Homepage:" Session("land") = "Country:" Session("stad") = "City:" Session("skicka") = "Send" Session("tillbaka") = "Back" end if if RecSet("Sprak") = "se" then Session("titel22") = "Välkommen till " & RecSet("Titel") Session("titel33") = "Skriv i gästboken" Session("namn") = "Namn:" Session("epost") = "E-post:" Session("hemsida") = "Hemsida:" Session("land") = "Land:" Session("stad") = "Stad:" Session("skicka") = "Skicka" Session("tillbaka") = "Tillbaka" end if %\> \ \ \\<%=RecSet("Titel")%\>\ \ \ \" bgColor="\<%=RecSet("Bg")%\>" text="\<%=RecSet("Txtcolor")%\>" \> \\\<%=Session("titel22")%\>\\ \ \ \

\ \ \"\>\\<%=Session("titel33")%\>\ \"\>Till hemsidan\\ \ \

"\> \"\> \<%=Session("namn")%\> \ \\<%=Session("epost")%\> \ \\<%=Session("hemsida")%\> \ \\<%=Session("land")%\> \ \\<%=Session("stad")%\> \ \Humör: \

\\\\ \ \

\</textarea\>
        \<br\>
        \<input type="submit" name="Submit" value="\<%=Session("skicka")%\>" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)"\>
\</font\> 
      \</form\>
Smileys:
\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':)';"\>\<img src="bilder/glad.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':D';"\>\<img src="bilder/D.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':(';"\>\<img src="bilder/ledsen.gif" border="0"\>\</a\>
\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':arg1:';"\>\<img src="bilder/arg.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':arg2:';"\>\<img src="bilder/arg2.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':bira:';"\>\<img src="bilder/bira.gif" border="0"\>\</a\>
\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':finger:';"\>\<img src="bilder/fingret.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':ler:';"\>\<img src="bilder/ler.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':love:';"\>\<img src="bilder/love.gif" border="0"\>\</a\>
\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':skrattar:';"\>\<img src="bilder/skrattar.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':slurk:';"\>\<img src="bilder/slurk.gif" border="0"\>\</a\>\<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':tunga:';"\>\<img src="bilder/tunga.gif" border="0"\>\</a\>\<BR\>

\</td\>
  \</tr\>

\<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<a href="javascript:history.go(-1);"\>\<%=Session("tillbaka")%\>\</a\> 
  \</font\> \</p\>
\<hr\>

\<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("gastbok.mdb")&";pwd=\*\*\*\*\*\*\*"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From gastbokT Where mID = "&Request.QueryString("id") &" Order By Datum DESC"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>

\<tr\> 
    \<td valign="top" colspan="3"\> 
      \<table width="100%" border="0" cellspacing="0" cellpadding="0"\>
        \<% Do Until RecSet.EOF %\>      
       \<tr\> 
          \<td\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<img src="\<%=RecSet("Smil")%\>"\> \<b\>\<font color="#000000"\>\<%=RecSet("Namn")%\> - \<%=RecSet("Datum")%\>\</font\>\</b\>\</font\> \| 
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<b\>\<a href="mailto:\<%=RecSet("Epost")%\>"\>\<%=Session("epost")%\>\</a\> - \<a href="\<%=RecSet("Hemsida")%\>"\>\<%=Session("hemsida")%\>\</a\> - \<%=RecSet("Stad")%\> \<%=RecSet("Land")%\>\</B\>\</font\>
\</td\>
\<tr\>
\<td\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<% =bildtext(RecSet("Txt")) %\>\</font\>
\</td\>
\</tr\>
        \</tr\>
        \<tr\> 
          \<td\>\</td\>
        \</tr\>
        \<tr\> 
          \<td\> 
            \<hr width="100%" size="1"\>
          \</td\>
        \</tr\>
\<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
%\>

\</table\>
\<br\>
\<center\>
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>En Gratis gästbok från
\<a target="\_blank" href="http://hem.passagen.se/olle91091/index.htm" style="text-decoration: none"\>olle.cooling.nu\</a\>\</font\>
\<center\>
\<br\>
\</table\>\<Center\> \</center\>
\</body\>
\</html\>

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

## #2 — PersianBulldog, 2003-01-23T19:05Z

Ska denna verkligen vara här?

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

## #3 — solbulle, 2003-01-23T19:12Z

Stäng ditt första RecSet innan du öppnar det nya.

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

## #4 — olle91091, 2003-01-24T06:44Z

Ok men hur?????

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

## #5 — Tengblad, 2003-01-24T08:06Z

Flyttad från Ideella jobb & tjänster.

Tengblad
Moderator, webForum

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

## #6 — OveRRidE, 2003-01-24T08:33Z

Intressant topic, där. ;)

Välkommen till wF olle och läs gärna [riktlinjerna i ASP, VBScript-forumet](http://www.webforum.nu/showthread.php?s=&threadid=55116)! :)

MVH
OveRRidE

moderator, webForum

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/65935-paging-skit