<% Response.Expires = -1000 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl="no-cache" setLocale server_locale pArray = Application("Classify_Payment_Config" & strUnique) web_site = Application("Classify_Main_Config" & strUnique)(1) If CStr(session("user_logged_ID" & strSUnique)) = Empty then Response.Redirect "register.asp" '============================================================================================== '*** Set [product_id] equal to the Product ID set at 2CheckOut products configuration page. '*** Do not confuse the ID set at "Your Product ID" column. 2CheckOut generated, internal "Product ID" should be used. product_id = 1 '============================================================================================== uid = session("user_logged_ID" & strSUnique) rid = CStr(uid) & CStr(randomid) sid = pArray(23) Function randomid() Randomize randomid = Int((899999 * Rnd) + 100000) End Function amount = Request.Form("amount") If not isNumeric(amount) then Response.Redirect "post_start.asp" If CCur(amount) < CCur(pArray(16)) then Response.Redirect "post_start.asp" bstring = rid With Response .Write "" .Write "

" .Write "" .Write "" .Write "" .Write "" '.Write "" .Write "

" End With %>