JMail-problemer efter skift af host
Jeg er for et stykke tid siden skiftet til ConCor, og har nu problemer med at få mine JMail-scripts til at virke. Nedenstående bruger jeg til at oprette en bruger v.hj.a. en formular. Når jeg trykker på submit, skal mailen dannes og sendes til brugeren. Når det er gjort, skal brugeroplysningerne gemmes i databasen.Dét med at gemme volder ingen problemer, men der sker absolut intet, der bliver ikke sendt nogen mail afsted. Hvor går det galt?
<%
If Request.Form("mode") = "createuser" Then
Dim Conn
%>
<!-- #include virtual="/includes/dbconnopen.asp" -->
<%
Dim vPassword
vPassword = RandomString(8)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Sender = "createuser@mydomain.dk"
JMail.Subject = "Emne"
JMail.AddRecipient Trim(Request.Form("email"))
JMail.AddRecipientBCC "my@email.dk"
JMail.Body = _
"......................................."
JMail.Execute
Dim Dato
Dato = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time
If JMail.Execute = True Then
Conn.Execute("INSERT INTO attachusers (..........) VALUES (" & _
"'" & ........ & "', " & _
"'" & EnHelMasse & "', " & _
"'" & Dato & "', " & _
"'" & ........) & "')")
Conn.Close
Else
Conn.Close
Response.Redirect "/error.asp?msg=E-mail+med+brugeroplysninger+kunne+ikke+sendes+til+e-mailadressen,+og+brugeren+kunne+derfor+heller+ikke+oprettes.+Kig+efter+om+den+indtastede+e-mailadresse+er+korrekt,+og+prøv+igen."
End If
Set JMail = Nothing
Response.Redirect "/default.asp?msg=Brugeren+er+blevet+oprettet.+Den+pågældende+bruger+vil+inden+for+kort+tid+modtage+en+e-mail+med+brugeroplysningerne,+som+skal+bruges+første+gang+der+logges+ind."
End If
%>
