<%@language=vbscript%> <% If (session("TRACKING_ID_CONFIRM") = Session("ArtistPaymentTrackingId")) And (Session("ArtistPaymentTrackingId") <> "") Then ' ** if this page is refreshed then to prevent Duplication of record Session("NonSecureURL") = "/artist/artisthome.asp" session("TRACKING_ID_CONFIRM") = "" Session("ArtistPaymentTrackingId") = "" Response.Redirect "/artist/payment/sns.asp" Response.end End If 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() TRACKING_ID = ReplaceSingleQuote(trim(Request.Form("txtfname"))) & "-" & Int((500000 * Rnd ) + 500000 ) objTxn.InsertTxnLog CStr(TRACKING_ID) , Date() , CDbl(trim(Request.Form("txtamount"))) , "pending", 0, "", "", "", "", "", "", "", "", "", "", "", "", "cheque", payuserno Set objTxn = Nothing Session("ArtistPaymentTrackingId")= TRACKING_ID Session("TRACKING_ID_CONFIRM") = Session("ArtistPaymentTrackingId") %>

Payment Confirmation Ordering Information Thank you for your order. Please print this page as record of your placement of order. The receipt of payment will be mailed to you as soon as your payment is credited. Name: <%=name%>Surendra Chaurasiya Billing Address: <%=address%>Celcius Technologies Pvt. Ltd., Plot G, Block GP, Sector 5, Salt Lake Electronics Complex, Kolkata - 700091. India. Date of Order <%=formatdatetime(Date(),vbShortDate)%>06/26/2002 DD/MM/YYYY Payment made for article: <%=events%>Chirantan Rabindra Rachanaabali Compact Disc (CD-ROM - 1 No.) Amount Payable: <%=curr%><%=amount%>INR 950.00 + Bank Clearing Charges Payment Mode: <%=paymenttype%>Cheque Amount payable by cheque. Bank Clearing Charges For Cheques issued in Kolkata No bank charges For Cheques issued in any Indian Metro City other than Kolkata  (see list) Rs.50.00 For Cheques issued in any other Indian City 0.40%of booking amount Cheque payment Information (i)International cheques are not accepted (ii) The cheque should be drawn on any Indian bank payable in Kolkata (iii) Make your cheque payable to: Celcius Technologies Pvt. Ltd. and crossed Account Payee (iv) Please write your name, address, event, order date at the back of the cheque (v) Send your cheque to: Celcius Technologies Pvt. Ltd., Block GP, Plot G, Sector V, Salt Lake Electronic Complex, Kolkata 700091 (vi) The cheque should reach us in 15 working days from the date of the order (vii) Your order will be processed only after realization of the cheque