<!--#include file="lib/base.asp"-->
<!--#include file="lib/theme.asp"-->
<%
	dim tag:tag=sdcms.enhtml(sdcms.fget("tag",0))
	tag=left(tag,20)
	dim skinsroot
	skinsroot=theme_tags
	if sdcms.strlen(tag)>0 then
		skinsroot=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
	sdcms.show skinsroot,""
	sdcms.db.dbclose
%>