Få in ett record set i en textbox

vad händer, får du några felmeddelanden?
när du uppdaterar en post måste du bestämma vilken post du ska uppdatera.
din do_change.asp ser inte helt korrekt ut.

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

strsql = "Update personligt Set namn = '" & Session("namn1") & "', inlagg = '" & Request.Form("inlagg") & "', prio = '" & Request.Form("prio") & "', datum = " & Now() & " Where id = " & Session("id") & " ;"

Connect.Execute strsql,,128

Connect.Close()
Set Connect = Nothing 
Response.Redirect "forum.asp"

borde funka.

------------------
Motto: Flest If-taggar vinner!

Orkar inte läsa igenom allt men kan det vara så enkelt att du glömt ett " i din textbox?

<textarea name="inlagg" cols=30" rows="3" class="table"><%=RecSet("inlagg")%> </textarea>

istället:

<textarea name="inlagg" cols="30" rows="3" class="table"><%=RecSet("inlagg")%> </textarea>

------------------
It's a scoobie oobie doobie scoobie doobie melody - Im a Scatman

Din kod för uppdatering stämmer inte, du anger inte vilken post du vill uppdatera.

<%

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

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

Addera = "Select * From personligt Where id = " & Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("namn") = Session("namn1")
RecSet("inlagg") = Request.Form("inlagg")
RecSet("prio") = Request.Form("prio")
RecSet("datum") = Now

RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "forum.asp"

%>

Sen så saknas det ett " i din listbox på

value=1"

om du vill att det som låg i databasen skall bli selekterat så kan du göra så här.

<select name="prio" class="table">
<option value="4" <% if cint(rs("prio")) = 4 then response.write "selected" %> >4</option>
<option value="3" <% if cint(rs("prio")) = 3 then response.write "selected" %> >3</option>
<option value="2" <% if cint(rs("prio")) = 2 then response.write "selected"%> >2</option>
<option value="1" <% if cint(rs("prio")) = 1 then response.write "selected" %> >1</option>

Är textbox samma sak som listbox?

------------------
essentitia preter non sans multiplicandum

fel meddelandet jag får är

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.
/hdtest/change.asp

då har du fel på denna rad:

Addera = "Select * From personligt Where id = " &Session("id")

finns session("id")?

------------------
Motto: Flest If-taggar vinner!

ja session("id2) finns

prova å skriv:

Addera = "Select * From personligt Where id = " & int(Session("id"))

finns det ett id i databasen som stämmer överens med session("id")?
------------------
Motto: Flest If-taggar vinner!

[Redigerat av doggelito den 08 feb 2002]

Grundfråga: Kommer texten ens ut i textfältet?

------------------
It's a scoobie oobie doobie scoobie doobie melody - Im a Scatman

ops, fel av mig tidigare, det gick lite för fort!!
om du sätter komentartecken på:

<%'=RecSet("inlagg")%>

får du upp sidan då utan error?

------------------
Motto: Flest If-taggar vinner!