<%
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 & "
The Helmsley
Park Lane is a
grand luxury
46-story hotel
with panoramic
view of Central
Park and the New
York skyline.
Spacious,
elegant rooms
and suites offer
picture windows
and superb
views. Classical
ambience and
service is
coupled with
new-world
comfort and
convenience. The
décor reflects
the grand
European style,
from the
majestic
ballroom to the
intimate lobby.
Located on
Central Park in
the midtown
business
district, the
hotel is just
steps from Fifth
Avenue shopping,
Broadway
theaters, Museum
Mile, Radio
City, and
Lincoln Center.
36 Central Park South New York, NY 10019
Tel: 212.371.4000
Reservations: 212.521.6640
Fax: 212.750.7279
Toll-free: 1.800.221.4982