<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> UEi Automotive: Tools & Test Instruments - Product Registration
site map
New
Production Registration
Service Centers
UEi Automotive
8030 SW Nimbus Ave
Beaverton, OR 97008
Phone: (800) 547-5740


<% Dim message 'TRIM AND REQUEST VARIABLES first_name = trim( request.form( "first_name" ) ) last_name = trim( request.form( "last_name" ) ) company_name = trim( request.form( "company_name" ) ) email = trim( request.form( "email" ) ) address1 = trim( request.form( "address1" ) ) address2 = trim( request.form( "address2" ) ) city = trim( request.form( "city" ) ) state_ = trim( request.form( "state_" ) ) zip = trim( request.form( "zip" ) ) model_name = trim( request.form( "model_name" ) ) serial_no = trim( request.form( "serial_no" ) ) date_of_purchase = trim( request.form( "date_of_purchase" ) ) purchased_from = trim( request.form( "purchased_from" ) ) branch = trim( request.form( "branch" ) ) submitted = trim( request.form( "submitted" ) ) 'VALIDATE INPUT if ( first_name = "" ) and ( submitted <> "") then message = message & "Please enter your First Name.
" end if if ( last_name = "" ) and ( submitted <> "") then message = message & "Please enter your Last Name.
" end if if ( address1 = "" ) and ( submitted <> "") then message = message & "Please enter your Address.
" end if if ( city = "" ) and ( submitted <> "") then message = message & "Please enter your City.
" end if if ( state_ = "" ) and ( submitted <> "") then message = message & "Please enter your State.
" end if if ( zip = "" ) and ( submitted <> "") then message = message & "Please enter your Zip.
" end if if ( model_name = "" ) and ( submitted <> "") then message = message & "Please enter the product model name/number.
" end if if ( serial_no = "" ) and ( submitted <> "") then message = message & "Please enter the product serial number.
" end if if ( date_of_purchase = "" ) and ( submitted <> "") then message = message & "Please enter the date of purchase.
" end if if ( purchased_from = "" ) and ( submitted <> "") then message = message & "Please enter where the product was purchased.
" end if 'TEST IF THERE IS AN ERROR MESSAGE AND IF EMAIL IS SUBMITTED if ( message = "" ) and ( submitted <> "" ) then 'send the email response.buffer = true Dim strSubject, strBody strSubject = "UEi Automotive Product Registration Form" strBody = vbCrLf & vbCrLf strBody = strBody & "--< UEi Automotive Product Registration >--" & vbCrLF & vbCrLf strBody = strBody & "First name: " & first_name & vbCrLF strBody = strBody & "Last name: " & last_name & vbCrLF strBody = strBody & "Company name: " & company_name & vbCrLF strBody = strBody & "Email: " & email & vbCrLF strBody = strBody & "Address: " & address1 & vbCrLF strBody = strBody & " " & address2 & vbCrLF strBody = strBody & "City: " & city & vbCrLF strBody = strBody & "State: " & state_ & vbCrLF strBody = strBody & "Zip: " & zip & vbCrLF & vbCrLF strBody = strBody & "Model: " & model_name & vbCrLF strBody = strBody & "Serial #: " & serial_no & vbCrLF strBody = strBody & "Date of Purchase: " & date_of_purchase & vbCrLF strBody = strBody & "Purchased From: " & purchased_from & vbCrLF strBody = strBody & "Branch: " & branch & vbCrLF strBody = strBody & vbCrLf strBody = strBody & "--------------------------------" strBody = strBody & vbCrLf Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Registration Web Site" Mailer.FromAddress= "info@ueitest.com" Mailer.RemoteHost = "ueitest.com.inbound15.mxlogic.net" Mailer.AddRecipient "Info", "sherim@ueitest.com" Mailer.Subject = strSubject Mailer.BodyText = strBody if Mailer.SendMail then response.redirect "thank_you.html" else response.redirect "email_error.html" end if %>
Registration Successful!

<% else %>
" method="post">
* = required
<%= message %>
*First Name:
*Last Name:
Company Name:
Email:
*Address:
 
*City:
*State:
*Zip:

*Model Name/Number:
*Serial #:
*Date of Purchase:

*Purchased From:
Branch:


privacy policy
<% end if %>
Home : Products : Service : Downloads : Company : Distributors : Contact
Best viewed in IE 6, Firefox or Safari at 1024x768
Copyright © 2006 UEi Automotive