Mailliste problem
HejsaSå er jeg tilbage igen, jeg har en mailliste (hente på Activeserverpages.dk).
Men når jeg prøver at køre med den, så vil den ikke som jeg.
Koden på siden :
<%
' --------------------------------------------------------------------------------
' Dette eksempel er skrevet af Dennis Knappe
' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
' --------------------------------------------------------------------------------
Response.Buffer = True
strMode = Request.QueryString("mode")
'// Dette er vores connection streng til databasen
tempConn = "PROVIDER=MSDASQL; UID=; PWD=; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\web\localuser\pivskid.dk\database\mobilsalg.mdb"
If Request.Form("Send") <> "" Then
'// Her putter vi værdien af de indtastede felter i en variabel
strSender = Request.Form("Afsender")
strSubject = Request.Form("Emne")
strMessage = Request.Form("Besked")
strMailServer = Request.Form("Mailserver")
'// Her åbner vi databasen, og trækker alle email adresse ud i et array
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
strSQL = "SELECT Email FROM maillingliste"
Set rs = myConn.Execute(strSQL)
arrEmail = rs.GetRows()
myConn.Close
Set myConn = Nothing
'// Her laver vi et loop igennem vore email array, og sender beskeden til alle de tilmeldte
Set objMailer = Server.CreateObject("ASPMail.ASPMailCtrl.1")
For num = 0 to Ubound(arrEmail,2)
strResult = objMailer.SendMail(strMailserver, arrEmail(0, num), strSender, strSubject, strMessage)
Next
Set objMailer = Nothing
strMode = "messagessendt"
'// Her sletter vi alt buffered output, og redirecter siden, med et parameter der fortæller at vi har sendt til listen
Response.Clear
Response.Redirect("mailliste.asp?mode=finish")
End If
%>
<html>
<head>
<title>Mailliste</title>
</head>
<body>
<div align="center"><center>
<table border="0" width="600" cellspacing="0" cellpadding="3" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 2px solid rgb(0,0,0)">
<tr>
<td width="100%" bgcolor="#000000"><p align="center"><font face="verdana" size="4" color="#FFFFFF"><strong>Mailliste</strong></font></td>
</tr>
<tr align="center">
<td width="100%"><%
Select Case strMode
Case "finish"
Response.Write "<p><font face=arial size=2>Besked er sendt til mailliste</font></p>"
Response.Write "<p><font face=arial size=2><a href=mailliste.asp>Tryk her for at lave en ny besked</a></font></p>"
Case Else
%>
<form method="POST" action="mailliste.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td valign="middle" align="left" colspan="2"><font face="verdana" size="2"><strong><br>
</strong>Indtast venligst oplysningerne i følgende felter:<strong><br>
</strong></font></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><font face="verdana" size="2"><strong>Mailserver</strong></font></td>
<td valign="middle" align="left"><input type="text" name="Mailserver" size="40"></td>
</tr>
<tr>
<td valign="middle" align="left"><strong><div align="right"><p><font face="verdana" size="2">Afsender</font></strong></td>
<td valign="middle" align="left"><input type="text" name="Afsender" size="40"></td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><font face="verdana" size="2"><strong>Emne</strong></font></td>
<td valign="middle" align="left"><input type="text" name="Emne" size="40"></td>
</tr>
<tr>
<td valign="top" align="left"><div align="right"><p><font face="verdana" size="2"><strong>Besked</strong></font></td>
<td valign="middle" align="left"><textarea rows="5" name="Besked" cols="40"></textarea></td>
</tr>
<tr>
<td valign="middle" align="left" colspan="2"><br>
<input type="submit" value="Send" name="Send"></td>
</tr>
</table>
</form>
<% End Select %>
</td>
</tr>
</table>
</center></div>
</body>
</html>
---------------------------------------------------------------
Problemet :
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/admin/mailliste.asp, line 29
800401f3
Nogen der kan (vil hjælpe) ?
