uppdatering av databas

Vad får du för fel när du gör update?
Hur ser koden ut?

Menar du i databasen eller via en asp-sida?

Jesper T - via en asp sida

koden ser ut

<% If Request.QueryString("wits") = "gastbok_redigera" Then %>
<div style="position: absolute; top: 140pt; left: 20pt;">
<b>Redigera gästboks inlägg...</b><br>
<table border="0" cellspacing="2" cellpadding="2">
<% redgastbok = "SELECT * FROM gastbok ORDER BY id desc"
RecSet.Open redgastbok, Connect, adOpenStatic, adLockOptimistic
Do While Z < 999
If RecSet.EOF Then
Exit Do
End If %><tr>
<td><a href="ad_min.asp?wits=gastbok_redigeradet&ID=<% =RecSet("id") %>"><% =RecSet("namn") %></a></td>
<td><% =RecSet("email") %></td>
<td width="100"><% =RecSet("hemsida") %></td></tr>
<tr><td><% =RecSet("inlagg") %></td>
</tr>
<% RecSet.MoveNext
Loop
RecSet.Close %></table>
</div>
<% End If %>

<% If Request.QueryString("wits") = "gastbok_redigeradet" Then %>
<div style="position: absolute; top: 140pt; left: 20pt;">
<% Visa = "SELECT * FROM gastbok WHERE ID = " & Request.QueryString("ID") & " "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<form method="POST" action="ad_min.asp?wits=gastbok_redupdat&ID=<% =Request.QueryString("ID") %>">
Namn:<br>
<input type="text" class="textarea" size="100" name="namn" value="<% =RecSet("namn") %>"><p>
E-mail:<br>
<input type="text" class="textarea" size="100" name="email" value="<% =RecSet("email") %>"><p>
Hemsida:<br>
<input type="text" class="textarea" size="100" name="hemsida" value="<% =RecSet("hemsida") %>"><p>
Stad:<br>
<input type="text" class="textarea" size="100" name="stad" value="<% =RecSet("stad") %>"><p>
Meddelande:<br>
<input type="text" class="textarea" size="100" name="inlagg" value="<% =RecSet("inlagg") %>"><p>
<input alt="send" border=0 cache height=11 name=submit src="send.gif" width="29" type="image">
</form>
</div>
<% End If %>

<% If Request.QueryString("wits") = "gastbok_redupdat" Then %>
<div style="position: absolute; top: 140pt; left: 20pt;">
<% Addera = "SELECT * FROM gastbok WHERE ID = " & Request.QueryString("ID") & " "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("namn") = Request.Form("namn")
RecSet("email") = Request.Form("email")
RecSet("hemsida") = Request.Form("hemsida")
RecSet("stad") = Request.Form("stad")
RecSet("inlagg") = Request.Form("inlagg")
RecSet.Update
RecSet.Close
Response.Redirect "ad_min.asp?wits=gastbok_redigera" %>
</div>
<% End If %>

Minns att det kan bli krux, men kommer inte riktigt ihåg var det var. Vad får du för felmeddelande?

ADODB.Recordset.1 error '80004005'

SQLState: 34000
Native Error Code: 0
[INTERSOLV][ODBC SequeLink driver]Statement with cursor named in this statement's CURRENT-OF-CURSOR clause is not a SELECT FOR UPDATE.

/ad_min/ad_min.asp, line 194

och på den raden står det ......

RecSet.Update

Testa detta:

addera = "UPDATE gastbok SET Namn = '" & Request.Form("Namn") & "', email = '" & Request.Form("email") & "', hemsida = '" & Request.Form("hemsida") & "', Stad = '" & Request.Form("stad") & "', Inlagg = '" & Request.Form("inlagg") & "' WHERE ID = " & Request.QueryString("ID")
Connect.Execute addera, , 128
Connect.Close 
Set Connect = Nothing

Ta bort:

 Addera = "SELECT * FROM gastbok WHERE ID = " & Request.QueryString("ID") & " " 
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic 
RecSet("namn") = Request.Form("namn") 
RecSet("email") = Request.Form("email") 
RecSet("hemsida") = Request.Form("hemsida") 
RecSet("stad") = Request.Form("stad") 
RecSet("inlagg") = Request.Form("inlagg") 
RecSet.Update 
RecSet.Close

P.s Det är lättare att läsa om du använder [kod]-taggarna när du skriver din kod :)

det funka....tack så mycket

:)