SBS Home  |  Contact us 

 

Our Office in Michigan
39555 Orchard Hill Place
Suite 600
Novi, Michigan 48375

Phone: 248 232 9967
Toll Free: 800 974 1841
FAX: 248 232 9967

Indiana Office
421 S Eddy St
South Bend, Indiana 46617
www.informationandrecords.com
1 866 335 5656

*First name
*Last name
*E-mail address
*Phone
Area Code or Country Code first, excluding 1, 011, and + dialing directions
*Company
*Describe your
  requirements





 
www.sbs-healthcare.com sales@sbsportals.com Ph: 800 974 1841
<% Dim strBody If Request.Form("Submit")= "Submit Request" Then If TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) Then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "relay-hosting.secureserver.net" .Update End With strBody = "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "Stone Bridge Business Solutions" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
Contact Us

First Name:" & Request.Form("firstname") & "
Last Name:" & Request.Form("lastname") & "
Email:" & Request.Form("email") & "
Phone:" & Request.Form("phone") & "
Company:" & Request.Form("companyname") & "
Requirements:" & Request.Form("requirements") & "
" strBody = strBody & "" strBody = strBody & "" Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "info@stonebridgebusinesssolutions.com" .To = "tvelo@sbsportals.com" .BCC = "chekuri@sbsportals.com,katta@sbsportals.com" .Subject = "Healthcare Contact Us" .HTMLBody = strBody .Send End With Set cdoMessage = Nothing Response.Redirect("freetrial_thanks2.htm") Else Response.Write("") End IF End If %> <% 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 %>