<%@ Language=VBScript %>

<%
	Dim sw
	Dim su

	sw = 0
	su = 0

	For Each Key In Session.Contents
		su = Trim(Left(Session(key),2))
	    If su <> 0 Then
		   sw = -1
		   Exit For
		End If
	Next

	if sw = -1 then
	    Response.Redirect "account.asp" 
    Else
	    Response.Redirect "default.asp" 
    End If
%>