Hi Leute,
nach dem ich bei meinem webspace provider kein sendmail for windows zum laufen bekomme versuche ich es mit Asp.
Nun meine FRage:
wo muss ich in dem Script auf jamil (jmail liegt im path) verweisen und was muss ich eventuell noch ändern?
<%
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 objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = emails
objCDO.From = "taggeckos@taggeckos.de"
objCDO.Subject = subject
objCDO.Body = comm
objCDO.Send
rs.movenext
loop
set objCDO = 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
%>
Ciao Nils