<% 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" session("local_txn_ID" & strSUnique) = Empty uid = session("user_logged_ID" & strSUnique) rid = CStr(uid) & CStr(randomid) session("local_txn_ID" & strSUnique) = rid 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" With Response .Write "" .Write "

" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "

" End With %>