Næste problem i ASPmail rækkefølgen.
Jeg har et lille problem med følgende scripts.------------------------------------------------
<html>
<head>
<title>Send en testmail 2</title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../STYLE/style.css">
</head>
<body background="../IMAGES/startile.gif">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/login.mdb")
Conn.Open DSN
strSQL = "Select * From Users Where MON = 'Ja'"
Set rs = Conn.Execute(strSQL)
%>
<br><br>
<h2>Send en testmail</h2>
<form action="send_test_script2.asp" method="post">
<table border="0">
<%
do while not rs.EOF
%>
<tr>
<td><input type="checkbox" name="Check" value="<% =rs("Mail") %>"></td>
<td width=150><font><% =rs("Firstname") & " " & rs("Lastname") %></font></td>
<td><font><% =rs("Mail") %></font></td>
</tr>
<%
rs.MoveNext
loop
rs.close
Conn.Close
Set Conn = Nothing
%>
</table>
<br><br>
<font>Emne :</font><br>
<input type="text" name="subject"></input><br><br>
<font>Besked :</font><br><br>
<textarea name="message" cols="60" rows="15"></textarea><br><br>
<input type="submit" value="send">
</form>
</body>
</html>
Ovenstående script lister en række brugere. Her kan man så sætte flueben ved dem man ønsker at sende mail til. Herefter udfylder man Emne og Besked og trykker på Send. Det hele bliver så behandlet i følgende script.
------------------------------------------------
<html>
<head>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="../STYLE/style.css">
<title>Send en testmail - script 2</title>
</head>
<body background="../IMAGES/startile.gif" text="#FFC600" link="#FFC600" vlink="#FFC600" alink="#975386">
<br><br>
<div style="text-align:center">
<font>
<%
Server.ScriptTimeOut = 30
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/login.mdb")
Conn.Open DSN
set mail = Conn.execute("select * from Users where UserID=" & session("UserID") & "")
afsender_mail = mail("Mail")
afsender_navn = mail("FirstName") & " " & mail("LastName")
mail.close
set mail=nothing
strSQL = "select * FROM Users where Mail='" & Request.Form("Check") & "'"
Set rs = Conn.Execute(strSQL)
Do
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = afsender_navn
Mailer.FromAddress = afsender_mail
Mailer.RemoteHost = "smtp.unoeuro.com"
Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
Mailer.Subject = Request.Form ("subject")
Mailer.BodyText = "Hej" & " " & rs("FirstName") & " " & rs("LastName") & vbcrlf & vbcrlf & Request.Form ("message")
' Send e-mail og skriv status
if Mailer.SendMail then
Response.Write "Nyhedsbrev sendt til : " & rs("Mail") & "<br>"
no = no + 1
else
Response.Write "Der skete en fejl: " & Mailer.Response
end if
Set Mailer = Nothing
rs.MoveNext
Loop While Not rs.EOF
' When messages have been sent to all the users, exit
Response.Write "<br>" & "<b>" & "Nyhedsbrev sendt til " & no & " bruger(e)." & "</b>"
%>
</font>
</div>
</body>
</html>
------------------------------------------------
Problemet består i at det hele kun virker når jeg sætter flueben ved 1 bruger. Sætter jeg flueben ved flere få jeg følgende fejl :
error '80020009'
/ADMIN/send_test_script2.asp, line 50
Linje 50 er følgende -> Mailer.AddRecipient rs("FirstName") & " " & rs("LastName"), rs("Mail")
Hjææælp. ;-)
