<% start_date=request("d1") closing_date=DateAdd("d",-1,request("d2")) booking_date=date if d_dateformat_code=2057 then start_date=FormatDate(start_date) closing_date=FormatDate(closing_date) booking_date=FormatDate(booking_date) end if '*************************PayPal Booking***************************** if request("payment_type")="paypal" then set rs=server.CreateObject("adodb.recordset") sql="select * from h_bookinfo" rs.open sql,conn,1,3 rs.addnew rs("full_name")=request("name") rs("address")=request("address") rs("zip_code")=request("zip") rs("city")=request("city") rs("country")=request("country") rs("phone_no")=request("phone") rs("fax")=request("fax") rs("in_time")=request("hour") rs("em")=request("em") rs("request_no")=request("numb") rs("other_info")=request("comments") rs("hotels_id")=request("id") 'rs("room_id")=request("room_id") 'rs("roomtype_id")=request("type_id") rs("checkin_date")=start_date rs("checkout_date")=closing_date rs("my")=true rs("type")=1 rs.update set rs1=server.CreateObject("adodb.recordset") sql1="select * from h_payment" rs1.open sql1,conn,1,3 rs1.addnew rs1("bookinfo_id")=rs("bookinfo_id") rs1("request_no")=request("numb") rs1("hotels_id")=request("id") 'rs1("room_id")=request("room_id") 'rs1("roomtype_id")=request("type_id") rs1("booking_date")=booking_date rs1("payment_type")="pay pal" rs1("total_payment")=request("price") rs1("my")=true rs1("type")=1 rs1.update bookinfo_id=rs("bookinfo_id") set rs_type=server.CreateObject("adodb.recordset") sql_type="select distinct roomtype_id,type_name from h_roomtype" rs_type.open sql_type,conn,1,3 while not rs_type.eof rooms_requested = request(rs_type("roomtype_id")&"_requested") while rooms_requested>0 rooms_requested = rooms_requested-1 set rs2=server.CreateObject("adodb.recordset") sql2="select * from h_room_booked" rs2.open sql2,conn,1,3 rs2.addnew rs2("bookinfo_id")=bookinfo_id rs2("room_id")=request(rs_type("roomtype_id")&"_requested["&rooms_requested&"]") rs2("roomtype_id")=rs_type("roomtype_id") rs2.update wend rs_type.MoveNext wend sqlquery1 = "update h_bookinfo set payment_id="&rs1("payment_id")&" where bookinfo_id=" &rs("bookinfo_id") Conn.Execute (sqlquery1) %> <% rs_type.close rs2.close rs.close rs1.close end if '*************************2checkout Booking***************************** if request("payment_type")="2Checkout" then set rs=server.CreateObject("adodb.recordset") sql="select * from h_bookinfo" rs.open sql,conn,1,3 rs.addnew 'response.Write("asdasdasdada") rs("full_name")=request("name") rs("address")=request("address") rs("zip_code")=request("zip") rs("city")=request("city") rs("country")=request("country") rs("phone_no")=request("phone") rs("fax")=request("fax") rs("in_time")=request("hour") rs("em")=request("em") rs("request_no")=request("numb") rs("other_info")=request("comments") rs("hotels_id")=request("id") 'rs("room_id")=request("room_id") 'rs("roomtype_id")=request("type_id") rs("checkin_date")=start_date rs("checkout_date")=closing_date rs("my")=true rs("type")=1 rs.update 'rs.close set rs1=server.CreateObject("adodb.recordset") sql1="select * from h_payment" rs1.open sql1,conn,1,3 rs1.addnew rs1("bookinfo_id")=rs("bookinfo_id") rs1("request_no")=request("numb") rs1("hotels_id")=request("id") 'rs1("room_id")=request("room_id") 'rs1("roomtype_id")=request("type_id") rs1("booking_date")=booking_date rs1("payment_type")="2checkout" rs1("total_payment")=request("price") rs1("my")=true rs1("type")=1 rs1.update bookinfo_id=rs("bookinfo_id") 'response.Write bookinfo_id 'response.end set rs_type=server.CreateObject("adodb.recordset") sql_type="select distinct roomtype_id,type_name from h_roomtype" rs_type.open sql_type,conn,1,3 while not rs_type.eof rooms_requested = request(rs_type("roomtype_id")&"_requested") while rooms_requested>0 rooms_requested = rooms_requested-1 set rs2=server.CreateObject("adodb.recordset") sql2="select * from h_room_booked" rs2.open sql2,conn,1,3 rs2.addnew rs2("bookinfo_id")=bookinfo_id rs2("room_id")=request(rs_type("roomtype_id")&"_requested["&rooms_requested&"]") rs2("roomtype_id")=rs_type("roomtype_id") rs2.update wend rs_type.MoveNext wend sqlquery1 = "update h_bookinfo set payment_id="&rs1("payment_id")&" where bookinfo_id=" &rs("bookinfo_id") Conn.Execute (sqlquery1) %> <% rs_type.close rs2.close rs.close rs1.close end if '*************************Credit Card Booking***************************** if request("payment_type")="creditcard" then set rs=server.CreateObject("adodb.recordset") sql="select * from h_bookinfo" rs.open sql,conn,1,3 rs.addnew rs("full_name")=request("name") rs("address")=request("address") rs("zip_code")=request("zip") rs("city")=request("city") rs("country")=request("country") rs("phone_no")=request("phone") rs("fax")=request("fax") rs("in_time")=request("hour") rs("em")=request("em") rs("request_no")=request("numb") rs("other_info")=request("comments") rs("hotels_id")=request("id") 'rs("room_id")=request("room_id") 'rs("roomtype_id")=request("type_id") rs("checkin_date")=start_date rs("checkout_date")=closing_date rs("session_id")=session.SessionID rs("my")=true rs("type")=1 rs.update 'rs.close set rs1=server.CreateObject("adodb.recordset") sql1="select * from h_payment" rs1.open sql1,conn,1,3 rs1.addnew rs1("bookinfo_id")=rs("bookinfo_id") rs1("request_no")=request("numb") rs1("hotels_id")=request("id") 'rs1("room_id")=request("room_id") 'rs1("roomtype_id")=request("type_id") rs1("booking_date")=booking_date rs1("payment_type")="Credit Card" rs1("total_payment")=request("price") rs1("session_id")=session.SessionID rs1("my")=true rs1("type")=1 rs1.update 'rs.close id1=request("id") bookinfo_id=rs("bookinfo_id") set rs_type=server.CreateObject("adodb.recordset") sql_type="select distinct roomtype_id,type_name from h_roomtype" rs_type.open sql_type,conn,1,3 while not rs_type.eof rooms_requested = request(rs_type("roomtype_id")&"_requested") while rooms_requested>0 rooms_requested = rooms_requested-1 set rs2=server.CreateObject("adodb.recordset") sql2="select * from h_room_booked" rs2.open sql2,conn,1,3 rs2.addnew rs2("bookinfo_id")=bookinfo_id rs2("room_id")=request(rs_type("roomtype_id")&"_requested["&rooms_requested&"]") rs2("roomtype_id")=rs_type("roomtype_id") rs2.update wend rs_type.MoveNext wend response.Redirect "cc_details.asp?my=1&id="&request("id")&"&payment_id=" &rs1("payment_id") end if '*************************manual Booking***************************** if request("payment_type")="manual" then set rs=server.CreateObject("adodb.recordset") sql="select * from h_bookinfo" rs.open sql,conn,1,3 rs.addnew rs("full_name")=request("name") rs("address")=request("address") rs("zip_code")=request("zip") rs("city")=request("city") rs("country")=request("country") rs("phone_no")=request("phone") rs("fax")=request("fax") rs("in_time")=request("hour") rs("em")=request("em") rs("request_no")=request("numb") rs("other_info")=request("comments") rs("hotels_id")=request("id") 'rs("room_id")=request("room_id") 'rs("roomtype_id")=request("type_id") rs("checkin_date")=start_date rs("checkout_date")=closing_date rs("session_id")=session.SessionID rs("my")=true rs("status")=true rs("type")=1 rs.update 'rs.close set rs1=server.CreateObject("adodb.recordset") sql1="select * from h_payment" rs1.open sql1,conn,1,3 rs1.addnew rs1("bookinfo_id")=rs("bookinfo_id") rs1("request_no")=request("numb") rs1("hotels_id")=request("id") 'rs1("room_id")=request("room_id") 'rs1("roomtype_id")=request("type_id") rs1("booking_date")=booking_date rs1("payment_type")="Manual : Pay On Arrival" rs1("total_payment")=request("price") rs1("session_id")=session.SessionID rs1("my")=true rs1("status")=true rs1("type")=1 rs1.update 'rs.close id1=request("id") bookinfo_id=rs("bookinfo_id") set rs_type=server.CreateObject("adodb.recordset") sql_type="select distinct roomtype_id,type_name from h_roomtype" rs_type.open sql_type,conn,1,3 while not rs_type.eof rooms_requested = request(rs_type("roomtype_id")&"_requested") while rooms_requested>0 rooms_requested = rooms_requested-1 set rs2=server.CreateObject("adodb.recordset") sql2="select * from h_room_booked" rs2.open sql2,conn,1,3 rs2.addnew rs2("bookinfo_id")=bookinfo_id rs2("room_id")=request(rs_type("roomtype_id")&"_requested["&rooms_requested&"]") rs2("roomtype_id")=rs_type("roomtype_id") rs2.update wend rs_type.MoveNext wend sqlquery1 = "update h_bookinfo set payment_id="&rs1("payment_id")&" where bookinfo_id=" &rs("bookinfo_id") Conn.Execute (sqlquery1) main_Subj=confirm_mail_subj mail_Body="Dear "&rs("full_name")&"
"&confirm_mail_body&"
Booking Number:"&rs("request_no")&"

Regards
"&site_name&"" sendmail=mailsend(main_Subj, mail_Body, rs("em")) response.Redirect "confirm.asp?msg=1&info="&rs1("payment_id") end if %>