Hejsan!
Jag använder denna kod för att redigera inlägg!

<% If Request.Querystring("alt") = "dikter" Then

mobil = Request.Form("mobil")
url = Request.Form("url")
alder = Request.Form("alder")
lunarstorm = Request.Form("lunarstorm")
status = Request.Form("status")
intressen = Request.Form("intressen")
icq = Request.Form("icq")
land = Request.Form("land")
favoritsida = Request.Form("favoritsida")
bor = Request.Form("bor")
beskrivning = Request.Form("beskrivning")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DSN=db025_db1"
Set Recset = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM dikter WHERE ID = " & Request.Form("updid") & " "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Recset.Update

Recset("mobil") = mobil
Recset("url") = url
Recset("alder") = alder
Recset("lunarstorm") = lunarstorm
Recset("status") = status
Recset("intressen") = intressen
Recset("icq") = icq
Recset("land") = land
Recset("favoriturl") = favoritsida
Recset("bor") = bor
Recset("beskrivning") = beskrivning

Recset.Close
Connect.Close

Response.Write "Uppgifter sparade!"

End If
%>


Jag får meddelandet Uppgifter sparade, men uppgifterna lagras aldrig i databasen!
vad är fel?
Kan någon göra om detta till Connect.Execute Update ?

Vore väldigt Tacksam!

Hassan Fakhro

du skriver ju aldrig till databasen, så det är ju inte så konstigt att det inte sparas.

gör en sql-sträng med de nya värdena i recordsetet.

och kör SQl-strängen i connection objektet

Jag förstår inte vad du menar, ja e lixom ingen riktig höjdare på asp =)

Testa att ändra ordning lite, du måste köra update efter att du har ändrat värdena, det är Update som sparar ner ändringarna.

<code>
Addera = "SELECT * FROM dikter WHERE ID = " & Request.Form("updid") & " "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Recset("mobil") = mobil
Recset("url") = url
Recset("alder") = alder
Recset("lunarstorm") = lunarstorm
Recset("status") = status
Recset("intressen") = intressen
Recset("icq") = icq
Recset("land") = land
Recset("favoriturl") = favoritsida
Recset("bor") = bor
Recset("beskrivning") = beskrivning

Recset.Update

Recset.Close
Connect.Close
</code>

/Johan