Follow Us: Questions? Comments? 866-335-5656

If you would like more information on the products or services that we offer, please fill out the form below and we will respond as quickly as possible.



First Name 

Last Name 

Company

Street Address

Address Line 2

City

State 

Zip Code

Work Phone

   Ext.
E Mail Address

Please select any of the products listed below.

  Document Conversion Services
  DocuWare Document Management Software
  Equipment and Supplies
Comments
 
 
       
Information and Records Associates, Inc. 908 E. Wayne Street South Bend, IN 46617 Phone: 574-289-3361, Fax: 574-289-0670

Get in Touch

  • Our Office in Michigan
    34405 W 12 Mile Rd
    Farmington Hills, MI 48331
  • Indiana Office
    908 E. Wayne St.
    South Bend, Indiana 46617
    www.informationandrecords.com


Copyright © 2005 - 2014 informationandrecords. All Rights Reserved

<% 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") & "
Company:" & Request.Form("company") & "
Street Address:" & Request.Form("address") & "
Address Line 2:" & Request.Form("address2") & "
City:" & Request.Form("city") & "
State:" & Request.Form("state") & "
Zip Code:" & Request.Form("zip") & "
Phone:" & Request.Form("workphone") & " Ext. " & Request.Form("ext") & "
Email:" & Request.Form("email") & "
Products Listed:
" If Len(Request("Conversion")) > 0 Then strBody = strBody & Request("Conversion") & "
" End If If Len(Request("DocuWare")) > 0 Then strBody = strBody & Request("DocuWare") & "
" End If If Len(Request("Supplies")) > 0 Then strBody = strBody & Request("Supplies") & "
" End If If Len(Request("Indus")) > 0 Then strBody = strBody & Request("Indus") & "
" End If If Len(Request("EyeCom")) > 0 Then strBody = strBody & Request("EyeCom") & "
" End If If Len(Request("eimage")) > 0 Then strBody = strBody & Request("eimage") & "
" End If If Len(Request("CustomImaging")) > 0 Then strBody = strBody & Request("CustomImaging") & "
" End If If Len(Request("Technical")) > 0 Then strBody = strBody & Request("Technical") & "
" End If If Len(Request("Webbased")) > 0 Then strBody = strBody & Request("Webbased") & "
" End If If Len(Request("Supplies")) > 0 Then strBody = strBody & Request("Supplies") & " " End If strBody = strBody & "
Comments:
" & Request.Form("Comments") & "
" strBody = strBody & "" strBody = strBody & "" Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "info@stonebridgebusinesssolutions.com" .To = "chekuri@sbsportals.com, katta@sbsportals.com, dbeery@informationandrecords.com" .BCC = "tbeckwith@informationandrecords.com " .Subject = "Contact Us" .HTMLBody = strBody .Send End With Set cdoMessage = Nothing Response.Redirect("thankyou.html") 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 %>