Step Mats, Walk Off Mats and Port-A-Lawn Products for your RV / Travel Trailer

<%@ CodePage = 28591 LCID = 1033 %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% If Session("nationalproduct_status") <> "login" Then Response.Redirect "login.asp" End If %> <% ' Initialize common variables x_customerID = Null x_username = Null x_password = Null x_contactname = Null x_company = Null x_address = Null x_city = Null x_state = Null x_zip = Null x_phone = Null x_ship_contactname = Null x_ship_company = Null x_ship_address = Null x_ship_city = Null x_ship_state = Null x_ship_zip = Null x_ship_phone = Null %> <% Response.Buffer = True sKey = Request.Querystring("key") If sKey = "" Or IsNull(sKey) Then Response.Redirect"login.asp" sAction = "I" ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData(sKey) Then ' Load Record based on key Session("ewmsg") = "No Record Found for Key = " & sKey conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "customerlist.asp" End If End Select %> Step Mats, Walk Off Mats and Port-A-Lawn Products for your RV / Travel Trailer

National Products Order Form

Option 1: Fax Order Form Download

Download, print and complete the Fax Order Form and fax it to (323) 525-0499.

Option 2: Online Order Form

Please fill out all fields applicable to your order. Required fields are indicated with the * symbol.

Purchase Order Form

A confirmation copy of your Purchase Order will be sent to the E-mail Address you logged in with.
	Purchase Order No. (optional)

Purchaser Information

Shipping Information (if different)

Contact Name (required)
">

Company (required)
">

Street Address (required)
">

City/Town (required)
">

State (required)
">

Zip Code (required)
">

Telephone (required)
">

Contact Name (optional)
">

Company (optional)
">

Street Address (optional)
">

City/Town (optional)
">

State (optional)
">

Zip Code (optional)
">

Telephone (optional)
">

Order Details

Deluxe Graphic Step Mats 13.5" x 20"	Graphic Step Mats 11.5" x 18"	Deluxe Graphic Walk-off Mats 24" x 36"
Quantity \| Color	Quantity \| Color	Quantity \| Color
Tropic Isle	Tropic Isle	Tropic Isle
Coconut	Coconut	Coconut
Aqua	Aqua	Aqua
Black Sand	Black Sand	Black Sand
Orchid	Orchid	Orchid

Deluxe Step Mats 13.5" x 20"	Step Mats 11.5" x 18"	Deluxe Walk-off Mats 24" x 36"
Quantity \| Color	Quantity \| Color	Quantity \| Color
Green	Green	Green
Emerald	Emerald	Emerald
Browntan	Browntan	Browntan
Blue	Blue	Blue
Gray	Gray	Gray
Turquoise	Turquoise	Turquoise
Burgundy	Burgundy	Burgundy
		Stripe

Deluxe Mosaic Step Mats 13.5" x 20"	Mosaic Step Mats 11.5" x 18"	Deluxe Mosaic Walk-off Mats 24" x 36"
Quantity \| Color	Quantity \| Color	Quantity \| Color
Spruce	Spruce	Spruce
Butternut	Butternut	Butternut

Deluxe Port-A-Lawn 6' x 12'						Deluxe Mosaic Port-A-Lawn 6' x 12'
Quantity \| Color						Quantity \| Color
Green						Spruce
Emerald						Butternut
Browntan
Blue
Gray
Turquoise
Burgundy
Stripe

<% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value sKey ' - Variables setup: field variables Function LoadData(sKey) Dim sKeyWrk, sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy sKeyWrk = "" & AdjustSql(sKey) & "" sSql = "SELECT * FROM `customer`" sSql = sSql & " WHERE `customerID` = " & sKeyWrk sGroupBy = "" sHaving = "" sOrderBy = "" If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents x_customerID = rs("customerID") x_username = rs("username") Session("x_username")= x_username x_password = rs("password") x_contactname = rs("contactname") x_company = rs("company") x_address = rs("address") x_city = rs("city") x_state = rs("state") x_zip = rs("zip") x_phone = rs("phone") x_ship_contactname = rs("ship_contactname") x_ship_company = rs("ship_company") x_ship_address = rs("ship_address") x_ship_city = rs("ship_city") x_ship_state = rs("ship_state") x_ship_zip = rs("ship_zip") x_ship_phone = rs("ship_phone") End If rs.Close Set rs = Nothing End Function %>