<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version="1.0" encoding="gb2312"?>
<site title="<%=C_title%> : %PAGE%" menu="true">
    <page id="index" src="theme/v14/swf/index.swf">
		<!-- assets -->
		<asset id="config" src="theme/v14/xml/config.asp?1.xml" preload="true" />
		<asset id="background" src="theme/v14/swf/background.swf" preload="true" depth="bottom" />
		<asset id="footer" src="theme/v14/swf/footer.swf" preload="true" depth="middle" />
		<asset id="bgmusic" src="theme/v14/swf/playlist.swf" preload="true" depth="middle" />
		<!-- nav -->
        <page id="nav" src="theme/v14/swf/nav.swf" depth="top">
		<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from menu1 where not U_type='sub' and not U_type='link' and U_sub=0 order by U_order"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if rs("U_type")="slideshow" then
U_pos="bottom"
else
U_pos="middle"
end if
if rs("U_type")="form" or rs("U_type")="buy" then

response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/external.swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"&F_type=.swf' preload='true'></asset><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
else
if rs("U_type")="html" then

Set rs2= Server.CreateObject("ADODB.RecordSet")
sql2="select * from html where H_id="&rs("U_typeid")
rs2.open sql2,conn,1,1
H_width=rs2("H_width")
H_height=rs2("H_height")
rs2.close
set rs2=nothing

response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/external.swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"&F_type=.swf' preload='true'></asset><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
else
response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/"&rs("U_type")&".swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml' preload='false' /><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
end if
end if
rs.movenext
		loop
	end if
set rs=nothing
		%>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from menu1 where not U_type='sub' and not U_type='link' and not U_sub=0 order by U_order"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if rs("U_type")="slideshow" then
U_pos="bottom"
else
U_pos="middle"
end if
if rs("U_type")="form" or rs("U_type")="buy" then

response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/external.swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"&F_type=.swf' preload='true'></asset><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
else
if rs("U_type")="html" then

Set rs2= Server.CreateObject("ADODB.RecordSet")
sql2="select * from html where H_id="&rs("U_typeid")
rs2.open sql2,conn,1,1
H_width=rs2("H_width")
H_height=rs2("H_height")
rs2.close
set rs2=nothing

response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/external.swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"&F_type=.swf' preload='true'></asset><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
else
response.Write "<page id='"&rs("U_id")&"' title='"&rs("U_title")&"' src='theme/v14/swf/"&rs("U_type")&".swf' route='"&rs("U_id")&"' depth='"&U_pos&"'><asset id='data' src='theme/v14/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml' preload='false' /><asset id='bg' src='media/"&rs("U_bg")&"' preload='false' /></page>"
end if
end if
rs.movenext
		loop
	end if
set rs=nothing
		%>
        </page>
    </page>
</site>