<% 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)%>-好妞妞食品饮料招商网【pxpx8ls.hnqzjxs.com】

                      欢迎光临<%=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") %>
                      立即留言
                      CopyRight 2013-<%=Year(Date())%> <%=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 %>
                      欧美人与动牲交,深夜视频,鬼父全集在线观看,白洁与高义