<% If Request("Submit") = "" Then %> TRSA: Consumer
Looking for a Textile Rental Company in your area. Click here to go to RentlLinen.com
TRSA: Consumer



Welcome to the Consumer Section of TRSA Online.

In this section you can search for Textile Rental companies in your area. First tell us who you are, then you'll be able to enter the zip code where you want textile rental services.

You can search for all of the textile rental companies in your geographic area, or you can choose to search by one of five market segments:

  • Linen Supply: Hospitality industry linens, napkins, etc.
  • Industrial Garments: Uniforms
  • Dust Control: Mats, mops, wet mops, custom logo mats, etc.
  • Healthcare Services: Healthcare garments, OR packs, incontinence products, etc.
  • Shop Towels: Wipers

    Textile rental companies often serve a 150-mile radius or more. TRSA Online's Consumer area is the only textile rental services search system using zip codes. This allow you to search neighboring states by entering just one zip code. After filling out the form below you will be able to search multiple times without having to re-enter your information.

    YOU MUST HAVE COOKIES ENABLED ON YOUR BROWSER TO USE THIS SERVICE.

    <% Response.Write(Session("Error")) %>
    Name: ">
    Company: ">
    Address: ">
    ">
    City: "> State: ">
    Zip: ">
    Phone: ">
    Email: ">
    Comments:




    [ Consumer | Public | Members | ASK TRSA First! ]
    ©1996-99 TRSA, 1130 E. Beach Blvd. Suite B, Hallandale, Florida, 33009.
    All Rights Reserved.
    • <% ElseIf Request("Submit") = "Find Service By Zip Code" Then FormError = False For Each x In Request.Form Session(x) = Request.Form(x) 'Response.Write(x & ":") If x <> "Comments" and x <> "addr2" and x <> "email" Then If Request.Form(x) = "" Then Session("Error") = "Please do not leave any blanks" FormError = True End If End If Next If FormError = True Then Response.Redirect("default.htm") End If Set Conn = Server.CreateObject("ADODB.Connection") SQL = "INSERT INTO ConsumerSearches (date, name, company, addr1, addr2, city, state, zip, phone, email, comments) " SQL = SQL & "VALUES ('" & Now() & "', '" SQL = SQL & CheckString(Request("name")) & "', '" SQL = SQL & CheckString(Request("company")) & "', '" SQL = SQL & CheckString(Request("addr1")) & "', '" SQL = SQL & CheckString(Request("addr2")) & "', '" SQL = SQL & CheckString(Request("city")) & "', '" SQL = SQL & CheckString(Request("state")) & "', '" SQL = SQL & CheckString(Request("zip")) & "', '" SQL = SQL & CheckString(Request("phone")) & "', '" SQL = SQL & CheckString(Request("email")) & "', '" SQL = SQL & CheckString(Request("comments")) & "')" ' Response.Write SQL Conn.Open Session("trsa_ConnectionString") Conn.Execute(SQL) Conn.Close Set Conn = nothing Set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM ConsumerSearches WHERE name = '" & CheckString(Request("name")) & "' ORDER BY ConsID DESC" rs.Open SQL, Session("trsa_ConnectionString") Session("ConsID") = rs("ConsID") rs.close set rs = nothing Session("EnteredInfo") = True Response.Redirect("/ZipSearch/default.asp") End If %>