<% set rs_man=server.CreateObject("adodb.recordset") sql_man="select * from h_manualpay" rs_man.open sql_man,conn,1,3 rs_man.addnew rs_man("payment_id")=request("payment_id") rs_man("holder_name")=request("name") rs_man("card_no")=request("cardnumber") rs_man("type")=request("cardtype") rs_man("expiry_year")=request("exp_year") rs_man("expiry_month")=request("exp_month") rs_man("ccv2")=request("cvv2") 'if request("my")=1 then 'rs("my")=true 'end if rs_man.update rs_man.close set rs=server.CreateObject("adodb.recordset") sql="select * from h_payment where payment_id=" &request("payment_id") rs.open sql,conn,1,3 rs("manual_pay")=True rs.update set rs2=server.CreateObject("adodb.recordset") sql2="select * from h_bookinfo where bookinfo_id=" &rs("bookinfo_id") rs2.open sql2,conn,1,3 rs2("manual_booking")=True rs2("payment_id")=request("payment_id") rs2.update rs2.close mail_subj="Credit Card Booking Notification: Waiting for Approval" msg="You have a Credit Card booking request
" msg=msg&"Booking No :"&rs("request_no") sendmail=mailsend(mail_subj, msg, admin_email) response.Redirect "confirm.asp?msg=1&info="&request("payment_id") %>