Reservaciones de Grupo Sevilla

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% msg="" action="" Action = Request("Action") If Action = "Ingresar" Then If msg = "" Then 'Genera el sql para login sql = "SET DATEFORMAT YMD SELECT tblUsuarios.IDUsuario, tblUsuarios.IDHotel, tblUsuarios.Nombre, tblUsuarios.Apellidos, tblUsuarios.NivelUsuario, tblUsuarios.Password, tblUsuarios.Estatus from tblUsuarios " sql = sql & " WHERE (tblUsuarios.IDUsuario = '" & Request("idusuario") & "');" set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection =MM_general_STRING RS.Source = sql RS.CursorType = 1 RS.CursorLocation = 2 RS.LockType = 3 RS.Open() On error resume next If rs.recordcount = 0 THEN msg = " Clave de usuario no valida " Else 'Valida password If trim(Request("password")) <> trim(RS("Password")) THEN msg="Password no válido" Else IF RS("Estatus") <> "A" Then msg=" Usuario no activo " End if End if End If End If if msg = "" then sql2 = "UPDATE tblUsuarios SET " sql2 = sql2 & "tblUsuarios.FechaUltimoLogin = getdate() WHERE IDUsuario = '" & Request("IDUsuario") & "'" Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = MM_general_STRING Conn.Open Conn.Execute(sql2) Conn.Close 'Genera cookies para identificacion en la aplicación Response.Cookies("IDUsuario")=RS("IDUsuario") Response.Cookies("Nombre")=RS("Nombre") Response.Cookies("Apellidos")=RS("Apellidos") Response.Cookies("IDHotelUsuario") = RS("IDHotel") Response.Cookies("NivelUsuario") = RS("NivelUsuario") 'Response.Cookies("UsuarioMision") = "S" RS.Close Response.Redirect ("menu.asp") End If End if 'Action = "Ingreasar" %> Reservaciones de Grupo Sevilla

Menu Principal

BIENVENIDOS AL

“7° CAMPEONATO NACIONAL INFANTIL Y JUVENIL 2010”
“DISTRITO FEDERAL”

royal

Reserva Aquí


Reserva Aqui	Reserva Aqui