Accounting Services

<% if Request.Querystring("contact")="1" then if Request.Form ("Phone")<>"" and Request.Form ("FirstName")<>"" then if Request.form("Comments")<>"" then emailBody = emailBody & Request.form("Comments") & vbcrlf & vbcrlf end if emailBody = emailBody & "----------------------------------------" & vbcrlf emailBody = emailBody & "Contact Request" & vbcrlf emailBody = emailBody & "----------------------------------------" & vbcrlf emailBody = emailBody & "Name: " & vbTab & vbTab & Request.form("FirstName") & vbcrlf if Request.form("CompanyName")<>"" then emailBody = emailBody & "Organization: " & vbTab & Request.form("OrgName") & vbcrlf end if if Request.form("Email")<>"" then emailBody = emailBody & "Email: " & vbTab & vbTab & Request.form("Email") & vbcrlf end if emailBody = emailBody & "Phone: " & vbTab & vbTab & Request.form("Phone") & vbcrlf & vbcrlf emailBody = emailBody & "Services: " & vbcrlf if Request.form("svc1")<>"" then emailBody = emailBody & vbTab & vbTab & vbTab & Request.form("svc1") & vbcrlf end if if Request.form("svc2")<>"" then emailBody = emailBody & vbTab & vbTab & vbTab & Request.form("svc2") & vbcrlf end if if Request.form("svc3")<>"" then emailBody = emailBody & vbTab & vbTab & vbTab & Request.form("svc3") & vbcrlf end if if Request.form("svc4")<>"" then emailBody = emailBody & vbTab & vbTab & vbTab & Request.form("svc4") & vbcrlf end if if Request.form("svc5")<>"" then emailBody = emailBody & vbTab & vbTab & vbTab & Request.form("svc5") & vbcrlf end if On error resume next set myMail=CreateObject("CDO.Message") if Request("Email")<>"" then myMail.From = Request("Email") else myMail.From = "contact@bedlamassociates.com" end if myMail.To = "info@bedlamassociates.com" myMail.Subject = "Contact Request" myMail.TextBody = emailBody myMail.Send sent=1 set myMail=nothing 'On error resume next 'Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") 'mySmartMail.Server = "mail.adhost.com" 'if Request("Email")<>"" then 'mySmartMail.SenderName = Request("FirstName") 'mySmartMail.SenderAddress = Request("Email") 'else 'mySmartMail.SenderName = "Bedlam Associates" 'mySmartMail.SenderAddress = "contact@bedlamassociates.com" 'end if 'mySmartMail.Recipients.Add "info@bedlamassociates.com", "Bedlam Associates" ''mySmartMail.Recipients.Add "drew@flywrightdesign.com", "Bedlam Associates" 'mySmartMail.Subject = "Contact Request" 'mySmartMail.Body = emailBody 'mySmartMail.Priority = 1 'mySmartMail.ContentType = "text/plain" 'mySmartMail.SendMail 'sent=1 ' set mySmartMail = nothing else error = 1 end if end if %> Accounting Services

Please enter your information below and we will
contact you to answer any questions you may have.

<% if error=1 then errorFirstName = Request("FirstName") errorOrgName = Request("OrgName") errorEmail = Request("Email") errorPhone = Request("Phone") erroremailBody = Request("EmailBody") if Request("FirstName")="" then ColorFirstName = "" ErrorMsgFirst = "
Please enter your Name

" else ColorFirstName = "" end if if Request("Phone")="" and Request("Email")="" then ColorPhone = "" ErrorMsgPhone = "
Please enter your Phone number so we may contact you

" else ColorPhone = "" end if %>
Oops! You have been returned here for the following reasons

<%=ErrorMsgFirst%> <%=ErrorMsgPhone%>

<% elseif sent=1 then Response.write "
Thank you!

Your request has been sent. Someone from Bedlam Associates will contact you within 1 business day.

We appreciate your interest in Bedlam Associates.

Click here for our favorite links page." end if %>

<%if sent<>1 then%>

<%=ColorFirstName%>Your Name:	">	Mailing Address: Bedlam Associates Inc PO Box 870 Woodinville WA 98072 Phone Number: 425-806-9464
Organization Name:	">
Email:	">
<%=ColorPhone%>Daytime Phone:	">
Services: (please check all that apply)	"" then%>checked<%end if%>> Bookkeeping
	"" then%>checked<%end if%>> Payroll
	"" then%>checked<%end if%>> Consulting
	"" then%>checked<%end if%>> Taxes
	"" then%>checked<%end if%> ID="Checkbox1"> Non-profit Organizations
Additional Comments:	<%=Request("Comments")%>

<%'********************************%>