Nils Gerken: ASP Neuling barucht hilfe

Beitrag lesen

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