<% no_name = session("no_name") %> Your Partner for Total solution
<% Set r_icon1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT distinct class_id,class FROM class order by class_id" r_icon1.Open sql, conn, 1,3 On Error Resume Next r_icon1.MoveFirst do while Not r_icon1.eof n=n+1 %> <% r_icon1.MoveNext loop %>
<% Set rs1 = Server.CreateObject("ADODB.Recordset") if class_ids <> "" then SQL = "Select * From class,vendor where class.class_id = vendor.class_id and vendor.class_id =" & class_ids else SQL = "Select * From class,vendor where class.class_id = vendor.class_id and vendor.class_id =1" end if rs1.Open sql, conn, 1,3 On Error Resume Next %> <% 'rs1.MoveFirst 'do while Not rs1.eof %> <% class_ids = rs1("class_id") Set rs2 = Server.CreateObject("ADODB.Recordset") SQL = "Select * From class,vendor where class.class_id = vendor.class_id" SQL = SQL & " and vendor.class_id =" & class_ids rs2.Open SQL, conn, 1,3 rs2.MoveFirst do while Not rs2.eof %> <% rs2.MoveNext loop %> <% 'rs1.MoveNext 'loop %>
<%=rs1("class")%>
<%=rs2("v_name")%>
<% v_ids = rs2("v_id") Set rs3 = Server.CreateObject("ADODB.Recordset") SQL = "Select * From vendor,product where vendor.v_id = product.v_id" SQL = SQL & " and product.v_id =" & v_ids rs3.Open SQL, conn, 1,3 rs3.MoveFirst do while Not rs3.eof %> <% rs3.MoveNext loop %>
<%=rs3("name")%> 
<% product_ids = rs3("product_id") Set rs4 = Server.CreateObject("ADODB.Recordset") SQL = "Select * From product,pdffile where product.product_id = pdffile.product_id" SQL = SQL & " and pdffile.product_id =" & product_ids rs4.Open SQL, conn, 1,3 rs4.MoveFirst do while Not rs4.eof %>
<%=rs4("pro_text1")%>&files=<%=rs4("pro_files1")%>&user=<%=Session("no_name")%>">...More Detail
<% rs4.MoveNext loop %>

 

 

如果有任何問題請聯絡我們
臺灣總部
6F-1, No. 100, Min Chuan Road, Hsin Tien City, Taipei Hsien, 231, Taiwan
Phone: +886 2 2218 9633      Fax: +886 2 2218 9632
E-mail:  salestw@osted.com