%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
Dim sAction
sAction = GetValue("txtaction","")
If sAction = "send" Then
Call FormInit
Call LoadForm
If inStr("@",GetValue("Email","")) <= 0 Or inStr(".",GetValue("Email","")) <= 0 Then Call SetError("Email")
If Not bWasError And (TestCaptcha("ASPCAPTCHA", Request.Form("captchacode"))) Then
sSubject = "TaxLawFirm.net Contact Form"
sBody = ""
aForm = split(GetValue("FRM_DATABASE",""), ",")
For i = 0 to uBound(aForm)
If inStr(aForm(i),"_Phone") > 0 Then
If GetValue(aForm(i),"") <> "" Then sBody = sBody & StripChars(Replace(aForm(i),"_"," "),"123") & ": " & GetValue(aForm(i),"") & "-" & GetValue(aForm(i+1),"") & "-" & GetValue(aForm(i+2),"") & " "
i = (i+2)
Else
sBody = sBody & Replace(aForm(i),"_"," ") & ": " & GetValue(aForm(i),"") & " "
End If
Next
Dim oMail
Set oMail = server.CreateObject("MEMail.Message")
oMail.MailFrom = "rob@trafficworx.com"
oMail.ContentType = "text/html;"
oMail.MailTo = "billh@taxlawfirm.net"
oMail.Subject = sSubject
oMail.MessageBody = sBody
oMail.SendMessage
Response.Redirect("http://www.taxlawfirm.net/confirmation.asp")
Response.End
End If
End If
%>
Schedule a Free Consultation- California Tax Attorney
William D. Hartsock, ESQ. Certified Tax Law Specialist
This e-mail is protected by Attorney-Client Privilege and will not be disclosed to the Internal Revenue Service or state government agencies, regardless of whether you hire us are not, therefore, feel free to contact us and talk about your tax situation.
Attention Webmasters: DO NOT use this form for link requests or sales solicitations. Direct all requests to schleef@gmail.com
Contact Information
William D. Hartsock, Esq
12636 High Bluff Drive
Suite 110
San Diego, CA 92130
Tel (858) 481-4844
Fax (858) 481-5077