<% 'Option Explicit %>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sHTMLBody
'Get data from previous page
sTo = Request("sTo")
sFrom = Request("sFrom")
sSubject = Request("sSubject")
sHTMLBody = Request("sHTMLBody")
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = sFrom
objMail.To = "webmaster@am850.com, tkrynski@wruf.com, fsmith@wruf.com"
objMail.Subject= sSubject
objMail.HTMLBody = sHTMLBody
'Send the email
objMail.Send
'Set sMsg which will be used later
sMsg = "Your message has been sent." & sTo
'Clean-up
Set objMail = Nothing
End If
%>
AM850.com