ASP Example Source Code

Email code:

<html>

<head>
<title>FeedbackHandler</title>
<meta name="Microsoft Border" content="none, default">
<META NAME="GENERATOR" CONTENT="Microsoft FrontPage 4.0">
<TITLE>Send CDONTS - Simple Input</TITLE>
</head>

<body>

<h3>Thank you for submitting your information: </h3>
<CODE>
<%@ LANGUAGE="VBSCRIPT" %>
<%
Sub WriteHTML(strInput)
Response.Write(Server.HTMLEncode(strInput) & "<BR>")
End Sub
%>

</code>

<%
Dim objMsg, strFrom, strTo, strSubject, strBody, lngImportance
strFrom = "nobody@msn.com"
strTo = "dhardt@msn.com"
strSubject = "Test Subject"
strBody = "Test Body - generated by data/submitmail.asp"
lngImportance = 0

Set objMsg = Server.CreateObject("CDONTS.NewMail")

objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Importance = lngImportance
objMsg.Send

'=== Alternatively you could have sent this in one line:
'objMsg.Send strFrom, strTo, strSubject, strBody,lngImportance

Set objMsg = Nothing

WriteHTML("The following message was sent via CDO for NTS:")
WriteHTML("From: " &strFrom)
WriteHTML("To: " &strTo)
WriteHTML("Subject: " &strSubject)
WriteHTML("Importance: "&lngImportance)
WriteHTML("Body: " &strBody)
%>
<HR>
Send another message with <A HREF = "cdonts_advInput.htm">
advanced features</A><BR>
Send another message with <A HREF = "cdonts_simpleInput.htm">
basic features</A>
</BODY>
</HTML>