Send mail til mailliste?
Hej...Jeg har hentet dette script fra activedeveloper, da jeg vil prøve at lave en form, hvor jeg kan sende til alle i min mailliste.
Den er skrevet til ASPMail, men jeg bruger JMail. Det jeg har lavet her, virker i hvert fald ikke. Nogen der kan hjælpe?
<%
Response.Buffer = True
strMode = Request.QueryString("mode")
'// Dette er vores connection streng til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/mailliste.mdb")
Conn.Open DSN
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 mailliste"
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 msg = Server.CreateOBject( "JMail.Message" )
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-mail.asp?mode=finish")
End If
%>
<html>
<head>
<title>Mailliste</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body bgcolor="#000000" text="#CCCCCC" link="#FFFFFF" vlink="#FFFFFF" alink="#0000FF">
<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="#000099"><p align="center"><font 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-mail.asp>Tryk her for at lave en ny besked</a></font></p>"
Case Else
%> <form method="POST" action="mailliste-mail.asp">
herefter følger selve formen, men den er jeg ret sikker på er god nok.
