webForumDet fria alternativet

Gästbok med svarsfunktion

ASP

6 svar · 429 visningar · startad av AboO

Medlem sedan juni 2002191 inlägg
Frågan#1

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?

Medlem sedan nov. 20017 144 inlägg
#2

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

Medlem sedan nov. 20017 144 inlägg
#3

Ser även fler fel:

Connect.Execute("Update klotter set gbsvar='"& Request.Form("gbsvar") &"' where id ="& Request.QueryString("id"))
Medlem sedan juni 2002191 inlägg
#4

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>
Medlem sedan apr. 20031 660 inlägg
#5

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

Medlem sedan juni 2002191 inlägg
#6

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

Medlem sedan nov. 20017 144 inlägg
#7
270 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)