<%option explicit '============================================================= 'This script accepts input for self-posting contact 'page and composes and sends an email from the posted 'data. ' 'Author: Mark Baldwin (mbaldwin@networkfactor.net) 'created:2/28/2007 '============================================================= dim msg dim oMail if len(request.form("action"))<>0 then msg = "
The following is an information request from the contact page on tampabayloanofficer.com

" msg = msg & "First name:" & request.form("txtFirstName") & "
" msg = msg & "Last name:" & request.form("txtLastName") & "
" msg = msg & "Phone:" & request.form("txtPhone") & "
" msg = msg & "Email:" & request.form("txtEMail") & "

" msg = msg & "" msg = msg & iif(request.form("chkRequestSelf")="on","themselves or a spouse.
","") msg = msg & iif(request.form("chkRequestParent")="on","a parent or family member.
","") msg = msg & iif(request.form("chkRequestFriend")="on","a friend.
","") msg = msg & iif(request.form("chkRequestOther")="on", chr(34) & request.form("txtRequestOther_Desc") & chr(34) & "
","") msg = msg & iif(request.form("chkPleaseCall")="on","
Please call with information
","") msg = msg & iif(request.form("chkSendMoreInfo")="on","
Please mail information
","") msg = msg & iif(request.form("chkEMailMoreInfo")="on","
Please email information to " & request.form("txtEMail") & "
","") msg = msg & "

They heard about the website from
" msg = msg & iif(request.form("chkHeard_Newspaper")="on","a magazine.
","") msg = msg & iif(request.form("chkHeard_Mail")="on","mail.
","") msg = msg & iif(request.form("chkHeard_Google")="on","Google
","") msg = msg & iif(request.form("chkHeard_Yahoo")="on","Yahoo!.
","") msg = msg & iif(request.form("chkHeard_MSN")="on","MSN Live
","") msg = msg & iif(request.form("chkHeard_Internet")="on","the internet.
","") msg = msg & iif(request.form("chkHeard_Other")="on",chr(34) & request.form("txtHeard_OtherDesc") & chr(34) & "
","") msg = msg & iif(len(request.form("txtComments"))<>0,"

Additional comments:" & chr(34) & request.form("txtComments") & chr(34) ,"") msg = msg & "
" set oMail = CreateObject("CDO.Message") with oMail .Subject = "Website Request" .From = "WebRequest@tampabayloanofficer.com" .To = "mbaldwin@networkfactor.net" .HTMLBody = msg .Send end with set oMail = nothing response.redirect "redirect.html" response.end end if function iif(cond,t,f) if cond then iif = t else iif = f end if end function %> Tampa Bay Loan Officer .com - Contact

Contact
Phone 727.421.7517
E-mail will@tampabayloanofficer.com

Contact

Will Merritt
12360 66th Street N., Ste. M-1
Largo, Florida 33773

Phone (727) 421-7517
Phone (813) 514-1187

E-mail- will@tampabayloanofficer.com

  

 

 

   Home Ownership Accelerator
    Testimonials
    Free Mortgage Reports
    Secure 1003 Loan Application
    Free Mortgage Calculator
    About Will Merritt
Contact

 

*Required fields

First Name *

      

Last Name *

      

Phone:

      

E-Mail: *

      

 

Message:


I heard about Will Meritt from:

  

  

  

  





       
         
© 2007 Will Merritt
Site Design by Network Factor