<% If "OKlogin" = Request("cliaccio") Then
usuari = Request("cliusid")
password = Request("clipasid")
Dim objConn
If isObject(Session("mdbhotel")) Then
Set objConn = Session("mdbhotel")
Else
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/dochotel.mdb")
Set Session("mdbhotel") = objConn
End If
Set clilogin = Server.CreateObject("ADODB.RecordSet")
clilogin.Open "Select * from clients_usuaris where clius_clau = '" & usuari & "' AND clius_pass = '" & password& "'", objConn , adOpenKeyset , adLockOptimistic
if clilogin.eof then
clilogin.close
Response.Redirect "addresser3.htm"
else
Session("ItemId") = clilogin("clius_client")
' Set clificha = Server.CreateObject("ADODB.RecordSet")
' clificha.Open "Select cli_ofertas from clientes where cli_codigo = " & clilogin("clius_client"), objConn , adOpenKeyset , adLockOptimistic
' ofertas = clificha("cli_ofertas")
' clificha.close
clilogin.close
' if not ofertas then
Response.redirect "editweb.asp"
' else
' Response.redirect "editpag.asp"
' end if
end if
else
Session("ItemId") = ""
%>
Hotel Bonanova Park - Login
Accés
exclusiu només per usuaris de Hotel Bonanovapark
Tornar
