<!--#include file="../inc/config.asp" -->
<!--#include file="../inc/conn.asp" -->
<!--#include file="inc/function.asp" -->
<!-- #include file="inc/Session.asp" -->
<!-- #include file="inc/checkrole.asp" -->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
call checkPrevilege(Session("Name"),"p05")
'''''''''''''''''''''''''''''''''''''''''''''''	
dim classid,flag,imglist
classid=Cint(request("classid"))
imglist=Cint(request("imglist"))
Set rs = Server.CreateObject("adodb.recordset")
sql="select flag from catalogs where id="&classid
rs.open sql,conn,3,1
if not rs.eof then
	flag=rs("flag")
	rs.close
	set rs=nothing
	if(flag=true) then
		response.Redirect("to_catalog.asp?classid="&classid)
	else
		if(imglist=1) then
			rowsNum=Cint(request("rowsNum"))
			colsNum=Cint(request("colsNum"))
			containW=Cint(request("containW"))
			containH=Cint(request("containH"))
			response.Redirect("to_imglist.asp?classid="&classid&"&rowsNum="&rowsNum&"&colsNum="&colsNum&"&containW="&containW&"&containH="&containH)
		else
			response.Redirect("to_list.asp?classid="&classid)
		end if
	end if
else
	rs.close
	set rs=nothing
	response.Write("´يخَµؤ²خت‎!")
end if

call connclose()
%>