<% openconn sqlp="select top 1 * from product where P_Language=2 and P_New=1 order by P_order asc" set rsp=server.CreateObject("adodb.recordset") rsp.open sqlp,conn,1,1 If Not rsp.eof Then P_Content=rsp("P_Wap") Pic=rsp("P_Field3") Pid=rsp("P_id") PSortid=rsp("P_Sortid") End If rsp.close set rsp=nothing sqln="select top 1 * from news where N_Language=2 and N_special=1 order by N_order asc" set rsn=server.CreateObject("adodb.recordset") rsn.open sqln,conn,1,1 If Not rsn.eof Then n_Content=rsn("N_Name") nPic=rsn("N_Pic") nid=rsn("N_id") End If rsn.close set rsn=nothing %>


Download Driver FAQ Tech Support


Introduction R&D Quality Control Factory


OEM Service Online Inquiry

<% 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%>

" target="_blank">

3 Then Response.Write(rs1("P_Pic")) Else Response.Write("no_small.jpg") End If%>" hspace="2" vspace="2" border="0">
<%= rs1("P_Name") %>

<% 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 %>