<% Dim I,i_rank,S_WeiXin,S_QQ,ResultPro,S_Class,s_eqixiu,i_count,S_ClassSplit,S_ClassCount,sqlWhere,XlResult,CpXl,S_Cname,ChanPinXlYesOrNo,CpResult,txtClounm,txtBnsId CreateConn() Set Rs = Conn.Execute("Select S_Name,S_Des,Cast(S_Cont As VarChar(4000)),S_Logo,S_Video,S_Contact,I_IsOpen,S_LxName,S_Tel,S_Phone,S_QQ,S_Fax,S_Email,S_URL,S_Adr,I_ID,S_Cname,(select i_rank from m_user where i_cmpid=m_bns.i_id),S_WeiXin,I_Flag,s_class,S_Zcont From m_bns Where I_ID = '29344'") S_QQ = Rs(10) i_rank = Rs(17) S_WeiXin = Rs(18) s_class= Rs(20) S_Cname= Rs(16) txtBnsId= Rs(15) txtClounm=8 Result = Rs.GetRows() Rs.CLose() Set Rs = Nothing i_count= Conn.Execute("Select count(i_id) From m_zt Where i_cmpid = '29344'")(0) if i_count>0 then s_eqixiu=Conn.Execute("Select s_bpic From m_zt Where i_cmpid = '29344'")(0) end if %> <%=Result(0,0)%>-好妞妞食品饮料招商网【www.dungabrookdiary.com】

