|
|
 |
<%
If Request.QueryString("ProcessForm") <> 1 Then
%>
|
Please leave us the following information
about you and your Comments:
|
|
|
|
|
Our Contact Information:
|
|
Blue-Ribbon Accounting & Tax CPA
83-21 Broadway, Elmhurst, New York 11373
Tel: (718)760-8800 Fax: (718)760-5200
E-Mail: aa@blueribboncpa.com
|
<%
Else
' process form
Dim objSendMail
Set objSendMail = CreateObject("CDONTS.NewMail")
With objSendMail
.From = Request.Form("Email")
.To = "aa@blueribboncpa.com"
.Subject = Request.Form("Interested")
.Body = "Last Name: " & Request.Form("LastName") & ", First Name: " & Request.Form("FirstName") & ", Phone: " & Request.Form("AreaCodeTel") & Request.Form("Phone") & ", Fax: " & Request.Form("AreaCodeFax") & Request.Form("Fax") & ", Beeper: " & Request.Form("Beeper") & ", Email: " & Request.Form("Email") & ", Hours to Contact: " & Request.Form("Hours") & ", Interested In: " & Request.Form("Interested") & ", Comment: " & Request.Form("Comment")
.Send
End With
Set objSendMail = Nothing
%>
Thank you, your contact request has been sent. we will get to you
shortly.
<%
End If
%>
|
 |
|
|
