fejl ved afsendelse af nyhedsbrev til flere bruger(asp)
Hvad går der galt her.Jeg får denne fejlbesked
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
?
800401f3
nyt_nyhedsbrev.asp
<html>
<head>
<title></title>
</head>
<body>
<center>
<form method="post" action="send_nyhedsbrev.asp">
<input type="hidden" name="to" value="<% response.write( zEmail ) %>">My Email:<br>
<input type="text" value="<% response.write( zEmail ) %>" name="myemail"><br><br>My Subject:<br>
<input type="text" value="<% response.write( zTitle ) %>" name="subject">
<%
if zDisplay1 = "Yes" then
response.write("<br><br>People who will receive:<br><textarea cols=50 rows=10 name='users'>")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("nyhedsbrev.mdb"))
set rsMUsers = Server.CreateObject("ADODB.recordset")
rsMUsers.Open "SELECT * FROM MailingList", conn
do until rsMUsers.EOF
response.write(rsMUsers("MailingAddy") & ", ")
rsMUsers.MoveNext
Loop
rsMUsers.close
conn.close
end if
%>
</textarea><br><br>Email Content:<br><textarea cols=50 rows=10 name="body">
Med Venlig Hilsen
<% response.write( zName ) %>
Email: <% response.write( zEmail ) %>
URL: <% response.write( zURL ) %>
</textarea><br><br>Archive this newsletter?<br><br> Yes <input type="radio" name="archive" value="1" checked> No <input type="radio" name="archive" value="0"><br><br><input type="submit" value="Send!">
</form>
</center>
</body>
</html>
*****************
send_nyhedsbrev.asp
<%
Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")
if zDisplay1 = "Yes" then
response.write("Denne E-mail er blevet sent til:<br><br>" & mbcc )
end if
Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")
eCDO.To = zEmail
eCDO.From = mFrom
eCDO.bcc = mbcc
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send
Set eCDO = Nothing
if mArchive = "1" then
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("nyhedsbrev.mdb"))
ArchiveSQL = "INSERT into Archive ('" & Replace(mSubject, "'", "''") & "','" & Replace(mBody, "'", "''") & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Archived Successfully!<br><br>")
conn.close
end if
%>