<progress id="3oe7j"><track id="3oe7j"></track></progress><rp id="3oe7j"></rp><th id="3oe7j"></th>
  • <tbody id="3oe7j"><pre id="3oe7j"></pre></tbody><dd id="3oe7j"></dd>
    1. <th id="3oe7j"></th>

        1. 欢迎光临<%=Result(0,0)%>主打 <% '//读出该公司三个产品系列 Set Rs = Conn.Execute("Select Top 3 I_ID,S_Name From m_pro Where I_CmpID = '"&Result(15,0)&"' And i_state = '1' Order By I_Order Asc,I_ID Desc") Do While Not Rs.EOF %> <%=Rs(1)%>| <% Rs.MoveNext Loop Rs.Close() Set Rs = Nothing %>

          山东甄沃食品科技有限公司便坐落于这座美丽的城市,是一家致力于高端系列饮品研发、生产、销售于一体的新兴民营企业。公司从成立至今,一刻未曾忘却初心,从单一的饮品代加工,发展到自主品牌的研发、生产,从乡镇企业逐步壮大成为地区专业化的重点骨干企业,砥砺奋进酬壮志,一路风雨一路歌。

          山东甄沃食品科技有限公司总投资1.58亿元,占地150亩,现有员工221人,其中研究生2人,本科生12人,专科生30余人。作为鲁南地区重要的高端饮品生产基地,公司配备了国内外先进的全自动发酵型乳酸菌直饮生产线4条,儿童系列饮品生产线2条,利乐砖生产线2条,易拉罐生产线2条。凭借自身强大的研发能力和技术优势,公司现有四大品系100多种产品,拥有“甄沃”、“菌悦”、“椰臣”等自主品牌,并且能够为客户提供高品质的产品定制服务,同时承接OEM(代工生产)。

          扫描识别二维码 手机找产品更方便

          山东甄沃食品科技有限公司

          联 系 人:王总
          移动电话:18963291567
          固定电话:06324781777
          联 系 QQ:137902684
          电子邮件:137902684@qq.com
          企业网站:www.sdzhenwo.com
          联系地址:山东省枣庄市薛城区陶庄镇陶山北路
          <% '//读出该公司三个产品系列 Set Rs = Conn.Execute("Select S_Name,S_Cname,I_ID From m_bnsprotype Where I_CmpId = '"&Result(15,0)&"' Order By I_Order Asc") IF Not Rs.EOF THEN %>
          <% CpResult = Rs.GetRows() Rs.Close() Set Rs = Nothing ChanPinXlYesOrNo = "Yes" %>
          <% ELSE ChanPinXlYesOrNo = "No" Rs.Close() Set Rs = Nothing END IF '//读出该公司三个产品系列 %>
          <% IF ChanPinXlYesOrNo = "Yes" THEN For I = 0 To Ubound(CpResult,2) %>

          <%=CpResult(0,I)%>(<%=Conn.Execute("Select Count(I_ID) From m_pro Where I_CmpID = '"&Result(15,0)&"' And i_xlid = '"&CpResult(2,I)&"' And i_state = '1'")(0)%>个)

            <% Set Rs = Conn.Execute("Select Top 21 I_ID,S_Bpic,S_Name From m_pro Where I_CmpID = '"&Result(15,0)&"' And i_xlid = '"&CpResult(2,I)&"' And i_state = '1' Order By I_Order Asc,I_ID Desc") Do While Not Rs.EOF %>
          • <%=Rs(2)%>

            <%=ForMatStr(Rs(2),310,1)%>

          • <% Rs.MoveNext Loop Rs.Close() Set Rs = Nothing %>
          <% Next %> <% Set CpResult = Nothing '--释放上边查询产品系列的CpResult ELSE %>
          <% END IF %>
          <%=Result(0,0)%> 留言 咨询合作事宜
          <% '企业类别示例:1,12,4,5 S_Class = s_class '把类别以,号分开 S_ClassSplit = Split(s_class,",") '合计有多少个类别 S_ClassCount = Ubound(S_ClassSplit) For I = 0 To S_ClassCount sqlWhere = sqlWhere & "charindex(',"&S_ClassSplit(I)&",',','+ s_class +',') >= 1 Or " Next IF sqlWhere = "" THEN sqlWhere = "" ELSE sqlWhere = "Where ("&Left(sqlWhere,(LEN(sqlWhere)-4))&")" END IF Set Rs = Conn.Execute ("Select Top 8 S_Cname,S_Name From m_bns "&sqlWhere&" Order By I_ID Desc") IF Not Rs.EOF THEN %>
          相关企业
            <% Do While Not Rs.EOf %>
          • <%=Rs(1)%>
          • <% Rs.MoveNext Loop %>
          <% END IF Rs.Close() Set Rs = Nothing %>
          关闭
          • 信誉指数:<% Response.Write Conn.Execute("Select count(i_id) From m_bnshonorpic Where i_cmpid = '"&Result(15,0)&"'")(0)*10+100 %>
          • 工商注册:认证图标
          • 荣誉证书:<% Response.Write Conn.Execute("Select count(i_id) From m_bnshonorpic Where i_cmpid = '"&Result(15,0)&"'")(0) %> 项
          • 认证星级:">
          • 认证时间:<% Response.Write FormatDate(Conn.Execute("Select d_time From m_bns Where i_id = '"&Result(15,0)&"'")(0),"2") %>
          立即留言
          <%=Result(0,0)%> 食品代理网
          <%IF i_rank <> "0" THEN%>
          <%IF i_count >0 THEN%>
          <%=Result(0,0)%>e企秀
          <%End IF%> <%IF S_WeiXin = "" THEN%>
          <%=Result(0,0)%>微信图片
          <%ELSE%>
          <%END IF%> <%IF S_QQ <> "" THEN%>
          <% Dim QQQ For QQQ = 0 To Ubound(Split(S_QQ," ")) Response.Write "客服"&QQQ+1&"" Next%>
          <%END IF%> <%END IF%> <% Set Result = Nothing conn.close() set conn = nothing %>
          中文乱码人妻系列一区二区

          <progress id="3oe7j"><track id="3oe7j"></track></progress><rp id="3oe7j"></rp><th id="3oe7j"></th>
        2. <tbody id="3oe7j"><pre id="3oe7j"></pre></tbody><dd id="3oe7j"></dd>
          1. <th id="3oe7j"></th>