<!--#include file="../conn.asp"-->
<!--#include file="../common/const.asp"-->
<!--#include file="../inc/template.inc"-->
<%
Call Main()
Call TPL_Flush()
NewAsp.PageEnd()

Sub Main()
	Dim strHTML
	strHTML = NewAsp.LoadTemplate("common")
	strHTML = Replace(strHTML, "{$pagetitle}",  "ΉγΈζΊΟΧχ")
	strHTML = Replace(strHTML, "{$channelid}", 0)
	strHTML = Replace(strHTML, "{$classid}", 0)
	TPL_Scan strHTML
End Sub

Sub TPL_ParseNode(sTokenType, sTokenName, sVariant)
	Select Case sTokenType
		Case "newasp"
			ParseDataNode		sTokenName,sVariant
	Case Else
	End Select
End Sub

Sub ParseDataNode(sToken,sVariant)
	On Error Resume Next
	Select Case sToken
		Case "content"		:	TPL_Echo GetHtmlContent()
	End Select
	If Err Then Err.Clear
End Sub

Function GetHtmlContent()
	Dim strHTML
	strHTML=NewAsp.ReadTextFile("../common/template/advertise.html")
	strHTML=Replace(strHTML, "{$SiteName}", NewAsp.MainSetting(1))
	strHTML=Replace(strHTML, "{$sitename}", NewAsp.MainSetting(1))
	GetHtmlContent=strHTML
End Function
%>
