ASP Neuling barucht hilfe

[Nils Gerken]

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 = "[e-mail]"
  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

[fK.]

Hi Leute,

nach dem ich bei meinem webspace provider kein sendmail for windows zum laufen bekomme versuche ich es mit Asp.

Wieso geht sendmail nicht?
Meisstens kommt es auf die Version. Ältere Version wie 1.2 unterstützen noch nicht alle  Features, sowei redirect oder subject etc.

Bei mir habe ich mich auf 1.2-Features ebanfalls beschränken müssen, da mein IS-Provider ne alte Ver. fährt.
Bei mir siehts so aus:

-----------------------------------
<%
methode=UCASE(Request.ServerVariables("REQUEST_METHOD"))

weiter=true  
if methode = "GET" then  

if request.querystring("SendTo")<>"" then
   set mail = Server.CreateObject("ABMailer.Mailman")
   mail.Clear
   ' mail.FromAddress=request.querystring("FromAddress")
   ' mail.FromName=request.querystring("FromName")
   mail.ReplyTo=request.querystring("ReplyTo")
   mail.MailDate=request.querystring("MailDate")
   mail.SendTo=request.querystring("SendTo")
   mail.SendCC=request.querystring("SendCC")
   ' mail.SendBcc=request.querystring("SendBCC")
   ' mail.MessageType=request.querystring("MessageType")
   mail.MailSubject=request.querystring("Mailsubject")
   mail.MailMessage=request.querystring("Mailmessage")
   ' mail.AttachmentFiles=request.querystring("AttachmentFiles")
   mail.ServerAddr=request.querystring("ServerAddr")
   ' mail.ServerLoginUserID=request.querystring("ServerLoginUserID")
   ' mail.Organization=request.querystring("Organization")
   ' mail.XPriority=2 ' Normale Priorität
   if mail.ServerAddr="" then mail.ServerAddr="consoft.de"
   if mail.ServerPort=0 then mail.ServerPort=25
   if mail.MailDate="" then mail.MailDate = FormatDateTime(Date, vbLongDate)
   ' if mail.ReplyTo="" then mail.ReplyTo=mail.FromAddress
   mail.SendMail
   set mail=Nothing
   response.redirect("startseite.asp?meldung=Der Leserbrief wurde erfolgreich verschickt!")
   response.write("<span class=""centered"">Die E-Mail wurde versandt.</span>")
   weiter=false
  end if
else
  if request.form("SendTo")<>"" then
   set mail = Server.CreateObject("ABMailer.Mailman")
   mail.Clear
   ' mail.FromAddress=request.form("FromAddress")
   ' mail.FromName=request.form("FromName")
   mail.ReplyTo=request.form("ReplyTo")
   mail.MailDate=request.form("MailDate")
   mail.SendTo=request.form("SendTo")
   mail.SendCC=request.form("SendCC")
   ' mail.SendBcc=request.form("SendBCC")
   ' mail.MessageType=request.form("MessageType")
   mail.MailSubject=request.form("Mailsubject")
   mail.MailMessage=request.form("Mailmessage")
   ' mail.AttachmentFiles=request.form("AttachmentFiles")
   mail.ServerAddr=request.form("ServerAddr")
   ' mail.ServerLoginUserID=request.form("ServerLoginUserID")
   ' mail.Organization=request.form("Organization")
   ' mail.XPriority=2 ' Normale Priorität
   if mail.ServerAddr="" then mail.ServerAddr="consoft.de"
   if mail.ServerPort=0 then mail.ServerPort=25
   if mail.MailDate="" then mail.MailDate = FormatDateTime(Date, vbLongDate)
   ' if mail.ReplyTo="" then mail.ReplyTo=mail.FromAddress
   mail.SendMail
   set mail=Nothing
   ' response.redirect("startseite.asp")
   response.write ("Die E-Mail wurde versandt.")
   weiter=false
  end if
end if
if weiter then
  set dbFreund=OpenDB("Newsletter")
  sql="SELECT headline,nachricht FROM news WHERE id=" & request.querystring("id")
  set rsFreund=dbFreund.Execute(sql)
%>

-------------------------------------

Und hier die URL zu der Seite:

http://www.haustechnikdialog.de/artikel.asp?id=166#

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 = "[e-mail]"
  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