<% Function ValidEmail(sEmail) ValidEmail = false Dim regEx, retVal Set regEx = New RegExp regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" regEx.IgnoreCase = true retVal = regEx.Test(sEmail) If not retVal or sEmail = "" Then exit function End If ValidEmail = true End Function if request.form("submit") <> "" then goodreg = false name = request.form("name") email = request.form("email") phone = request.form("phone") comments = request.form("comments") if name = "" or len(name) < 10 then error = error & "Your full name is needed
" end if if not ValidEmail(email) then error = error & "Please use a valid email address
" end if if len(comments)<6 then error = error & "You must enter a comment.
" end if if phone="" then error = error & "You musr enter a phone number.
" end if if error = "" then dim rewq rewq = name & " has sent you a question/comment" & vbcrlf & vbcrlf &_ "Phone: " & phone & vbcrlf & vbcrlf &_ "Email: " & email & vbcrlf &_ "Comments: " & comments & vbcrlf set objMail = new Emailer objMail.Authenticate = cdoBasic objMail.Username = "automailer@icommailservices.com" objMail.Password = "y*WIJb!Y17qrUjo" hostname = ucase(Request.ServerVariables("HTTP_HOST")) objMail.SendTo = "hectorptsports@gmail.com" 'objMail.SendTo = "cs@hitmanservices.com" objMail.SendFrom = email objMail.CC = "" objMail.BCC = "" objMail.Subject = "ATTN: Email from HectorPT.com" objMail.TextBody = rewq objMail.Send set objMail = nothing error = error & "Thank you for your comments!
" name = "" email = "" phone = "" comments = "" end if end if %> Hectorpt - Physical Therapy - Senior Rehabilitation

HECTORPT SENIOR REHABILITATION SERVICES, PLLC.

Administrative office:
1 Wall Street, Clifton Park NY  12065

Phone: (518) 371-5554
Mobile: (518) 577-5214
E-Fax: (866) 416-1258
Email: hectorptsports@gmail.com

<% =error %>
Full Name:
Email Address:
Phone Number:
Questions/Comments: 

Home | About Us | Patient Service | Fall Prevention | Locations | Business Partners | Contact Us