Nieuw lid |
|
ProbeerDit Eens Voor een Asp Mailform
<html>
<head>
<title>ASPSend mail voorbeeld</title>
</head>
<body>
<%
'Getting (Requesting) the Session variables from Form on previous page
Session("FromName") = Request("FromName")
Session("FromAddress") = Request("FromAddress")
Session("Subject") = Request("Subject")
Session("BodyText") = Request("BodyText")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Setting variables
Mailer.FromName = Session("FromName")
Mailer.FromAddress = Session("FromAddress")
Mailer.RemoteHost = "smtpmail.activeisp.com"
Mailer.AddRecipient "Webmaster Active ISP", "webmaster@domain.com"
Mailer.Subject = Session("Subject")
Mailer.BodyText = Session("BodyText")
'Checking if mail sent ok, if not display error message
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
'Abandoning session variables
Session.Abandon
%>
</body>
</html>
<html> <head> <title>ASPSend mail voorbeeld</title> </head> <body> <% 'Getting (Requesting) the Session variables from Form on previous page Session("FromName") = Request("FromName") Session("FromAddress") = Request("FromAddress") Session("Subject") = Request("Subject") Session("BodyText") = Request("BodyText") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'Setting variables Mailer.FromName = Session("FromName") Mailer.FromAddress = Session("FromAddress") Mailer.RemoteHost = "smtpmail.activeisp.com" Mailer.AddRecipient "Webmaster Active ISP", "webmaster@domain.com" Mailer.Subject = Session("Subject") Mailer.BodyText = Session("BodyText") 'Checking if mail sent ok, if not display error message if Mailer.SendMail then Response.Write "Mail sent..." else Response.Write "Mail send failure. Error was " & Mailer.Response end if 'Abandoning session variables Session.Abandon %> </body> </html>
:!: :!:
|