<!-- #include file="../include/inc_config.asp" -->
<!-- #include file="../ajax_asp/temp_news.asp" -->
<!-- #include file="../ajax_asp/temp_global.asp" -->
<!-- #include file="../ajax_asp/temp_index.asp" -->
<!-- #include file="../ajax_asp/temp_defined.asp" -->
<!-- #include file="../ajax_asp/temp_nmbanner.asp" -->
<%
index_var = "news"
webcreate_xmlfile = "/" & edition_value & "/page_data/news_xml.xml"
templatefile_xslt = "/templates/news.xslt"
templatefile_xmltxt = get_ajaxtemplate("list", 1, "")
templatexml_node = ""
templatexml_node = "    <nowpagetitle pindexvar=""$pindexvar"" titlename=""$titlename""><![CDATA[$nowpagetitle]]></nowpagetitle>"
templatexml_node = templatexml_node & vbCrLf & "    <pageposition><![CDATA[$pageposition]]></pageposition>"
sql_cmd = "select * from T_SysMenuVar where menuIndexVar='" & index_var & "' and editionId=" & edition_id
Set rs_obj = web_dbobj.exec_sql(sql_cmd, 1)
If Not rs_obj.EOF Then
    templatelist_html = web_position(rs_obj("menuName"), edition_id)
    templatexml_node = Replace(templatexml_node, "$pindexvar", index_var)
    templatexml_node = Replace(templatexml_node, "$titlename", rs_obj("menuShort"))
    templatexml_node = Replace(templatexml_node, "$nowpagetitle", rs_obj("menuName"))
    templatexml_node = Replace(templatexml_node, "$pageposition", templatelist_html)
End If
rs_obj.Close
templatexml_node = get_xmldatalist(templatexml_node)
templatexml_node = templatexml_node & vbCrLf & get_indexsingle()
templatexml_node = templatexml_node & vbCrLf & get_definedlist(index_var)
templatexml_node = templatexml_node & vbCrLf & get_bannerlist(index_var)
templatefile_xmltxt = Replace(templatefile_xmltxt, "$newslist_item", templatexml_node)
Call writeTxtFile(webcreate_xmlfile, templatefile_xmltxt)
%>