<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->

<%
Auto_Login()

if Request.QueryString("ac")="Attention" then 
	dim RID,RV,Re
	if Request.QueryString("rid")="" then REND
	if not IsNumeric(Request.QueryString("rid")) then REND
	RID = Request.QueryString("rid")
	RV = Request.QueryString("v")
	RS_End
	if RV="false" then
		DB_CONN.EXECUTE("delete from [i_User_Attention] where [i_User_Attention_UID]="&Session(Session_UserID_Arg)&" and [i_User_Attention_GUID]="&RID)
	else
		RS.OPEN "select top 1 * from [i_User_Attention] " , DB_CONN , 1 , 3
		RS.addnew()
		RS("i_User_Attention_UID")=Session(Session_UserID_Arg)
		RS("i_User_Attention_GUID")=RID
		RS.Update()
	end if
	RS_End
	Rend
end if


%>