欢迎光临<%=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
联系地址：山东省枣庄市薛城区陶庄镇陶山北路

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

相关企业

<%=Rs(1)%>

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

<%End IF%> <%IF S_WeiXin = "" THEN%>

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

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

<%=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)%>个）