<%@LANGUAGE="VBSCRIPT"%> <% Dim fso, file Dim company, title, firstname, mi, lastname, address, address2, address3, city, state, zip, phone, phone2, email company = Request.Form("company") title = Request.Form("title") firstname = Request.Form("firstname") mi = Request.Form("mi") lastname = Request.Form("lastName") address = Request.Form("address") address2 = Request.Form("address2") address3 = Request.Form("address3") city = Request.Form("city") state = Request.Form("state") zip = Request.Form("zip") phone = Request.Form("phone") phone2 = Request.Form("phone2") email = Request.Form("email") if request("submit") = "true" then if trim(company) = "" then companyerror = "Please a provide company name." errorCheck = "yes" end if if trim(firstname) = "" then firstnameerror = "Please provide a first name." errorCheck = "yes" end if if trim(lastname) = "" then lastnameerror = "Please a provide last name." errorCheck = "yes" end if if trim(address) = "" then addresserror = "Please provide a address." errorCheck = "yes" end if if trim(city) = "" then cityerror = "Please provide a city." errorCheck = "yes" end if if trim(state) = "" then stateerror = "Please provide a state." errorCheck = "yes" end if if trim(zip) = "" then ziperror = "Please provide a zip code." errorCheck = "yes" end if if trim(phone) = "" then phoneerror = "Please provide a phone number." errorCheck = "yes" end if if trim(email) = "" then emailerror = "Please provide a email address." errorCheck = "yes" end if if errorCheck <> "yes" then response.write Error DIM CDOMail SET CDOMail = Server.createObject("CDONTS.NewMail") CDOMail.From = "RMSL-Contact-Us-Form" CDOMail.To = "Info RMSL " CDOMail.Subject = "Contact Information" CDOMail.Body = "Company:" & " " & company & vbcrlf & "Name:" & " " & title & " " & firstname & " " & mi & " " & lastname & vbcrlf & "Address:" & " " & address & " " & address2 & " " & address3 & vbcrlf & "City/State/Zip Code:" & " " & city & "," & " " & state & "," & " " & zip & vbcrlf & "Phone Numbers:" & " " & phone & " " & phone2 & vbcrlf & "Email:" & " " & email CDOMail.Send SET CDOMail = nothing response.redirect "http://www.cellphonerecycling.com/rmsl/contact-us-thank-you.html" end if end if %> RMS Logistics - Contact Us
RMSL
RMSL
RMSL
RMSL
RMSL


   CONTACT INFORMATION

  RMSL  
 
 

Telephone: (214) 459-9988
FAX:            (214) 459-9989

Postal Address
13801 Diplomat Dr.
Farmers Branch, TX 75234-8813

*REQUIRED FIELDS

ELECTRONIC MAIL

General Information:
Sales:
Customer Support:
Webmaster: 
 




 
  *Company   <%=companyerror%>
  And / or person responsible for this claim and handset
  Salutation:  
  *First Name:   MI: >   <%=firstnameerror%>
  *Last Name:   <%=lastnameerror%>
  *St. Address/PO Box:   <%=addresserror%>
  Address (line 2):    
  Address (line 3):    
  *City:   <%=cityerror%>
  *State:  
  *Area/Zip Code:   <%=ziperror%>
  *Daytime Phone:   <%=phoneerror%>
  Evening Phone:    
  *E-mail:     <%=emailerror%>
    RMS Logistics Reset      

 

Home   Company Profile   Services   Facility/Location   Contact Us   Login
All trademarks, trade names, registered trademarks, or registered trade names are property of their respective holders.
© Copyright 2002-2006 RMS Communications, Inc.