Sendmail
Nedenfor vil du finne eksempelscript på ASPmail og PHPmail.
Dette scriptet er delt i to .asp sider. Det første (sendmail_form.asp) vil samle data i skjema og det andre (sendmail.asp) vil prosessere selve e-post sendingen.
Kildekode:
script 1: sendmail_form.asp:
<html>
<head>
<title>ASPSend mail example</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form action="sendmail.asp" method="POST">
<P>
Your Name:<BR>
<input type="Text" name="FromName" size="25" maxlength="50">
<P>
Your E-Mail Address:<br>
<input type="Text" name="FromAddress" size="25" maxlength="50">
<P>
Subject:<br>
<input type="Text" name="Subject" size="25" maxlength="50">
<P>
Message:<BR>
<textarea name="BodyText" cols="50" rows="10" wrap="PHYSICAL"></textarea>
<P>
<input type="Reset"> <input type="Submit" name="Send" value="Send">
</form>
</body>
</html>
script 2: sendmail.asp:
<html>
<head>
<title>ASPSend mail example</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>
