<%
dim checkusername,checkuserpass,checklogin
dim m_name,m_pass,m_type,m_score,haslogin
if(session("TotCms_UserName")<>"") then
	haslogin=true
	m_name=session("TotCms_UserName")
else
	haslogin=false
end if
checkusername=session("TotCms_UserName")
if(haslogin=false) then
	response.Redirect("/login.asp")
else
	
end if
%>