<% Option Explicit %>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sHTMLBody
'Get data from previous page
sTo = "jmadkins@traumasupport.info; familyptsr@traumasupport.info"
sFrom = "familyptsr@traumasupport.info"
sSubject = "Info Request"
sHTMLBody = "NAME: " + Request("txName") + " EMAIL: " + Request("txemail") + " COMMENTS: " + Request("tacomments")
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 = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody
objMail.HTMLBody = sHTMLBody
'Send the email
objMail.Send
'Clean-up
Set objMail = Nothing
response.Redirect("request_info_response.htm")
End If
%>
FTSN - RI
