<%
response.buffer=true
response.CacheControl = "Public"
%>
FranzO Software - Feedback
<% 'toolbar.inc
redim buttons(5)
cursname=Request.ServerVariables("SCRIPT_NAME")
curspath=left(cursname,instr(2,cursname,"/"))
if curspath = "" then curspath = "/"
if len(curspath) > 3 then
cursfolder=mid(curspath,2,len(curspath)-2)
cursfolder=ucase(left(cursfolder,1)) & lcase(mid(cursfolder,2)) 'cursfolder is product name or FranzO
else
cursfolder="FranzO"
end if
cursname=mid(cursname,len(curspath)+1)
if left(cursname,1) = "/" then cursname=mid(cursname,2) 'leading / if a page off root
cursname=lcase(left(cursname,len(cursname)-4)) 'strip .asp
cursnamecap=ucase(left(cursname,1)) & lcase(mid(cursname,2))
buttons(1)="Download"
buttons(2)="Support"
buttons(3)="Register"
buttons(4)="Feedback"
buttons(5)="Search"
if curspath="/" and cursname="default" then 'homepage
ahome = ""
else
if cursname="default" then
ahome = ""
else
ahome = ""
end if
end if
if alreadyrun<>1 then
response.write "" & " "
alreadyrun=1
end if
sub outOneTB(byval s)
response.write "
" & s & "
" & chr(13) & chr(10)
end sub
%>
<%
if not (curspath="/" and cursname="default") then 'not at home page - no UP for home page
outOneTB ahome & "Up"
end if
%>
<%
for i=1 to ubound(buttons)
if buttons(i) <> cursnamecap then
if i=ubound(buttons) then
outOneTB "Search"
else
outOneTB "" & buttons(i) & ""
end if
end if
next
%>
Feedback
Please send email to f e e d b a c k @ f r a n z o . c o . n z