---
title: "Problem med Gästbok"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68126-problem-med-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppez"
published: "2003-02-13T07:23:38.000Z"
updated: "2003-02-13T15:48:14.000Z"
replies: 15
views: 396
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/68126-problem-med-gästbok"
---

# Problem med Gästbok

## #1 — Jeppez, 2003-02-13T07:23Z

Det e så att jag försöker fixa så att varje medlem i min community ska få en egen gästbok, Men jag får upp en massa problem hela tiden. Detta felmedelande får jag upp när jag ska in på GB:N genom att ha inloggat mig på communityn;

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 1 förväntades.
/wwwroot/gastbok.asp, line 11

Så här ser koden ut på själva sidan(gastbok.asp);

\<br\>
\<br\>
\<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("gb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM gb where gbtillid='"&request.querystring("tillid")&"' order by id desc"
rs.Open Addera, Connect, 3, 3 

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM anv where id='"&request.querystring("tillid")&"'"
rs1.Open Addera, Connect, 3, 3 

if request.querystring("action")="spara" then
if session("tillid") \<\> request.querystring("tillid") then
rs.addnew
rs("namn")=session("namn")
rs("inlagg")=request.form("text")
rs("gbid")= request.querystring("tillid")
rs.update

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("gb.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM anv where id='"&session("tillid")&"'"
rs.Open Addera, Connect, 3, 3 
rs("status") = rs("status") + 100
rs.update

response.redirect "gastbok.asp?tillid="&request.querystring("tillid")
end if
end if
rs.PageSize = 10
if not rs.EOF then
rs.AbsolutePage = nextPage
%\>
\<br\>
\<% END IF 
%\>
\<br\>
\<form name="form1" method="post" action="gastbok.asp?action=spara&tillid=\<%=request.querystring("tillid")%\>"\>
  \<textarea name="inlagg" rows="4" cols="20"\>\</textarea\>
  \<input type="submit" name="Submit" value="skicka"\>
\</form\>
\<br\>

\<%
Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
%\>
\<B\>\<%=rs("namn")%\>\</b\>\<br\>\<%=rs("text")%\>\<hr\>
\<%
rs.movenext
loop
%\>\<br\>

/TACKSAM FÖR SVAR!

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

## #2 — Vide, 2003-02-13T07:38Z

Ser jag dåligt eller skapar du ett recordset som heter "rs1" som du sedan inte använder?

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

## #3 — Jeppez, 2003-02-13T08:00Z

Asså, vad är det som ska bort då?

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

## #4 — Jeppez, 2003-02-13T08:02Z

Nu har jag gjort om lite, men får fortfarande felmedelande:

Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/wwwroot/gastbok.asp

Nya koden för sidan; ( gastbok.asp )

\<br\>
\<br\>
\<%
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM gb where gbid='"&request.querystring("id")&"' order by id desc"
rs.Open Addera, Connect, 3, 3 

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM anv where id='"&request.querystring("id")&"'"
rs1.Open Addera, Connect, 3, 3 

if request.querystring("action")="spara" then
if session("id") \<\> request.querystring("id") then
rs.addnew
rs("namn")=session("user")
rs("inlagg")=request.form("inlagg")
rs("gbid")= request.querystring("id")
rs.update

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM anv where id='"&session("id")&"'"
rs.Open Addera, Connect, 3, 3 
rs("status") = rs("status") + 100
rs.update

response.redirect "gastbok.asp?id="&request.querystring("id")
end if
end if
rs.PageSize = 10
if not rs.EOF then
rs.AbsolutePage = nextPage
%\>
\<br\>
\<% END IF 
%\>
                  \<%
IF rs.PageCount \> 1 THEN 

%\>
                  Sida: 
                  \<%
	FOR a = 1 to rs.PageCount
IF a \<\> cINT( nextPage ) THEN %\>
                  \<a href="forum.asp?nextPage=\<%=a%\>"\>\<%=a%\>\</a\> 
                  \<%
ELSE %\>
                  (\<%=a%\>) 
                  \<%
END IF 
 NEXT
 end if 

	
	  %\>\<br\>
Skriv nått i \<%=rs1("anv")%\>´s gästbok\<br\>
\<form name="form1" method="post" action="gastbok.asp?action=spara&id=\<%=request.querystring("id")%\>"\>
  \<textarea name="inlagg" rows="4" cols="20"\>\</textarea\>
  \<input type="submit" name="Submit" value="skicka"\>
\</form\>
\<br\>

\<%
Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
%\>
\<B\>\<%=rs("namn")%\>\</b\>\<br\>\<%=rs("inlagg")%\>\<hr\>
\<%
rs.movenext
loop
%\>\<br\>

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

## #5 — Vide, 2003-02-13T08:15Z

Skickar du verkligen med ett id i querysträngen? Och är fältet id i databasen av datatype sträng? Om det är en integer så skall du inte ha enkelsnuffar runt värdet i SQL-satsen.

Du får inget radnummer för vart felet inträffar? Felmeddelandet säger att sökningen i databasen inte gav något resultat, och när du sedan försöker använda recordsettet så får du detta felet.

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

## #6 — Jeppez, 2003-02-13T10:24Z

Hur menar du?

Fattar n0ll.

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

## #7 — Vide, 2003-02-13T10:28Z

Vad är det du inte fattar?
Datatyper? Vilken datatyp har fältet ID i databasen?
Querystring? Vad har request.querystring("id") för värde?
Radnummer? På vilken rad blir det fel?

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

## #8 — Jeppez, 2003-02-13T10:34Z

Kan vi inte snackas vid på ICQ ? Har addat dig.
Du kan inte ta imott filer? Annars kan jag väl skicka databasen och .asp filen?

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

## #9 — Vide, 2003-02-13T10:40Z

Nej, jag tar inte kod-diskussioner via ICQ eller IRC, för att det skall hjälpa körs det med all rätt via ett forum där man kan på ett bättre sätt lägga upp förklaring kring kod o.s.v, samt att andra kan ta del och hjälpa till, samt få information kring liknande problem i framtiden.

Så, vi börjar med vart du får problemet, vilken rad?
Varför skapar du ett recordset som heter rs1 som du sedan inte använder? Eller skall den användas men att du har glömt att byta namn där?

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

## #10 — Jeppez, 2003-02-13T10:46Z

Du får bild, Liksom... Jag ser inte vilken rad felet ligger på som du kan se.

Bilagor:

- [ddddd.jpg](https://www.webforum.nu/a/1056.jpg)

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

## #11 — Vide, 2003-02-13T12:20Z

Okej, första gången du kommer till formuläret, skickar du med ett id querysträngen då? Eftersom det krävs, du anger ju det här:

```
gastbok.asp?action=spara&id=<%=request.querystring("id")%>
```

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

## #12 — Jeppez, 2003-02-13T13:19Z

Ja, det gör jag.

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

## #13 — Vide, 2003-02-13T13:47Z

Okej, vad har session("id") för värde när du använder den i SQL-satsen?

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

## #14 — Denniz PoP, 2003-02-13T14:34Z

testa att skriva ut sql-satsen och skriv den här. 
Som vide sa tidigare så skall du antagligen inte ha ' med i sql-satsen då ID antagligen är ett numeriskt fält.

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

## #15 — Engine^, 2003-02-13T14:39Z

```
<% 
nextPage = TRIM( Request("nextPage")) 
IF nextPage = "" THEN nextPage = 1 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/databas.mdb") 
Set rs = Server.CreateObject("ADODB.Recordset") 
[b]Addera = "SELECT * FROM gb where gbid= " & request.querystring("id") & " order by id desc"[/b]
rs.Open Addera, Connect, 3, 3

[b]'Vad i hela friden ska rs1 användas till?[/b]
Set rs1 = Server.CreateObject("ADODB.Recordset") 
[b]Addera = "SELECT * FROM anv where id=" & request.querystring("id")[/b] 
rs1.Open Addera, Connect, 3, 3 

if request.querystring("action")="spara" then 
    if session("id") <> request.querystring("id") then 
        rs.addnew 
        rs("namn")=session("user") [b]'Finns kolumnet namn i tabellen?[/b] 
        rs("inlagg")=request.form("inlagg") [b]'Finns inlagg?[/b]
        rs("gbid")= request.querystring("id") [b]'Finns gbid[/b]
        rs.update
        [b]rs.close[/b]

        Set Connect = Server.CreateObject("ADODB.Connection") 
        Connect.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("databas/databas.mdb") 
        Set rs = Server.CreateObject("ADODB.Recordset") 
        [b]Addera = "SELECT * FROM anv where id=" & session("id")[/b]
        rs.Open Addera, Connect, 3, 3 
        rs("status") = rs("status") + 100 
        rs.update 

        response.redirect "gastbok.asp?id="&request.querystring("id") 
    end if 
end if 

Set rs = Nothing
Set rs1 = Nothing
```

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

## #16 — Jeppez, 2003-02-13T15:48Z

Det går inge vidare med GB:N, allt ska fungera... o testat tagit bort rs kolumnérna, men blir bara mer o mer fel..

Ingen som vet vart jag kan ladda ned en GB och ge mig instruktioner hur jag ska gå till väga för att få den att fungera kombitapellt i en community? Så att varje medlem ska kunna få en fungerande GB.

//tacksam för svar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/68126-problem-med-gästbok