Hi,
Ich verstehe nicht, was ich in dem Script Falsch gemacht habe,
es gibt folgende Fehlermeldung:
jmail.SMTPMail-Fehler '8000ffff'
No recipients
/asp/send.asp, Zeile 24
Was bedeutet das??
Hier das Script:
<%
response.buffer = true
dim useraction,subject,comm,emails
useraction=request("action")
select case useraction
case "send"
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
dsn="DBQ=" & Server.Mappath("../database/subs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open dsn
SQL = "SELECT emails from emails order by id"
rs.open sql,conn
do while not rs.eof
emails=rs("emails")
subject = request.form("subject")
comm = request.form("comm")
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.janssen-s1.de:25"
JMail.ReplyTo = emails
JMail.Sender = "taggeckos@taggeckos.de"
JMail.Subject = subject
JMail.Body = comm
JMail.Execute()
rs.movenext
loop
set JMail = nothing
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "<script>alert('has been sent!');"
response.write "location.href='index.asp'</script>"
end select
%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
<form action="send.asp?action=send" method="post">
<table><tr><td>
Subject:</td><td><input type="text" name="subject" size=20 maxlength=30></tr></td>
<tr><td>
message:</td><td><textarea cols=20 rows=8 name="comm"></textarea></tr></td>
<tr><td colspan=2><input type=submit name=submit>
</form>
</table>
</body>
</html>