<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from webxgn_e_other where id=1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
No Data
"
else
%>
<%=rs("content")%>
<%
rs.close
set rs=nothing
end if
%>
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select top "& product_hots &" * From webxgn_products where newpro=1 order by sort desc,id desc"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
response.write "
<%
if a=product_hots then exit do
a=a+1
rs.movenext
loop
%>
<%
end if
rs.close
set rs=nothing
%>
News
<%
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select top 5 * From webxgn_e_news order by sort desc,id desc"
Rs.Open Sql,Conn,1,1
if rs.eof and rs.bof then
response.write "
No Data
"
else
%>
<%
cols=product_hang
do while not rs.eof
%>