<!--#include file="../Conn.asp"-->
<!--#include file="../ACT_inc/ACT.Main.asp"-->
<% 	
	Dim ACTCMS,ACTERR
	Set ACTCMS = New ACT_Main
	Public Function UserLoginChecked()
	on error resume next
	Dim AdminName,PassWord
		UserLoginChecked = false 
		AdminName = ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminName")))
		PassWord= ACTCMS.RSQL(Trim(Request.Cookies(AcTCMSN)("AdminPassword")))
		IF AdminName="" Or PassWord = "" Then
		   UserLoginChecked=false
		   Exit Function
		Else
			Dim UserRs
			Set Userrs=Actcms.Actexe("Select Admin_Name,PassWord From Admin_ACT Where Admin_Name='" & AdminName & "' And PassWord='" & PassWord & "'")
			IF UserRS.Eof And UserRS.Bof Then
				UserLoginChecked=false
			Else
				UserLoginChecked = true
			End if
			UserRS.Close:Set UserRS=Nothing
	   End IF
	End Function 
	IF Cbool(UserLoginChecked)=false Then
	  Response.Write "<script>top.location.href='Login.asp';</script>"
	  Response.end
	End If
		  %>
