%@ Language=VBScript %>
<%
'Option Explicit
name = Request.Form("name")
email = Request.Form("email")
phone = Request.Form("phone")
note = Request.Form("note")
if name = "" Then name = "n/a"
if email = "" Then email = "n/a"
if phone = "" Then phone = "n/a"
if note = "" Then note = "n/a"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
strSubject = "[WEBSITE] From: " & name
strBody = "Message From: " & name & " - " & email & vbCrlf &_
"Contact Number: " & phone & vbCrLF & vbCrlf &_
"Message: " & note & vbCrLF & vbCrLF & vbCrlf &_
"" & vbCrlf &_
""
objCDOMail.From = "website@reptileaddictions.com"
objCDOMail.Value("Disposition-Notification-To") = email
'objCDOMail.To = "liberatingforces@gmail.com"
objCDOMail.To = "awolfe@wolfari.com;liberatingforces@gmail.com"
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
'objCDOMail.Cc = "user@domain.com;user@domain.com"
'objCDOMail.Bcc = "emailbackup@lqoa.com"
objCDOMail.Importance = 2 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
'objCDOMail.MailFormat = 0 ' CdoMailFormatMime
objCDOMail.Send
%>
Liberating Forces
|
|
|
|
|
| |
|
Liberating Forces |
| |
|
PO Box 1234 |
|
Spokane, Wa 99201 |
| |
|
(509) 828-3707 |
| |
|
Emergency 24/7:
(509) 828-3707 |
|
|
|
|
|
|
Your
message has been sent. Thank you! |
| |
|
|
|
|