Är förmodligen så trött i huvet så jag inte ser det, men va är fel i denna kod?
<% '========================================================================================== %>
<% ' Kod för att välja inlägg att redigera %>
<% '========================================================================================== %>
<%
Editera = "SELECT \* FROM users WHERE Username = '" & Session("username") & "' "
RecSet.Open Editera, Connect, adOpenStatic, adLockOptimistic
%\>
Edit your company information!
<form method="POST" action="edit.asp?update=yes">
Username:
<br>
<input type="text" size="30" name="username" value=" <% =RecSet("Username") %>" >
<p> Password:
<br>
<input type="password" size="30" name="password" value=" <% =RecSet("Password") %>" >
<p> Companyname:
<br>
<input type="text" size="30" name="foretagsnamn" value="<% =RecSet("Foretagsnamn") %>" >
<p> Your contactperson:
<br>
<input type="text" size="30" name="kontaktperson" value="<% =RecSet("Kontaktperson") %>" >
<p> E-mail:
<br>
<input type="text" size="30" name="Email">
<p> Presentationtext about company:
<br>
<textarea name="prestext" cols="50" rows="20" value="<% =RecSet("Prestext") %>" > </textarea>
<p>
<input type="Submit" value="Update information">
</form>
<% '====================================================================================== %>
<% ' Formulärskod för att uppdatera inlägg %>
<% '======================================================================================= %>
<% If Request.QueryString("update") = "yes" Then
Updatera = "SELECT \* FROM users "
RecSet.Open Updatera, Connect, adOpenStatic, adLockOptimistic
Dim Datum
Datum = Date
RecSet("Username") = Request.Form("username")
RecSet("Password") = Request.Form("password")
RecSet("foretagsnamn") = Request.Form("foretagsnamn")
RecSet("kontaktperson") = Request.Form("kontaktperson")
RecSet("email") = Request.Form("email")
RecSet("prestext") = Request.Form("prestext")
RecSet("datum") = Datum
RecSet.Update
RecSet.Close
Response.Redirect "result.asp?edit=yes"
%\>
<% End If %>
Får detta felmeddelande:
Feltyp:
ADODB.Recordset (0x800A0E79)
Åtgärden är inte tillåten när objektet är öppet.
/project/edit.asp, line 97
Rad 97 är:
RecSet.Open Updatera, Connect, adOpenStatic, adLockOptimistic
------------------
Man kommer fortare fram till målet om man kryper åt rätt håll än springer åt fel håll