<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->

<?xml version="1.0" encoding="utf-8" ?>
<menu>
	<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from menu1 where U_sub=0 order by U_order"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof

Set rs1= Server.CreateObject("ADODB.RecordSet")
sql1="select * from menu1 where U_sub="&rs("U_id")&" order by U_order"
rs1.open sql1,conn,1,1
if not rs1.eof then
Do while Not rs1.eof

if rs1("U_type")="text" or rs1("U_type")="photo" or rs1("U_type")="video" or rs1("U_type")="slideshow" then
U_pos="cc"
end if
if rs1("U_type")="contact" or rs1("U_type")="news" then
U_pos="cc"
end if


if rs1("U_type")="link" then
submenu=submenu&"<subPage><pageTitle><![CDATA[<menuText>"&rs1("U_title")&"</menuText>]]></pageTitle><urlLink>"&rs1("U_bg")&"</urlLink><urlTarget>_blank</urlTarget></subPage>"
else
if rs1("U_type")="form" or rs1("U_type")="buy" then
submenu=submenu&"<subPage><pageTitle><![CDATA[<submenuText>"&rs1("U_title")&"</submenuText>]]></pageTitle><moduleURL>theme/v11/swf/"&rs1("U_type")&".swf?F_id="&rs1("U_typeid")&"&F_type=.swf</moduleURL><moduleXML></moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><deepLinking>"&rs1("U_id")&"</deepLinking><pageBackgroundColor>0x000000</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs1("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></subPage>"
else
if rs1("U_type")="html" then

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

submenu=submenu&"<subPage><pageTitle><![CDATA[<submenuText>"&rs1("U_title")&"</submenuText>]]></pageTitle><moduleURL>theme/v11/swf/"&rs1("U_type")&".swf?H_id="&rs1("U_typeid")&"&H_title="&rs1("U_title")&"&H_width="&H_width&"&H_height="&H_height&"&F_type=.swf</moduleURL><moduleXML></moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><deepLinking>"&rs1("U_id")&"</deepLinking><pageBackgroundColor>0x000000</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs1("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></subPage>"

else
submenu=submenu&"<subPage><pageTitle><![CDATA[<submenuText>"&rs1("U_title")&"</submenuText>]]></pageTitle><moduleURL>theme/v11/swf/"&rs1("U_type")&".swf</moduleURL><moduleXML>theme/v11/xml/"&rs1("U_type")&"/?"&rs1("U_typeid")&"."&timer()&".xml</moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><deepLinking>"&rs1("U_id")&"</deepLinking><pageBackgroundColor>0x000000</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs1("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></subPage>"
end if
end if
end if
rs1.movenext
		loop
	end if
set rs1=nothing

if rs("U_type")="text" or rs("U_type")="photo" or rs("U_type")="video" or rs("U_type")="slideshow" then
U_pos="cc"
end if
if rs("U_type")="contact" or rs("U_type")="news" then
U_pos="cc"
end if

if rs("U_type")="link" then
response.Write "<page><pageTitle><![CDATA[<menuText>"&rs("U_title")&"</menuText>]]></pageTitle><urlLink>"&rs("U_path")&"?"&now()&"</urlLink><urlTarget>_blank</urlTarget></page>"
else
if rs("U_type")="form" or rs("U_type")="buy" then
response.Write "<page><pageTitle><![CDATA[<menuText>"&rs("U_title")&"</menuText>]]></pageTitle><deepLinking>"&rs("U_id")&"</deepLinking>"&submenu&"<moduleURL>theme/v11/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"&F_type=.swf</moduleURL><moduleXML></moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><pageBackgroundColor>0xC790C2</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></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><pageTitle><![CDATA[<menuText>"&rs("U_title")&"</menuText>]]></pageTitle><deepLinking>"&rs("U_id")&"</deepLinking>"&submenu&"<moduleURL>theme/v11/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</moduleURL><moduleXML></moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><pageBackgroundColor>0xC790C2</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></page>"

else
response.Write "<page><pageTitle><![CDATA[<menuText>"&rs("U_title")&"</menuText>]]></pageTitle><deepLinking>"&rs("U_id")&"</deepLinking>"&submenu&"<moduleURL>theme/v11/swf/"&rs("U_type")&".swf</moduleURL><moduleXML>theme/v11/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml</moduleXML><moduleCSS>theme/v11/css/css.css</moduleCSS><pageBackgroundColor>0xC790C2</pageBackgroundColor><pageBackgroundColorAlpha>1</pageBackgroundColorAlpha><pageBackgroundMedia><item>media/"&rs("U_bg")&"</item></pageBackgroundMedia><modulePosition>"&U_pos&"</modulePosition></page>"
end if
end if
end if
submenu=""
rs.movenext
		loop
	end if
set rs=nothing
	%>

</menu>