<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version="1.0" encoding="gb2312"?>

<menu 
	deeplinking = "off"
	starting = "theme/v15/swf/slideshow.swf" 
	audio = "on" 
	navColor = "0x000000"
	subnavColor = "0xcc3366"
	navPosition = "left" 
	urlTarget = "_blank" 
	callOutColor = "0x111111"
	pageTitle = "<%=C_title%>" 
	slogan = "XML Deeplinking Template"
	logo="media/<%=C_logo%>"
	logox="<%=C_logox%>"
	logoy="<%=C_logoy%>"
	footer="<%=C_foot%>">
	
	
	<%
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")="link" then
submenu=submenu&"<sub label='"&rs1("U_title")&"' goto='url' url='"&rs1("U_bg")&"' swfAddress =''></sub>"
else
if rs1("U_type")="form" or rs1("U_type")="buy" then
submenu=submenu&"<sub label='"&rs1("U_title")&"' goto='load' url='theme/v15/swf/"&rs1("U_type")&".swf?F_id="&rs1("U_typeid")&"' audio='on' swfAddress = '"&rs1("U_id")&"'></sub>"
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&"<sub label='"&rs1("U_title")&"' goto='load' url='theme/v15/swf/"&rs1("U_type")&".swf?H_id="&rs1("U_typeid")&"&H_title="&rs1("U_title")&"&H_width="&H_width&"&H_height="&H_height&"' audio='on' swfAddress = '"&rs1("U_id")&"'></sub>"
else
submenu=submenu&"<sub label='"&rs1("U_title")&"' goto='load' url='theme/v15/swf/"&rs1("U_type")&".swf?id="&rs1("U_typeid")&"' audio='on' swfAddress = '"&rs1("U_id")&"'></sub>"
end if
end if
end if
rs1.movenext
		loop
	end if
set rs1=nothing

if rs("U_type")<>"sub" then
if rs("U_type")="link" then
response.Write "<main label='"&rs("U_title")&"' goto='url' url='"&rs("U_bg")&"' swfAddress =''></main>"
else
if rs("U_type")="form" or rs("U_type")="buy" then
response.Write "<main label='"&rs("U_title")&"' goto='load' url='theme/v15/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"' audio='on' swfAddress = '"&rs("U_id")&"'></main>"
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 "<main label='"&rs("U_title")&"' goto='load' url='theme/v15/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"' audio='on' swfAddress = '"&rs("U_id")&"'></main>"
else
response.Write "<main label='"&rs("U_title")&"' goto='load' url='theme/v15/swf/"&rs("U_type")&".swf?id="&rs("U_typeid")&"' audio='on' swfAddress = '"&rs("U_id")&"'></main>"
end if
end if
end if
else
response.Write "<main label='"&rs("U_title")&"' goto='' url='' swfAddress =''>"&submenu&"</main>"

end if

submenu=""
rs.movenext
		loop
	end if
set rs=nothing
	%>
	
</menu>