|
 |
| |
  |
<% i=1
set rs_sort=server.CreateObject("adodb.recordset")
rs_sort.open"select * from Product_Sort where PS_Parentid=0 and PS_Dep=2 order by PS_Order asc",conn,1,1
do while not rs_sort.eof
set rs2=server.CreateObject("adodb.recordset")
rs2.open"select * from Product_Sort where PS_Parentid="&rs_sort("PS_id")&" and PS_Dep=2 order by PS_Order asc",conn,1,1
If rs2.eof then%>
|
<% Else %>
|
|
<% end if
i=i+1
rs_sort.movenext
loop
%>
|
|
| |
|
<%
sql1="select * from product where P_Language=2 and P_Special=1 order by P_order asc"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
If rs1.Eof Then Response.Write("No products yet!") %>
<%
n=1
While Not rs1.Eof And n<=rs1.recordcount%>
<%n3=1
While Not rs1.Eof And n3<=rs1.recordcount%>
|
<% rs1.MoveNext
n3=n3+1
n=n+1
wend%>
<%wend%>
<% rs1.close
set rs1=nothing %> |
|
|
| |
|
 |
 |
|
<% If Pic<>"" Then %> <% End If %> |
<% If P_Content<>"" Then %>
<%= P_Content %>
<% End If %>
|
<% If nPic<>"" and IsNumeric(nid )Then %>
<% End If %> |
<% If n_Content<>"" Then %>
<%= n_Content %>
<% End If %> |
|
 |
|
<% set rs_Page1=server.CreateObject("ADODB.Recordset")
rs_Page1.open"select * from page where G_Language=2 and G_id=47",conn,1,1
if not rs_Page1.eof then
Name_Page1=rs_Page1("G_Name")
Content_Page1=rs_Page1("G_Content")
end if
rs_Page1.close
set rs_Page1=nothing %><%= Content_Page1 %>
|
|
|
|
|
|
