<%@ Language=VBScript %>
<%
Dim con1
Set con1 = Server.CreateObject("ADODB.connection")
con1.Open "DSN=hotel"
sql = "Update Reservation Set TranFlag ='" & "Success" & "' where Res_Dep_Date <=#" & Date & "#"
con1.Execute sql
con1.close
Set con1 = nothing
if Request.Form("txtlogin") <> "" And Request.Form("txtpass") <> "" then
Dim sql
Dim con
Dim rs
set con = server.CreateObject("ADODB.connection")
set rs = server.CreateObject("ADODB.recordset")
con.Open "DSN=hotel"
sql="select * from customer where loginname='" & Request.Form("txtlogin") & "' and Password='" & Request.Form("txtpass") & "'"
rs.Open Sql,con,1,2
if rs.RecordCount > 0 then
Session("customer_id") = Rs("Customer_Id")
Session("CustName") = rs("Custname")
Session("Email") = Rs("Email")
Session("Id") = Session.SessionID
Session("StrMsg") = "
JUST RIGHT FOR YOU...
Whether you are - a Tourist, a Corporate or a Passer-By.
This Modest Facility Offers Moderately Priced Rooms To Make
Your Stay a "PLEASURABLE EXPERIENCE"
