<%
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-store"
Set Session("Dbx") = Server.CreateObject("ADODB.Connection")
Session("Dbx").Properties("User ID").Value = "ile-maurice-ho"
Session("Dbx").Properties("Password").Value = "maurice8973"
Session("Dbx").Properties("Initial Catalog").Value = "ile-maurice-ho"
Session("Dbx").Properties("Data Source").Value = "resa"
Session("Dbx").Open
If Request.QueryString("Language") = "En" Then
Session("Language") = "En"
Else
Session("Language") = "Fr"
End If
'Session("Favoris") = ""
'Session("LastHotel") = 0
'Session("HotelProm") = ""
'Session("Coeur") = ""
'Session("VIP") = ""
'Session("Pays") = 3
Session.timeout = 200
Session("Pays") = 3
tosplithotels = Session("hotels")
hotels = Split(tosplithotels,"/")
For i = 0 to Ubound(hotels)-1
If Clng(hotels(i)) = Clng(Request.QueryString("Id")) Then
n = i - 1
If n < 0 then
n = Ubound(hotels)-1
NextHotel = Hotels(n)
Else
NextHotel = Hotels(n)
End If
End If
Next
Session("LastHotel") = Request.QueryString("id")
Set RsHotel = Session("Dbx").Execute ("SELECT * FROM Hotels WHERE Id = " & Clng(Request.QueryString("Id")))
one = Clng(1)
Set RsChildHotel = Session("Dbx").Execute ("SELECT * FROM Child_Hotels WHERE Id_Hotel = "&Clng(Request.QueryString("Id")) & " AND Id_Langue = " & one)
Set RsLnkTo = Session("Dbx").Execute ("SELECT * FROM Lnk_Hotel_To WHERE Id_Hotel = " & Clng(Request.QueryString("Id")) & " AND Id_pays = " & Session("Pays"))
Set RsRegions = Session("Dbx").Execute ("SELECT * FROM Regions WHERE Id = " & RsHotel("Id_region"))
Reg = 0
If Not RsRegions.Eof Then
Reg = RsRegions("id")
End If
Set RsEtoile = Session("Dbx").Execute ("SELECT * FROM Etoiles WHERE Id = " & RsHotel("Id_Etoile"))
noofstars = 0
If Not RsEtoile.Eof Then
noofstars = RsEtoile("Nbr_Etoiles")
End If
Image0 = trim(RsHotel("Image"))
Set RscheckImage = Session("Dbx").Execute ("SELECT * FROM Hotels WHERE Id = " & Clng(Request.QueryString("Id")) & " AND Image <> ''")
Session("hotels") = tosplithotels
%>
LES SEYCHELLES - Surprise
Les meilleurs hôtels aux Seychelles aux meilleurs prix
