<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
function WA_Universal_Email_1_SendMail(RecipientEmail)
dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
MailAttachments = ""
MailBCC = ""
MailCC = ""
MailTo = ""
MailBodyFormat = ""
MailBody = ""
MailImportance = ""
MailFrom = "" & cStr(cStr(Request.Form("name"))) & ""
MailSubject = "From the Website"
'Global Variables
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""
set WA_MailObject = WAUE_Definition("rcsmail.rogerscomputer.com","25","","","")
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
else
'To Entries
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"tivey@rogerscomputer.com")
MailTo = gAddRecipient
end if
'Attachment Entries
set WA_MailObject = WAUE_AddAttachment(WA_MailObject,"" & cStr(cStr(Request.Form("fileatt"))) & "")
'BCC Entries
MailBCC = gAddBCC
'CC Entries
MailCC = gAddCC
'Body Format
set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0)
MailBodyFormat = gBodyFormat
'Set Importance
set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1")
MailImportance = gSetImportance
'Start Mail Body
MailBody = MailBody & ""
cstr(Request.Form("name"))
MailBody = MailBody & "" & vbCrlf & ""
'End Mail Body
set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody)
set WA_MailObject = nothing
end function
%>
<%
if ((Request.ServerVariables("Request_Method") = "POST")) then
'WA Universal Email object="CDOSYS"
'Send Loop Once Per Entry
'Send Mail All Entries
WA_Universal_Email_1_SendMail("")
if ("mail.asp"<>"") then
Response.Redirect("mail.asp")
end if
end if
%>
Mascot Costumes by Scollon Productions Inc.
