<%=sitepathcheck%>

<% dim sitepathcheck, imagespath if (Request.ServerVariables("LOCAL_ADDR") = "203.24.131.65") then sitepathcheck = "lvlq3a/" else sitepathcheck = "lvl/" end if if instr(1,Request.ServerVariables("PATH_INFO"),sitepathcheck & "beta/") > 0 then sitepathcheck = "[ ..::LvL - Q3A beta's ]" imagespath = "../" elseif instr(1,Request.ServerVariables("PATH_INFO"),sitepathcheck & "server/") > 0 then sitepathcheck = "[ ..::LvL - Q3A server's ]" imagespath = "../" elseif instr(1,Request.ServerVariables("PATH_INFO"),sitepathcheck & "mods/") > 0 then sitepathcheck = "[ ..::LvL - Q3A mod's ]" imagespath = "../" elseif instr(1,Request.ServerVariables("PATH_INFO"),sitepathcheck & "forum/") > 0 then sitepathcheck = "[ ..::LvL - Forum's ]" imagespath = "../" elseif instr(1,Request.ServerVariables("PATH_INFO"),sitepathcheck & "updates/") > 0 then sitepathcheck = "[ ..::LvL - Updates ]" imagespath = "../" else sitepathcheck = "[ ..::LvL - Q3A edition ]" imagespath = "" end if '======================= ' do the code for custom colours dim customcolours, bgcolourCustom, fontcolour customcolours = Request.Cookies("lvltheme")("colours") 'Response.Write("customcolours=["&customcolours&"]
") 'bgcolourCustom is used behind comments on other places 'fontcolour is used with

 tags as a css don't work well with them

		bgcolourCustom = Request.Cookies("lvltheme")("bgcolourCustom")
		fontcolour = Request.Cookies("lvltheme")("fontcolour")
		
%>

	<%=sitepathcheck%>
<%	

'custom char set

	if Request.Cookies("lvl")("language") = "ru" then
	
		Response.Write("")
	
	end if	

	if Request.Cookies("lvl")("language") = "pl" then
	
		Response.Write("")
	
	end if	

'font size for windows different to mac/linux

	if customcolours <> "" then
	
		if Instr(1,Lcase(Request.ServerVariables("HTTP_USER_AGENT")),"win") then 

			%>
	_w.css" type="text/css" />
			<% 

		else 

			%>
	.css" type="text/css" />
			<% 

		end if
	
	else
		'===============
		'standard colours or no cookie
		
		bgcolourCustom = "#efefef"
		fontcolour = "#696969"

		if Instr(1,Lcase(Request.ServerVariables("HTTP_USER_AGENT")),"win") then 

			%>
	
			<% 

		else 

			%>
	
			<% 

		end if

	end if 

%>





<% if Request.ServerVariables("LOCAL_ADDR") = "203.24.131.65" then %>
		
<% else %>
			
<% end if %>