| |
|
The Americana Inn welcomes
the budget-minded traveler with it's warm, friendly
service. Our great location puts you within walking distance to
the top exciting sights and sounds of the Big Apple! The Americana Inn is perfect for the
budget minded traveler seeking comfortable accomodation,
excellent location and good value..
|
<%
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
%>
|
|
