OPTION EXPLICIT

dim strTemplateTitle
strTemplateTitle = "Template"

dim strEditUserTitle
strEditUserTitle = "Edit Users"

dim strStatsTitle
strStatsTitle = "User Statistics"

dim strEditUser
strEditUser = "Edit_User"

sub GotoNextPage(strValue)
		window.location.href = strValue			
end sub
	
sub CheckLogin
	dim iLock
	iLock = readVariable(varLogin)
	KillVariable varEDGARLogin
	if iLock = NOT_FOUND then
		Msgbox "Please Login to System"
		GotoNextPage("default.asp")
	end if
end sub
	
sub CheckSite
	dim iLock
	iLock = readVariable(varLogin)
	KillVariable varEDGARLogin
	if iLock = NOT_FOUND then
		GotoNextPage("default.asp")
	else
		GotoNextPage("template.asp")
	end if
end sub

function getLock
	dim iArray
	iArray = Split((Now()/28),".",-1,0)
	getLock = iArray(0)&iArray(1)
end function