<% 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 = "Webmail@mailclinic.net" MailSubject = "Webmail from your Website" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail-fwd","25","","mailcl","inkn+syb") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries '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,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

The following was sent to " & vbCrlf & "" MailBody = MailBody & " you from your website:

" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Name " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("name") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "
Company " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("company") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
phone " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("phone") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Email " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("email") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Comments " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("comments") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
Found Us? " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & Request.Form("through") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " '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") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@mailclinic.net") 'Send Mail All Entries if ("/Gilman/thanks.htm"<>"") then Response.Redirect("/Gilman/thanks.htm") end if end if %> Mail Clinic Gilman








Contact Form
 If you have any questions regarding our products or services, please contact us by calling or e-mailing us and we'll get back to you as soon as possible. We look forward to hearing from you.


Name
Company
Phone
E-Mail

Found Us Where?

Comments/Questions: