<% recaptcha_challenge_field = Request.Form("recaptcha_challenge_field") recaptcha_response_field = Request.Form("recaptcha_response_field") recaptcha_public_key = "6LdbU8gSAAAAAIetdaiN01Q2Z2QBUgIhWG3S5dB2" ' your public key recaptcha_private_key = "6LdbU8gSAAAAAO8myhXzEEe6wF20ZGPwcq58gFyY" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "" end function ' returns "" if correct, otherwise it returns the error response function recaptcha_confirm(rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & recaptcha_private_key & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then 'They answered correctly recaptcha_confirm = "" else 'They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function server_response = "" newCaptcha = True if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field) newCaptcha = False end if %>

Contact Form

<% if server_response <> "" or newCaptcha then %>

"/>

" />

" />

" />

" />

" />

" />

" />

"/>



 
<% else %> <% Dim locationEmail locationEmail = Request.Form("userSelectedLocation") Select Case locationEmail Case "SCA" locationEmail = "mgarland@tubeservice.com;kfreitas@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com" Case "ECA" locationEmail = "dsmith@tubeservice.com;mgarland@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com" Case "MCA" locationEmail = "mmalsberg@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com" Case "PAZ" locationEmail = "eroberts@tubeservice.com;tfaley@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com" " Case "ACO" locationEmail = "jkohmuench@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com;cbui@rsac.com" Case "POR" locationEmail = "rkilsby@tubeservice.com" 'locationEmail = "tfaley@tubeservice.com" End Select sch = "http://schemas.microsoft.com/cdo/configuration/" Dim cdoConfig Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "sendusername") = "test" .Item(sch & "sendpassword") = "test" .Item(sch & "smtpserverport") = 25 .update End With Dim objSendMail Set objSendmail = Server.CreateObject("CDO.Message") With objSendmail .From = "no-reply@tubeservice.com" .to = locationEmail .cc = Request.Form("userEmail") .Subject = "TubeService.Com - Contact Us: " & Request.Form("userSubject") .TextBody = "Message from Contact Us on www.tubeservice.com " & vbCrLf & vbCrLf & _ "Customer Company: " & Request.Form("userCompanyName") & vbCrLf & vbCrLf & _ "Customer First Name: " & Request.Form("userFirstName") & vbCrLf & vbCrLf & _ "Customer Last Name: " & Request.Form("userLastName") & vbCrLf & vbCrLf & _ "Customer Address: " & Request.Form("userAddress") & vbCrLf & vbCrLf & _ "Customer City: " & Request.Form("userCity") & vbCrLf & vbCrLf & _ "Customer State/Province: " & Request.Form("userStateProvince") & vbCrLf & vbCrLf & _ "Customer Zip: " & Request.Form("userZip") & vbCrLf & vbCrLf & _ "Customer Telephone: " & Request.Form("userTelephone") & vbCrLf & vbCrLf & _ "Customer E-Mail: " & Request.Form("userEmail") & vbCrLf & vbCrLf & _ "Customer Message: " & vbCrLf & vbCrLf & Request.Form("userMessage") .Send End With Set objSendMail = NOTHING Set cdoConfig = NOTHING %>
<%end if%>

Location Info

6 Locations Waiting to Serve You


  • Santa Fe Springs, CA - HQ
         (800) 776-8823
  • El Cajon, CA
         (800) 673-4969
  • Milpitas, CA
         (800) 669-2169
  • Phoenix, AZ
         (800) 528-9451
  • Aurora, CO
         (888) 776-8823
  • Portland, OR
         (800) 255-5990