<%@ Language=VBScript %> <% dim page ' Page requested to display dim servedPage 'Page actually served dim qVal 'query string values dim temp dim pid ' page id 'set user ID If Session("userIDs") = "" Then Session("userIDs") = 0 end if 'set page ID pid = clng(Request.QueryString("pid")) if not isNumeric(pid) then pid = session("defaultPageID") if pid = 0 then pid = session("defaultPageID") 'set navigation page = Request("goto") if page = "" then page = session("defaultPageName") if instr(1,page,"jpeg") or instr(1,page,"png") or instr(1,page,"tif") or instr(1,page,"bmp") or instr(1,page,"bat") or instr(1,page,"cmd") or instr(1,page,"ini") or instr(1,page,"config") or instr(1,page,"txt") or instr(1,page,"jpg") or instr(1,page,"exe") or instr(1,page,"gif") then 'hacking attempt for each qVal in Request.QueryString tempH = tempH & qval & "=" & Request.QueryString(qVal) & ":" next 'qVal session ("tempH") = tempH response.Redirect "DGT3CodeWall.asp" end if 'set OS userAgent = Request.ServerVariables("HTTP_USER_AGENT") if instr(1,userAgent,"Windows") then session("os") = "win" else session("os") = "mac" end if 'show management console link if session("roleID")=1 then response.Write "

Return to gCMS Management Console

" end if 'load page on error resume next server.execute page servedPage = page if err.description<>"" then server.execute "DGT3NotFound.asp" servedPage = "DGT3NotFound.asp" end if temp = "" for each qVal in Request.QueryString temp = temp & qval & "=" & Request.QueryString(qVal) & ":" next 'qVal on error goto 0 if temp<>"" then temp = mid(temp,1,len(temp)-1) saveHit servedPage,session("userIDs"),temp %>