<!--#include file="../scripts/WriteVisit.inc"-->
<% 'WriteVisit %>

<!--#include virtual="/TS/scripts/CountPages.inc"-->
<%
'set up some session vars
Session.Contents("currentDrive") = LEFT(request.servervariables("PATH_TRANSLATED"),1)

'move TS to ts.mivu.org
theSwitch = CDATE("11/01/01 12:00 PM")
IF DateDiff("d", theSwitch, Now()) <= 0 THEN
	theQuery = request.querystring
	IF theQuery <> "" THEN
		theQuery = "?" & theQuery
	END IF
	response.redirect("http://ts.mivu.org/default.asp" & theQuery)
END IF

'check for special cases
varShow = request.querystring("show")
SELECT CASE varShow
	CASE "article"	varAction = request.querystring("action")
			SELECT CASE varAction
				CASE "email", "discuss", "search"	boolDirect = TRUE
				CASE ELSE			boolDirect = FALSE
			END SELECT

	CASE "discussion","search","about", "stats"	boolDirect = TRUE
	CASE ELSE				boolDirect = FALSE
END SELECT

'short-circuit the ASP2HTML until I can figure out the problem (7/31/01)
boolDirect = TRUE

'CountPages request.servervariables("QUERY_STRING"), FALSE
IF boolDirect THEN
	IF INSTR(request.ServerVariables("HTTP_USER_AGENT"),"MSIE") > 0 THEN
		session.contents("TS_Browser") = "ie"
	ELSE	session.contents("TS_Browser") = "ns"
	END IF
	server.transfer("display.asp")
ELSE	server.transfer("ASP2HTML.asp")
END IF
%>