<%
Dim catreq_info(15)

ERROR_MESSAGE = ""

If Request.Form("CatReq Submit.x").Count>0 then



	Dim tmpPrefix

	catreq_info(1) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("First Name"), "First Name")
	catreq_info(2) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Last Name"), "Last Name")
	catreq_info(3) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Address 1"), "Address 1")
	catreq_info(4) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("Address 2"), "Address 2")
	catreq_info(5) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("City"), "City")
	catreq_info(6) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("State"), "State")

	If Request.Form("Country")="2" then
		tmpPrefix ="US"
	elseIf Request.Form("Country")="98" then
		tmpPrefix ="CAN"
	else
		tmpPrefix =""
	end if

	catreq_info(7) = validateForm( tmpPrefix & "ZIP", true, ERROR_MESSAGE, Request.Form("Zip"), "Zip")
	catreq_info(8) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Country"), "Country")

	catreq_info(9) = validateForm( "EMAIL", false, ERROR_MESSAGE, Request.Form("Email"), "Email")
	catreq_info(10) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("howdidyouhear"), "How Did You Hear")
	catreq_info(11) = validateForm( "EMAIL", false, ERROR_MESSAGE, Request.Form("Friends Email Address"), "Friends Email Address")

	catreq_info(12) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("email updates"), "email updates")
	catreq_info(13) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("emailformat"), "emailformat")

	if ECOMETRY_ENABLED = true and ERROR_MESSAGE = "" then
		ERROR_MESSAGE=""
		sendCatalogRequest catreq_info, ERROR_MESSAGE
	end if

	if ERROR_MESSAGE = "" then
		'save to DB
		Dim lssql
		Dim liEmailSignUp

		liEmailSignUp=0
		if catreq_info(12) = "on" then liEmailSignUp =1

		'@Email, @FirstName, @MI, @LastName,
		'@Company, @Address1, @Address2, @City,
		'@Zip, @StateID, @CountryID, @DayPhone,
		'@EmailSignUp, @HowAboutUs, @FriendEmail, @EmailFormat

		lssql = "exec p_WP_SET_CATALOG_REQUEST "
		lssql = lssql &	getQuotedString ( catreq_info(9) ) 	'email
		lssql = lssql &	"," & getQuotedString ( catreq_info(1) )  'fname
		lssql = lssql &	"," & "''"   'MI
		lssql = lssql &	"," & getQuotedString ( catreq_info(2) )  'lname
		lssql = lssql &	"," & "''"   'company
		lssql = lssql &	"," & getQuotedString ( catreq_info(3) ) 'add1
		lssql = lssql &	"," & getQuotedString ( catreq_info(4) )  'add2
		lssql = lssql &	"," & getQuotedString ( catreq_info(5) )   'city
		lssql = lssql &	"," & getQuotedString ( catreq_info(7) )   'zip
		lssql = lssql &	"," & catreq_info(6)   'state
		lssql = lssql &	"," & catreq_info(8)    'country
		lssql = lssql &	"," & "''"
		lssql = lssql &	"," & liEmailSignUp
		lssql = lssql &	"," & getQuotedString ( catreq_info(10) )   'hear abt us
		lssql = lssql &	"," & getQuotedString ( catreq_info(11) )
		lssql = lssql &	"," & getQuotedString ( catreq_info(13) )

		connection.execute lssql

		Response.Redirect HTTP_HOST & "pages/requestacatalogthankyou.asp"

	end if





end if

%>