---
title: "Gästbok med svarsfunktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/114454-gästbok-med-svarsfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "AboO"
published: "2004-10-26T15:25:29.000Z"
updated: "2004-10-27T12:07:38.000Z"
replies: 6
views: 441
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/114454-gästbok-med-svarsfunktion"
---

# Gästbok med svarsfunktion

## #1 — AboO, 2004-10-26T15:25Z

Jag håller på med en gästbok men får inte själva svarsfunktionen att fungera.

Felmeddelandet ser ut så här:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'RS'
/gb/admincomment.asp, line 10

Koden ser ut så här:

```
<%
if Request.QueryString("do") = "save" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../db/gb.mdb")&";" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Execute("Update klotter set gbsvar="& Request.Form("gbsvar") &" where id ='"& Request.QueryString("id") &"")

 END IF %>
 
<form action="admin.asp?do=save&id=<%=Request.QueryString("id")%>" method="post" name="form">
<textarea name="gbinlagg" readonly><%= RS("text")%></textarea><br><br>
<textarea name="gbsvar"></textarea><br>
<input type="submit" name="form" value="Svara!">
</form>
<% Connect.Close %>
```

Vad gör jag för fel?

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

## #2 — Jesper T, 2004-10-26T15:29Z

Set RS ...
eller
\<%= RecSet("text")%\>

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

## #3 — Jesper T, 2004-10-26T15:31Z

Ser även fler fel:

```
Connect.Execute("Update klotter set gbsvar='"& Request.Form("gbsvar") &"' where id ="& Request.QueryString("id"))
```

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

## #4 — AboO, 2004-10-26T18:10Z

Står fortfarande samma felmeddelande och nu ser koden ut så här:

```
<%
if Request.QueryString("do") = "save" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../db/gb.mdb")&";" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Connect.Execute("Update klotter set gbsvar='"& Request.Form("gbsvar") &"' where id ="& Request.QueryString("id"))

 END IF %>
 
<form action="admin.asp?do=save&id=<%=Request.QueryString("id")%>" method="post" name="form">
<textarea name="gbinlagg" readonly><%= RecSet("text")%></textarea><br><br>
<textarea name="gbsvar"></textarea><br>
<input type="submit" name="form" value="Svara!">
</form>
<%
RecSet.Update 
RecSet.Close
Connect.Close 
Set RecSet = nothing
Set Connect = nothing %>
```

Så här ser föresten länken ut när man ska svara på ett inlägg:

```
<a href="admincomment.asp?id=<% =RecSet("id")%>">Svara på detta inlägg!</a>
```

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

## #5 — J.N., 2004-10-27T08:49Z

HEJ!

Problem ett: Vilken är rad 10? \<textarea name="gbinlagg"...?
Problem två: Var skapar du RecSet("text")?

Alltså som JesperTs första hjälp: <http://www.webforum.nu/showthread.php?s=&postid=940391#post940391>

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

## #6 — AboO, 2004-10-27T11:54Z

Igår började jag om helt med själva svars-funktionen och då fick jag allting att fungera.

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

## #7 — Jesper T, 2004-10-27T12:07Z



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

---

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