Script versendet keine Mails ---> SERVERPROBLEM

[Ralf]

Hallo,

ich habe ein riesen Problem. Und zwar hab ich ein Formular das alle Daten in einer DB abspeichert und anschließende diese nach mal per mail verteilen soll. Dieses Script funktioniert auf meinem Personal webserver wunderbar. Wenn ich die ASP Seiten aber auf unseren erver lege werden die mails nicht mehr verschickt. Es tut sich also gar nix! An was kann das am Server liegen???

Weiss nicht mehr weiter, Please HELP!!!

Set fs = CreateObject("Scripting.FileSystemObject")
Set fa = fs.OpenTextFile(Server.Mappath("_private/mails.mail"), 1, True, -2)

do while fa.AtEndOfStream <> True inputs = fa.ReadLine

set cdo = Server.CreateObject("CDONTS.Session")
cdo.LogonSMTP Request.ServerVariables("SERVER_NAME"), "mailbot@" & Request.ServerVariables("SERVER_NAME")
set newmsg= cdo.outbox.messages.add
newmsg.recipients.add inputs, inputs
newmsg.subject = "Eingabe von  " & Request("name")
CRLF = chr(13) & chr(10)newmsg.text=newmsg.text & "Datum:" & date & " " & time & "" & CRLF & CRLF
   newmsg.text=newmsg.text & "Betreff:" & Request("betreff") & "" & CRLF
   newmsg.text=newmsg.text & "Name:" & Request("name") & "" & CRLF
   newmsg.text=newmsg.text & "Ort:" & Request("ort") & "" & CRLF
   newmsg.text=newmsg.text & "Art:" & Request("art") & "" & CRLF
   newmsg.text=newmsg.text & "Problem" & Request("problem") & "" & CRLF
   newmsg.text=newmsg.text & "Priorität:" & Request("dringend") & "" & CRLF
   newmsg.text=newmsg.text & "Zeitkritisch:" & Request("kritisch") & "" & CRLF
   newmsg.text=newmsg.text & "Termin:" & Request("termin") & "" & CRLF
   newmsg.text=newmsg.text & "Bemerkung:" & Request("bemerkung") & "" & CRLF & CRLF & CRLF
   newmsg.text=newmsg.text & "status:" & Request("status") & "" & CRLF

newmsg.send
  Loop
  fa.Close

Response.Redirect "mail_ok.htm"