<!--#Include File="../conn.asp"-->
<!--#Include File="const.asp"-->
<!--#Include File="../inc/Ns_ClsShow.asp"-->
<%
Call Nslove.SiteNav(ChannelID,"","index.asp")
Call View_Main()
Nslove.PageEnd()

Sub View_Main()
	dim Obj,FilePath,ID
	ID=Nslove.ChkNumeric(Request("ID"))
	if Nslove.IsHtml=1 then
		FilePath=Nslove.Ns_Setting(48)&Nslove.ViewInfo
		FilePath=Nslove.ExReplace(FilePath,"Tag.DataID",ID)
		Response.redirect FilePath
		Response.Flush:Response.End
	end if
	Set Obj=New Cls_Show
	Obj.Where="ID="&ID
	Obj.Help_View()
End Sub
%>