%
Dim strConfirmation
strConfirmation = ""
If Request("REQUEST_METHOD") = "POST" then
dim strTo, strFrom, strBcc, strCc, strSubject
strTo = request.form("email")
strFrom = "projecttools@sherpabrandmarketing.com"
'strBcc = ""
strBcc = "projecttools@sherpabrandmarketing.com"
strSubject = request.form("subject")
If not IsValidEmail(strTo) then
strTo = strBcc
End if
'strConfirmation = "
To: " & strTo & "
From: " & strFrom & "
Bcc: " & strBcc & "
Subject: " & strSubject & "
"
SendFormConfirmation strTo, "", strBcc, strFrom, strSubject
strConfirmation = "
The information has been submitted successfully. Thank you!
"
end if
%>
|
|
||||||||||||||
|