---
title: "Svara i min gästbok!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88019-svara-i-min-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfernstrom"
published: "2003-10-08T18:54:36.000Z"
updated: "2003-10-08T21:09:07.000Z"
replies: 5
views: 337
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/88019-svara-i-min-gästbok"
---

# Svara i min gästbok!

## #1 — magnusfernstrom, 2003-10-08T18:54Z

Nu har jag kommit så längt att jag nu kan ta bort meddelanden! Men jag vill även kunna svara på meddelanden! Jag har suttit och knåpat i nån timme nu och fått detta resultat:

```
<html>
<form namne="Skicka" method="post" action="vali.asp">
<br>
Namn:
<br>
<input type="text" name="Namn" size="22">
<br>
Epost:
<br>
<input type="text" name="Epost" size="22">
<br>
Meddelande:
<br>
<textarea rows="6" cols="40" name="Meddelande"></textarea>
<br>
<input type="submit" value="Posta" name="Posta">
</form>
<%
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/block.mdb")
SQL = "SELECT * FROM Test"
Set rs = db.Execute(SQL)
%>
<%
Do Until RS.EOF
%>
<%=rs("Namn")%>
<br>
<%=rs("Epost")%>
<br>
<%=rs("Meddelande")%>
<br>
<br>
<%=rs("Svar")%>
<a href="delete.asp?id=<%= rs("Id") %>">Radera</a>
<br>
<form name="Svara" method="post" action="svar.asp?id=<%= rs("Id") %>">
<input type="text" name="Svar">
<br>
<input type="submit" name="Svarknapp" value="Svara!">
</form>
<hr>
<br>
<%
rs.MoveNext
Loop
db.Close
%>
```

Detta är alltså själva gästboks sidan!
Detta är sidan man skickas til när ett svar har skrivits in:

```
<%
Id = Request.Querystring ("Id")
Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/block.mdb")
SQL = "Insert Into Test (Svar) VALUES ('" & Request.Form("Svar") & "')"& id
Set rs = db.Execute(SQL)
Set rs = nothing
Set db = nothing
response.redirect "test.asp"
%>
```

Jag får det att funka men svaret skrivs ut som ett eget nytt gästboks meddelande! Antar att detta har något med att den skapar ett nytt ID. Jag har försökt med att få med ID på meddelandet jag ska svara på. Men det vill dock inte fälja med :D

Kan någon hjälpa mig
Mycket tacksam för svar!
Mvh Magnus Fernström

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

## #2 — Palle, 2003-10-08T19:41Z

Det räcker med att du uppdaterar posten med ditt svar (UPDATE),
du behöver inte skapa en helt ny post (INSERT). Ex: 

```
[red]<%

Id = trim(Request.Querystring("Id"))
strSvar = Replace(Request.Form("Svar"), "'", "''")

Set db = Server.CreateObject("ADODB.Connection")
	db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/block.mdb")

		db.Execute("UPDATE Test SET Svar='"& strSvar &"' WHERE ID="& Id),,128

	db.Close
Set db = nothing

response.redirect "test.asp"

%>[/red]
```

Några tips: :)
1) Byt från Access Driver till Jet.OLEDB
2) Du behöver inte skapa ett recordset för att spara, uppdatera eller radera data från databasen.

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

## #3 — magnusfernstrom, 2003-10-08T19:46Z

Aha ok tack för ett mycket bra svar Palle
Mvh

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

## #4 — magnusfernstrom, 2003-10-08T19:52Z

Det funkar!!! Tack igen!

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

## #5 — Palle, 2003-10-08T19:58Z

Np! :bire

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

## #6 — magnusfernstrom, 2003-10-08T21:09Z

Det fixade sig tack igen :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88019-svara-i-min-gästbok