%@ LANGUAGE = VBScript%>
<%option explicit%>
<%
' declare variables
dim debug
dim applyDiscount
dim el_qty
dim pc_qty
dim wt_qty
dim ml_qty
dim amt_grandTotal
dim fname
dim lname
dim company
dim phone
dim ext
dim address1
dim address2
dim city
dim state
dim zip
dim email
dim userAgreement
dim time2call
dim comments
' Viaclix VARIABLES
dim ssl_merchant_ID
dim ssl_pin
dim ssl_amount
' assign variables
applyDiscount = request.Form("applyDiscount")
amt_grandTotal = request.Form("amt_grandTotal")
el_qty = request.Form("el_qty")
pc_qty = request.Form("pc_qty")
wt_qty = request.Form("wt_qty")
ml_qty = request.Form("ml_qty")
fname = request.Form("fname")
lname = request.Form("lname")
company = request.Form("company")
phone = request.Form("phone")
ext = request.Form("phoneExt")
address1 = request.Form("address1")
address2 = request.Form("address2")
city = request.Form("city")
state = request.Form("state")
zip = request.Form("zip")
email = request.Form("email")
userAgreement = request.Form("userAgreement")
time2call = request.Form("time2call")
comments = request.Form("comments")
' viaclix
'ssl_merchant_ID = "411617" ' live
'ssl_pin = "" ' live
ssl_merchant_ID = "insuresocket"
ssl_pin = "E7TEZ2"
ssl_amount = amt_grandTotal
'debug = true
debug = false
if debug = true then
response.Write( "applyDiscount:" & applyDiscount & "
")
response.Write( "amt_grandTotal:" & amt_grandTotal & "
")
response.Write( "el_qty:" & el_qty & "
")
response.Write( "pc_qty:" & pc_qty & "
")
response.Write( "wt_qty:" & wt_qty & "
")
response.Write( "ml_qty:" & ml_qty & "
")
response.Write( "fname:" & fname & "
")
response.Write( "lname:" & lname & "
")
response.Write( "company:" & company & "
")
response.Write( "phone:" & phone & "
")
response.Write( "ext:" & ext & "
")
response.Write( "address1:" & address1 & "
")
response.Write( "address2:" & address2 & "
")
response.Write( "city:" & city & "
")
response.Write( "state:" & state & "
")
response.Write( "zip:" & zip & "
")
response.Write( "email:" & email & "
")
response.Write( "userAgreement:" & userAgreement & "
")
response.Write( "time2call:" & time2call & "
")
response.Write( "comments:" & comments & "
")
end if
%>
I-Relay Affiliate Program