<!--#include file="../lib/base.asp"-->
<!--#include file="../theme.asp"-->
<%
''' EYCMS tags
''' ==================================================================
	eycms.stophack
	dim tag:tag=eycms.enhtml(eycms.fget("tag",0))
	tag=left(tag,20)
	dim skinsroot
	skinsroot=eycms.getsys("theme_tags")
	if eycms.strlen(tag)>0 then
		skinsroot=eycms.getsys("theme_tags_list")
		dim sql_where:sql_where=""
		if datatype then
			sql_where=sql_where&" and (instr(1,lcase(tags),lcase('"&tag&"'),0)<>0)"
		else
			sql_where=sql_where&" and (tags like '%"&tag&"%')"
		end if
	end if
	eycms.show skinsroot,""
	eycms.db.dbclose
%>