<% 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 = "webmaster@capstarmortgagegroup.com" MailSubject = "Contact From CAPSTAR Website" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail.capstarmortgagegroup.com","25","","capstar@capstarmortgagegroup","!mortgage!") 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 & "The following information was filled out on your contact form!

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("fname")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("lname")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("addy")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Zip: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Your Needs: " MailBody = MailBody & cStr(Request.Form("needs_group")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Purchase Price: " MailBody = MailBody & cStr(Request.Form("price")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Loan Amount: " MailBody = MailBody & cStr(Request.Form("loan")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("textarea")) 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")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@capstarmortgagegroup.com") 'Send Mail All Entries if ("thankyou.htm"<>"") then Response.Redirect("thankyou.htm") end if end if %> Capstar Mortgage Group | Providing Home Equity Loans and Mortgage Refinancing | Jacksonville, Florida

Contact Us

CAPSTAR Mortgage Group, Inc.

phone: (904) 241-4146

fax: (904) 241-3675

email: info@capstarmortgagegroup.com

*First Name:
*Last Name:
Address:
City:
State:
Zip:
*Phone:
*Email Address:
Your Needs: (Select all that apply)	To select more than one item, hold down the CTRL key
Purchase Price :
Loan Amount:
Comments:

	* Indicates a Required Field