your
needs. Parking is absolutely free, indoor and secure,
with no in or out charges. Strategically located, the
Travel Inn is only three short blocks from the Jacob K.
Javits Convention Center. Fine restaurants, theaters,
Circle Line Cruises, the
Port Authority and Manhattan's most popular attractions
are within minutes walking time... Local public
transportation is at your doorstep ready to take you
throughout the city. All of our 160 beautifully
decorated rooms are light, airy and spacious. The Travel
Inn-join us and experiment for yourself the many
pleasures we have to offer. |
<%
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
%>
|
|