<%
Const Filename = "web.config" ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
' Create a filesystem object
Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")
' Map the logical path to the physical system path
Dim Filepath
dim myhotelid
dim mychainid
'dim hotel_start, chain_start
Filepath = Server.MapPath(Filename)
if FSO.FileExists(Filepath) Then
Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
' Read file in one hit
Dim Contents
Contents = trim(ucase(TextStream.ReadAll))
'Response.write Contents & "
"
TextStream.Close
Set TextStream = nothing
hotel_start = trim(ucase("add key=" & chr(34) & "MyHotelID" & chr(34) & " value=" & chr(34)))
hotel_end = " />"
chain_start = trim(ucase("add key=" & chr(34) & "MyChainID" & chr(34) & " value=" & chr(34)))
chain_end = " />"
pos1hotel = instr(1, Contents, hotel_start, 1)
if pos1hotel > 0 then
myhotelid = mid(contents, pos1hotel + len(hotel_start), 6)
end if
pos1chain = instr(1, contents, chain_start, 1)
if pos1chain > 0 then
mychainid = mid(contents, pos1chain + len(chain_start), 6)
end if
'response.Write("hotel_start=" & hotel_start & "
pos1hotel=" & pos1hotel & "
")
'response.Write("myhotelid=" & myhotelid & "
mychainid=" & mychainid)
Else
Response.Write " Cannot read " & Filename &_
""
End If
Set FSO = nothing
%>
|
 Each property has been fully renovated
and provides an array of product and services to
accommodate the most distinguished traveler.
Whether your visit to New York is for business or
pleasure, the Empire Hotel Group has what you are
looking for. Each property provides a range of services,
styles, locations and price points.
Just minutes from Lincoln Center, Broadway, Rockefeller
Plaza, Carnegie Hall, Fifth Avenue, Museums and the
famous Times Square, the Empire Hotel group corners the
hotel market for location, value and services.
|
|
Terms of Use