<% id=request("credit_card_processed") response.Write (id) 'response.Write "ADASDASDASD="&request("ValueToAdd") 'response.End() if request("credit_card_processed")="Y" then sqlquery = "update h_payment set status=true where bookinfo_id=" &request("c_prod_") 'response.write pyment_status 'response.flush() Conn.Execute (sqlquery) sqlquery1 = "update h_bookinfo set status=true where bookinfo_id=" &request("c_prod_") 'response.write(sqlquery) 'response.flush() Conn.Execute (sqlquery1) response.Redirect "booking_confirm.asp?error=1&info="&request("c_prod_")&"" set rs_link=server.createobject("adodb.recordset") sql1="select * from site_configration" rs_link.open sql1,conn,3,3 set rs=server.CreateObject("adodb.recordset") sql="select * from h_bookinfo where bookinfo_id=" &request("c_prod_") rs.open sql,conn,1,3 id=rs("hotels_id") set rs_h=server.CreateObject("adodb.recordset") sql_h="select * from h_hotels where hotels_id=" &id rs_h.open sql_h,conn,1,3 ' change to address of your own SMTP server strHost =rs_link("smtp_host") ' If Request("Send") <> "" Then 'if rs_link("component")="nothing" then 'Response.write "Please Specify the Component for Sending Mail" 'end if if rs_link("component")="aspmail" then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.Username = "webmaster@aebest.com" Mail.Password = "Onlymine11" Mail.From = rs_link("admin_email") ' From address Mail.FromName= "Admin" ' optional Mail.AddAddress rs("em") subj="Your booking is confirmed on "&rs_link("site_name")&"
"&"Your booking number is = " &rs("request_no") 'message subject Mail.Subject = "Mail from "& rs_link("site_name") ' message body Mail.Body = subj strErr = "" bSuccess = False 'On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = rs_link("admin_email") ' From address Mail.FromName= "Admin" ' optional Mail.AddAddress rs_h("em") subj="Booking is confirmed on "&rs_link("site_name") 'message subject Mail.Subject = "Mail from "& rs_link("site_name") ' message body Mail.Body = subj strErr = "" bSuccess = False 'On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If response.Redirect "booking_confirm.asp?vb=1&info="&request("c_prod_")&"" end if if request("component")="CDONTS" then Dim MyBody Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= rs_link("admin_email") MyCDONTSMail.To= rs("em") 'message subject MyCDONTSMail.Subject = "Mail from"& rs_link("site_name") subj="Your booking is confirmed on "&rs_link("site_name")&"
"&"Yor booking number is = " &rs("request_no") 'message comments MyCDONTSMail.Body=subj MyCDONTSMail.Send If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If set MyCDONTSMail=nothing Dim MyBody1 Dim MyCDONTSMail1 Set MyCDONTSMail1 = CreateObject("CDONTS.NewMail") MyCDONTSMail1.From= rs_link("admin_email") MyCDONTSMail1.To= rs("em") 'message subject MyCDONTSMail1.Subject = "Mail from"& rs_link("site_name") subj="Your booking is confirmed on "&rs_link("site_name")&"
"&"Yor booking number is = " &rs("request_no") 'message comments MyCDONTSMail1.Body=subj MyCDONTSMail1.Send If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If set MyCDONTSMail1=nothing set rs_link=nothing rs_link.close response.Redirect "booking_confirm.asp?vb=1&info="&request("c_prod_")&"" end if else response.Redirect("home.asp?error=2") end if %>