<%@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.
   
  
   
 
Home
Home
Costume Extra
Who We Are
Our Clients
About Our Costumes
Event Talent Coordination
Retail Promotions
Ship & Store Program
Your Character Design By Tomorrow
Costume Photo Gallery