<% dim userlevel If Session("UserLevel") = "" Then userlevel = "price_group4" else userlevel = Session("UserLevel") End If %> eCOX Product Index 產品列表 <% On Error Resume Next Dim GetGroup Dim GetSubGroup GetGroup = request("Group") GetSubGroup = request("SubGroup") strDSN = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db2.mdb") & ";uid=;pwd=" %>
主頁 HomePage eCOX eCatalog 產品目錄 SALE  Installation 產品安裝價目 Order & Payment Methods 訂購付款 Contact Us 主頁 HomePage Contact Us ecox 電器資訊網 Electronic Depot 訂購產品/付款 Order & Payment Methods 訂購產品/付款 Order & Payment Methods 訂購產品/付款 Order & Payment Methods eCOX Forum 資訊討論區 保養及查詢代理 Warranties 產品安裝價目 Installation 訂購產品/付款 Order & Payment Methods 公司簡介/客戶 eCOX's customers 陳列室地址 Showroom Address 主頁 HomePage Contact Us ecox 電器資訊網 Electronic Depot 陳列室地址 Showroom Address eCOX experience eCOX 新體驗 eCOX Announcement eCOX 通告  Health Products 健康生活產品 Lighting Products eCatalog 燈光產品  產品目錄 Ventilating Products eCatalog 通風設備 產品目錄 Heating Products eCatalog 電熱產品 產品目錄 Kitchen Appliances eCatalog 家廚用品 產品目錄 Home Appliances eCatalog 大型家電 產品目錄 Audio & Visual  影音器材 Health Products 健康生活產品 Lighting Products 燈光產品 Ventilating Products 通風設備 Heating Products 電熱產品 Kitchen Appliances 家廚用品 Large Appliances 大型家電 Audio & Visual 影音器材 產品目錄 eCatalog 價格表 Price List eCOX Inquiry Form 查詢表格 eCOX Forum 資訊討論區 保養及查詢代理 Warranties 產品安裝價目 Installation 訂購產品/付款 Order & Payment Methods Company Profile 公司簡介 陳列室地址 Showroom Address 主頁 HomePage Contact Us ecox 電器資訊網 Electronic Depot
eCOX Store
eCOX Store
 

<% strSQL = "Select b.group_desc_c, b.category_id from i_cox_group b Where b.group_id = "&GetGroup Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN strID = rs("category_id") strGroup = rs("group_desc_c") rs.Close strSQL = "Select b.category_desc_c from i_cox_category b Where b.category_id = "&strID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN strCategory = rs("category_desc_c") rs.Close strTmp0 = "" strTmp0 = strCategory & "  >  " & strGroup & "  >>  " Response.Write(strTmp0) %>

<% Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT distinct b.brand_id, b.brand_desc_c From i_cox_goods a, i_cox_brand b Where a.brand_id = b.brand_id And a.subgroup_id = "&GetSubGroup rs.Open strSQL, strDSN If rs.BOF And rs.EOF Then Else Do While Not rs.EOF %> <% rs.MoveNext If Not rs.EOF Then %> <% End if rs.MoveNext If Not rs.EOF Then %> <% End if rs.MoveNext If Not rs.EOF Then %> <% End if rs.MoveNext If Not rs.EOF Then %> <% End if %> <% rs.MoveNext Loop End if rs.Close %>

style="float: left"><%=trim(rs("brand_desc_c"))%>

style="float: left"> <%=trim(rs("brand_desc_c"))%>

style="float: left"> <%=trim(rs("brand_desc_c"))%>

style="float: left"> <%=trim(rs("brand_desc_c"))%>

style="float: left"> <%=trim(rs("brand_desc_c"))%>

<% strSQL = "Select b.subgroup_desc_c, b.group_id from i_cox_subgroup b Where b.subgroup_id = "&GetSubGroup Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN strID = rs("group_id") strSubGroup = rs("subgroup_desc_c") rs.Close strTmp0 = "" strTmp0 = strSubGroup & "  >>>  " Response.Write(strTmp0) %> <% strTmp = "" strCount = 0 For Each Item In Request("brand") If strTmp = "" Then strTmp = Item strCount = 1 Else strTmp = strTmp & ", " & Item strCount = strCount + 1 End if Next strSQL = "" If Not strTmp = "" Then strSQL = "Select b.brand_desc_c From i_cox_brand b where b.brand_id In (" & strTmp &")" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN For strTC = 1 to strCount Response.Write rs("brand_desc_c") rs.MoveNext Next rs.Close else strSQL = strSQL & " order by a.brand_id, a.morder, a.model_no " End If %>

<% If GetSubGroup = "" Then Else strTmp = "" For Each Item In Request("brand") If strTmp = "" Then strTmp = Item Else strTmp = strTmp & ", " & Item End if Next strSQL = "Select b.brand_desc_c, a.model_no, a.spec1, a.spec2, a.price_group1, a.end_user_price,a.price_group2, a.price_group3, a.price_group4, a.price_group5,a.out_pack1, a.out_pack2, a.out_pack3, a.outpack4 From i_cox_goods a, i_cox_brand b Where a.brand_id = b.brand_id And a.subgroup_id = "&GetSubGroup If Not strTmp = "" Then strSQL = strSQL & " And a.brand_id In (" & strTmp &")" & " order by a.brand_id, a.morder, a.model_no " else strSQL = strSQL & " order by a.brand_id, a.morder, a.model_no " End If Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, strDSN bgco = "#EEEEFF" Do While Not rs.EOF If bgco = "#EEEEFF" then bgco = "#FFFFFF" Else bgco = "#EEEEFF" End If %> <% rs.MoveNext Loop rs.Close End if %>
<% Response.Write rs("brand_desc_c")%> "> <% Response.Write rs("model_no")%> <% Response.Write rs("spec1") %>
<% Response.Write rs("spec2") %>

$ <% If userlevel = "price_group4" Then If isNull(rs("price_group3")) Or rs("price_group3") = 0 Then Response.Write "Pls Call" Else Response.Write rs("price_group3") Response.Write rs("/") Response.Write rs("outpack4") End if elseif userlevel = "price_group2" Then Response.Write rs("price_group2") Response.Write rs("/") Response.Write rs("outpack2") elseif userlevel = "price_group5" Then Response.Write rs("price_group5") Response.Write rs("/") Response.Write rs("outpack1") elseif userlevel = "price_group1" Then Response.Write rs("price_group1") Response.Write rs("/") Response.Write rs("outpack1") End if %>

 
 
 

eCATALOG - www.eCOX.com.hk