<% Const SECURE_SERVER_URL = "https://www.banglalive.com" Const NORMAL_SERVER_URL = "http://www.banglalive.com" Const PAYSEAL_MERCHANT_ID = "00000298" %> <% Response.ExpiresAbsolute=DateAdd("yyyy", -10, Date) %> <% 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("payuserno") = payuserno %>

Please wait….your request is being processed. You will be taken to a secure server to provide your Credit Card details. This may take some time. Please be patient and don’t click the 'Back' button on your browser. ......