|
<%
on error resume next
Set db = Server.CreateObject("ADODB.Connection")
db.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\who-shared-hosting\sites\polioeradication\htdocs\db\admin.mdb;Persist Security Info=False"
db.Open
thepage=request.servervariables("script_name")
referrer=request.servervariables("http_referer")
browser=request.servervariables("http_user_agent")
thelanguage=request.servervariables("http_accept_language")
theIP = request.servervariables("remote_addr")
sql = "INSERT INTO log (sitepage,referrer,browser,browserlanguage,IPaddress) VALUES ('" & thepage & "','" & referrer & "','" & browser & "','" & thelanguage & "','" & theIP & "')"
db.execute(sql)
set db=nothing
%>
<%
filename = lcase(Mid( request.servervariables("URL"), InStrRev( request.servervariables("URL"), "/" ) +1 ))
filename = left(filename,len(filename)-4) & " "
if filename = "default " then
elseif Instr("background disease vaccines risk strategies history partners ",filename) > 0 then
response.write " Home > Background"
elseif Instr("progress labnet nid future casecount ",filename) > 0 then
response.write " Home > Global Situation"
elseif Instr(filename, "opvc_") > 0 then
response.write " Home > Global Situation > The Future > Research & Products"
elseif Instr("opvcessation ", filename) > 0 then
response.write " Home > Global Situation > The Future > Research & Products"
elseif Instr("pressreleases factsheets positionstatements videoaudio featurestories events qa def_questions speeches mediacontact photogallery photoessay ",filename) > 0 then
response.write " Home > Press Centre"
elseif Instr("fundingbackground poliodonors donorstories howtocontribute ",filename) > 0 then
response.write " Home > Funding"
elseif Instr("latestdocs presentations reports polionews speechstatement ",filename) > 0 then
response.write " Home > Publications"
elseif filename = "whatsnew " then
response.write " Home"
else
response.write " Home"
end if
if filename <> "default " then
%>
<% end if %>
| |
