EDUCATE YOURSELF ABOUT TAXES! <% 'If the form has not been submitted execute the following code If Request.Form="" Then %>

email us at inquiries@cwpassoc.com
Name
Email
Phone
Contact By phone e-mail?
Comments
 
  <% 'If the form has been submitted execute the following code Else 'receive the form values Dim sName, sEmail, sPhone, sContact, sFeedback sName=Request.Form("txtName") sEmail=Request.Form("txtEmail") sPhone=Request.Form("txtPhone") sContact=Request.Form("txtContact") sFeedback=Request.Form("txtFeedback") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "HTML Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Feedback from: " & sName & "
" sEmailText = sEmailText & "Email Address: " & sEmail & "
" sEmailText = sEmailText & "Phone Number: " & sPhone & "
" sEmailText = sEmailText & "Contact by: " & sContact & "
" sEmailText = sEmailText & "Message:" & sFeedback & "

" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "inquiry@cwpassoc.com" 'change to your address NewMailObj.BCC = "anthony@meswebguys.com" NewMailObj.Subject = "CWPASSOC Website Feedback" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.Redirect "index.htm" 'Response.write "We will get back to you very soon." End If %>

What if you are Audited?

What is an Earned Income Credit?

Difference between Business Loss vs. Hobby Loss

Tax Breaks for Educators
CWP & Associates
16250 Northland Dr. Ste 221
Southfield, MI 48075
Phone: (248)809-2379
Fax: (248)809-2412
Home - Contact Us - Site Map - Online Resources