<% Const SECURE_SERVER_URL = "https://www.banglalive.com" Const NORMAL_SERVER_URL = "http://www.banglalive.com" %> <% Function ReplaceSingleQuote(s) ReplaceSingleQuote = Replace(s, "'", """") End Function Dim name, address, paymenttype, curr, amount, events name = ReplaceSingleQuote(trim(Request.Form("txtfname"))) & " " & ReplaceSingleQuote(trim(Request.Form("txtlname"))) address = ReplaceSingleQuote(trim(Request.Form("txtaddress1"))) & "
" If (trim(Request.Form("txtaddress2")) <> "") Then address = address & ReplaceSingleQuote(trim(Request.Form("txtaddress2"))) & "
" If (trim(Request.Form("txtaddress3")) <> "") Then address = address & ReplaceSingleQuote(trim(Request.Form("txtaddress3"))) & "
" address = address & ReplaceSingleQuote(trim(Request.Form("txtcity"))) & "
" & _ ReplaceSingleQuote(trim(Request.Form("txtstate"))) & "
" & ReplaceSingleQuote(trim(Request.Form("txtpinzip"))) & "
" & _ ReplaceSingleQuote(trim(Request.Form("selcountry"))) paymenttype = ReplaceSingleQuote(trim(Request.Form("hidPaymentType"))) Select Case (ReplaceSingleQuote(trim(Request.Form("selcurrency")))) Case 1: curr = "INR" Case 2: curr = "$" Case 3: curr = "£" End Select amount = ReplaceSingleQuote(trim(Request.Form("txtamount"))) events = ReplaceSingleQuote(trim(Request.Form("txtevents"))) Dim objTxn Dim payuserno Set objTxn = Server.CreateObject("ArtistPayment.CTransaction") payuserno = objTxn.InsertUserDetails(CStr(ReplaceSingleQuote(trim(Request.Form("txtfname")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtlname")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtaddress1")))) , _ CStr(ReplaceSingleQuote(trim(Request.Form("txtaddress2")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtaddress3")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtcity")))) , _ CStr(ReplaceSingleQuote(trim(Request.Form("txtstate")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtpinzip")))) , CStr(ReplaceSingleQuote(trim(Request.Form("selcountry")))) , _ CStr(ReplaceSingleQuote(trim(Request.Form("txtemail")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtphone")))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtfax")))) , _ CDbl(trim(Request.Form("txtamount"))) , CStr(ReplaceSingleQuote(trim(Request.Form("txtevents")))) , curr) Randomize() RND_ID = Int((500000 * Rnd ) + 500000 ) TRACKING_ID = ReplaceSingleQuote(trim(Request.Form("txtfname"))) & "-" & RND_ID 'objTxn.InsertTxnLog CStr(TRACKING_ID) , Date() , CDbl(trim(Request.Form("txtamount"))) , "pending", 0, "", "", "", "", "", "", "", "", "", "", "", "", "cheque", payuserno Set objTxn = Nothing Session("amount") = amount Session("payuserno") = payuserno %> <% Const BanglaliveSurePayInterface = "https://www.banglalive.com/Store/SurePay/gateway.asp" %>

Credit Card Details Please enter your credit card details Card Type: Visa Mastercard Amex Discover Card Number: --- Expiry Date: /  (month/year) Payment Amount: INR <%=amount%> Please wait after clicking the button for validation of your Credit Card at the Sure Pay Payment Gateway in association with Chase Manhattan Bank. This may take some time. Please be patient and don't click the back button of your browser. "> "> "> "> "> ">