<!-- #include file="include/web.asp" -->
<!-- #include file="include/VOPS/FunctionLabel.asp" -->
<!-- #include file="include/inc.common.asp" -->
<!-- #include file="include/inc.codes.asp" -->
<!-- #include file="include/inc.pages.asp" -->
<!-- #include file="include/inc.comment.asp" -->
<%
call doWebHead()
call doSkinParse("comment","")
call doWebEnd()

sub doPageParse()
	if ops.request.getQuery("action")="view" then
		dim tmpURL,tmpChannel,tmpAction
		tmpChannel=ops.request.getQuery("channel")
		tmpAction="view"
		if instr(tmpChannel,".")>0 then
			tmpAction=tmpAction&"."&mid(tmpChannel,instr(tmpChannel,".")+1)
			tmpChannel=mid(tmpChannel,1,instr(tmpChannel,".")-1)
		end if
		chn.setChannel(tmpChannel)
		chn.doInit()
		tmpURL=chn.getLinkURL(tmpAction,"id="&ops.request.getQueryID("id"))
		if len(tmpURL)<1 then tmpURL=DIR_ROOT
		go tmpURL
	else
		modComment.setMode("full")
		modComment.doLoad()
		'modComment.doLoadUser()
		modComment.doParse()
	end if
end sub
%>