<%@ LANGUAGE = VBSCRIPT %>
<%
const constForReading = 1
const constTristateFalse = 0
dim fsoObject
dim tsObject
dim strReturned
dim strFilename
dim sPageNum
dim sPageName
'get file name from querystring
if request.querystring.count < 1 then
strFilename = "tr_page1.html"
sPageNum = 1
strFilename = server.mappath(strFilename)
else
sPageNum = request.querystring("page")
sPageName = "tr_page" & sPageNum & ".html"
strFilename = Server.Mappath(sPageName)
end if
' response.write strFilename
set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
set tsObject = fsoObject.OpenTextFile(strFilename, constForReading, constTristateFalse)
do while not tsObject.AtEndOfStream
strReturned = strReturned & tsObject.Read(1)
loop
dim s1,s2,s3,s4,s5,s6,s7,s8,s9
dim sOn,sOff
sOn = "navlinkover"
sOff = "navlink"
s1 = sOff
s2 = sOff
s3 = sOff
s4 = sOff
s5 = sOff
s6 = sOff
s7 = sOff
s8 = sOff
s9 = sOff
select case sPageNum
case 1:
s1= sOn
case 2:
s2 = sOn
case 3:
s3 = sOn
case 4:
s4 = sOn
case 5:
s5 = sOn
case 6:
s6 = sOn
case 7:
s7 = sOn
case 8:
s8 = sOn
case 9:
s9 = sOn
end select
%>
North Adams Transcript - Classified & Retail Service Guide
