Problem med form når den indlæses igen
Jeg har en form, som opdatere nogle ting i en database, men når jeg trykker på send-knappen, laver den tingene som den skal, men ligeså snart den skal læse fra databasen igen, siger den:ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
Ligesom den har glemt den ID, som den indlæser første gang
Her er mit script.. Jeg har smidt alt med
<!-- #include file="inc/base.inc" -->
<!-- #include file="inc/secur.inc" -->
<%
email = Request("id")
if Request("mode") = "update" then
if Request("password") = Request("confirmpassword") then
SQLstmt = "UPDATE users SET "
SQLstmt = SQLstmt & "password = '" & Request("password") & "', "'
SQLstmt = SQLstmt & "active = '" & Request("active") & "', "'
SQLstmt = SQLstmt & "RealName = '" & Request("RealName") & "', "'
SQLstmt = SQLstmt & "Returnaddress = '" & Request("ReturnAddress") & "', "'
SQLstmt = SQLstmt & "ForwardAddress = '" & Request("ForwardAddress") & "', "'
SQLstmt = SQLstmt & "KeepCopies = '" & Request("KeepCopies") & "', "'
SQLstmt = SQLstmt & "MailBoxSize = '" & Request("MailBoxSize") & "', "'
SQLstmt = SQLstmt & "FingerInfo = '" & Request("FingerInfo") & "', "'
SQLstmt = SQLstmt & "Aliases = '" & Request("Aliases") & "', "'
SQLstmt = SQLstmt & "AutoresponderSubject = '" & Request("emne") & "', "'
SQLstmt = SQLstmt & "AutoResponderData = '" & Request("besked") & "', "'
SQLstmt = SQLstmt & "AutoResponderEnabled = '" & Request("autosvar") & "' "
SQLstmt = SQLstmt & "WHERE Username = '" & Request("bruger") &"'"
Conn.Execute SQLstmt
dim oUsers, oUser, i
set oUsers=server.CreateObject("MailServerX.Users")
i=oUsers.IndexOf(Request("bruger"))
if i > -1 then
set oUser=oUsers.Items(i)
Set Autoresponderdata1 = server.CreateObject("MailserverX.Lines")
Autoresponderdata1.Add Request("besked")
set FingerInfo1=server.CreateObject("MailServerX.Lines")
FingerInfo1.Add Request("FingerInfo")
oUser.Active = Request("active")
oUser.Password = Request("password")
oUser.RealName= Request("RealName")
oUser.ReturnAddress= Request("ReturnAddress")
oUser.ForwardAddress= Request("ForwardAddress")
oUser.KeepCopies = Request("KeepCopies")
oUser.MailBoxSize= Request("Mailboxsize")
oUser.FingerInfo=FingerInfo1
oUser.AutoresponderSubject = Request("emne")
oUser.AutoResponderData=Autoresponderdata1
oUser.AutoResponderEnabled = Request("autosvar")
oUsers.Items(i)=oUser
end if
Response.Redirect("default.asp")
else
msg = "Password er ikke ens"
end if
end if
if Request("mode") = "delete" then
Conn.Execute("DELETE FROM Users WHERE UserID = '" & email & "'")
set mail=server.CreateObject("MailServerX.Users")
mail.Delete Request("bruger")
set mail = nothing
Response.redirect("default.asp")
end if
%>
<HTML>
<HEAD>
<title>.: DEVICE.WEBBUREAU 2000 * 2003 :.</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<script language="javascript"><!--
function printit()
{
var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
WebBrowser1.ExecWB(6, 2);
window.close();
}
--></script>
<style type="text/css"><!--
body {
font-family: Arial, Helvetica, sans-serif;
font-size: 9pt; color: #000000;
scrollbar-face-color: #cccccc;
scrollbar-shadow-color: #ffffff;
scrollbar-highlight-color: #ffffff;
scrollbar-3dlight-color: #ffffff;
scrollbar-darkshadow-color: #ffffff;
scrollbar-track-color: #ffffff;
scrollbar-arrow-color: #000000;}
td { font-family: Arial, Helvetica, sans-serif;
font-size: 9pt; color: #000000;
}
a:link { color: black; text-decoration: none; font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
a:hover { color: black; text-decoration: none; font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
a:active { color: black; text-decoration: none; font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
a:visited { color: black; text-decoration: none; font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
--></style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 RIGHTMARGN="0" TOPMARGIN=0 BOTTOMMARGIN="0" MARGINWIDTH=0 MARGINHEIGHT=0>
<%
SQLstmt = "Select * FROM users Where UserID = '" & email & "'"
Set Users = Conn.Execute(SQLstmt)
Password = Users("password")
fingerinfo = Users("fingerinfo")
realname = Users("realname")
forwardaddress = Users("forwardaddress")
active = Users("active")
mailboxsize = Users("mailboxsize")
keepcopies = Users("keepcopies")
returnaddress = Users("returnaddress")
emne = Users("autorespondersubject")
besked = Users("autoresponderdata")
autosvar = Users("autoresponderenabled")
%>
<table width="100%" height="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="154" background="http://www.device.dk/images/opret/top.jpg"> </td>
</tr>
<tr>
<td height="659" valign="top" background="http://www.device.dk/images/opret/middle2.jpg">
<table width="430" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<div id="Layer" style="position:absolute; PADDING-LEFT: 5px; PADDING-RIGHT: 10px; width:430px; height:648px; z-index:1; overflow: auto;">
<h3>Rediger bruger</h3><br>
<%= Msg %>
<form action="rediger.asp" method="post" target="_self">
<input type="hidden" value="update" name="mode">
<input type="hidden" value="<%Response.Write(Users("Username")) %>" name="bruger">
<table width="91%" border="0" align="center">
<tr>
<td>Email:</td>
<td> <strong>
<% Response.Write(Users("Username"))
%>
</strong></td>
</tr>
<tr>
<td>Navn:</td>
<td>
<input type="text" name="realname" value="<%= RealName %>"></td>
</tr>
<tr>
<td>Password:</td>
<td>
<input type="password" name="password" value="<% =password %>"></td>
</tr>
<tr>
<td>Bekræft Password:</td>
<td>
<input type="password" name="confirmpassword" value="<%= password %>"></td>
</tr>
<tr>
<td>Forward Address:</td>
<td>
<input type="text" name="forwardaddress" value="<%= forwardaddress %>"></td>
</tr>
<tr>
<td>Aktiv:</td>
<td>
<% IF Users("active") = "True" then %>
<input name="active" type="checkbox" value="True" checked></td>
<% else %>
<input name="active" type="checkbox" value="false" unchecked></td>
<% end if %>
</tr>
<tr>
<td>Mailboks Størrelse:</td>
<td>
<input type="text" name="mailboxsize" value="<%= mailboxsize %>"></td>
</tr>
<tr>
<td>Behold kopi:</td>
<td>
<% IF Users("keepcopies") = "True" then %>
<input name="keepcopies" type="checkbox" value="True" checked></td>
<% else %>
<input name="keepcopies" type="checkbox" value="false" unchecked></td>
<% end if %>
</tr>
<tr>
<td>Svar til:</td>
<td>
<input type="text" name="returnaddress" value="<% =returnaddress %>"></td>
</tr>
<tr>
<td valign="top">Finger Information:</td>
<td> <textarea cols="32" rows="12" name="fingerinfo"><% =fingerinfo %></textarea>
</td>
</tr>
<tr>
<td>Autosvar emne:</td>
<td><input type="text" name="emne" value="<%= emne%>"></td>
</tr>
<tr>
<td valign="top">Autosvar besked:</td>
<td> <textarea cols="32" rows="12" name="besked"><% =besked %></textarea>
</td>
</tr>
<tr>
<td>Autosvar aktiv:</td>
<td>
<% IF Users("autoresponderenabled") = "True" then %>
<input name="autosvar" type="checkbox" value="True" checked></td>
<% else %>
<input name="autosvar" type="checkbox" value="false" unchecked></td>
<% end if %>
</tr>
</table>
<div align="center">
<input name="Submit" type="submit" value="- Tilføj Ændringer-">
</div>
</form>
<form name="rediger.asp" method="post" action="">
<div align="center">
<input type="hidden" value="delete" name="mode">
<input type="hidden" value="<%Response.Write(Users("Username")) %>" name="bruger">
<input type="submit" name="Submit2" value="- Slet -">
</div>
</form>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="36" background="http://www.device.dk/images/opret/bottom.jpg"> </td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
Når jeg starter med at åbne siden, bliver der et ID sendt med, sådan her rediger.asp?id=123
Og så kan den godt hente fra databasen, hvor det id passer, men når den har udført formen, glemmer den ligesom Id'et, hvordan får jeg det til at huske det...
