Hvad &#¤%! er der galt?
Følgende kode giver denne fejl:Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/news/confirm.asp, line 75
Det er en access 2000 database... :0)
<%
\'~~~~~~~~~~~~~~~~~~~~~ Lavet af (C)Søren Peter Fynboe 2000 ~~~~~~~~~~~~~~~~~~~~~
\'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~
\'_______________________________________________________________________________________________
Response.Buffer = True
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"mailing.mdb\")
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Konfiguration ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Afsenderens_email = \"kartolux@vip.cybercity.dk\"
Afsenderens_navn = \"test\"
smtpserver = \"vip.cybercity.dk\"
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"
\"http://www.w3.org/TR/html4/loose.dtd\">
<html>
<head>
<link rel=\"stylesheet\" type=\"text/css\" href=\"news.css\">
<title>Bekræft din anmodning</title>
</head>
<body BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
<table width=\"85%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" bgcolor=\"#888888\"
align=\"center\" summary=\"table\">
<tr>
<td align=\"center\"><h2>Confirm Mail News 2.5</h2>
<%
id = Request.QueryString(\"id\")
mode = Request.QueryString(\"mode\")
if mode<>\"\" and id<>\"\" then
SQL = \"SELECT * FROM mailingliste WHERE ID2 = \'\" & id & \"\'\"
Set rsThis = Conn.Execute(SQL)
if not(rsThis.BOF and rsThis.EOF) then
rsConfirm = rsThis(\"Confirm\")
Emailad = rsThis(\"Emailad\")
navn = rsThis(\"navn\")
if rsConfirm=False then\'--- Hvis den ikke er bekræftet.
if mode=\"tilmeld\" then
strSql = \"UPDATE mailingliste SET Confirm = 1 WHERE ID2= \'\" & id & \"\' \"
Conn.Execute(strSql)
send=1
end if
if mode=\"frameld\" then
Response.write\"<h4 align=\"\"center\"\">\" & Emailad & \" er ikke tilmeldt.</h4>\"
end if
end if\'----
if rsConfirm=True then \'----Hvis den er bekræftet.
if mode=\"tilmeld\" then
Response.write \"<h4 align=\"\"center\"\">\" &Emailad& \" er tilmeldt tidligere.</h4>\"
end if
if mode=\"frameld\" then \'Bekræftelse af Framelding ved besøg af url
Sql = \"UPDATE mailingliste SET Confirm=0 WHERE ID2= \'\" & id & \"\' \"
Conn.Execute (Sql)
response.write \"<h4 align=\"\"center\"\">Modtageren er nu blevet frameldt nyhedstjenesten.</h4>\"
end if
end if\'-----
end if\'-----------------------------------------------------------------------------------
if (rsThis.BOF and rsThis.EOF) then
Response.write \"<h4 align=\"\"center\"\">Der er sket en fejl.</h4>\"
end if
if send=1 then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
\' This is my local SMTP server
JMail.ServerAddress = smtpserver
\' mail config settings
JMail.Charset = \"ISO-8859-1\"
JMail.ContentTransferEncoding = \"8bit\"
JMail.SenderName = Afsenderens_navn
JMail.Sender = Afsenderens_email
JMail.AddRecipient emailad
\'---------------Besked -string ----------------
JMail.Subject =\"Velkommen\"
JMail.Body =\"Hej \" & Navn & vbCrLf & vbCrLf
JMail.Body= JMail.Body + \"Din adresse tilmeldt vores nyhedstjeneste!\" & vbCrLf & vbCrLf
JMail.Body= JMail.Body + \"Tak for tilmeldingen.\" & vbCrLf & \"Fremover vil De nu blive holdt ajour med større opdateringer på min side\" & vbCrLf & vbCrLf & \"Med venlig hilsen \" & vbCrLf & \"http://www.minside.dk\"
\'----------------------------------------------
\' 1 - highest priority (Urgent)
\' 3 - normal
\' 5 - lowest
JMail.Priority = 1
\' Send it...
JMail.Execute
set JMail = nothing
response.write \"<h4 align=\"\"center\"\">Modtageren er nu tilmeldt vores nyhedstjeneste.<br> En velkomstmeddelelse er sendt til \" & emailad& \"</h4>\"
end if
rsThis.close
set rsThis = nothing
end if
\'Ryd op
conn.close
Set Conn = nothing
%> </td>
</tr>
<tr>
<td><small> Lavet af Søren Peter Fynboe ©2000 </small></td>
</tr>
</table>
</body>
</html>
