<%lang=request.QueryString("lang")%> Agri Commodities

<% lang=request.QueryString("lang") if lang="" then id=2 Set con2= Server.CreateObject("ADODB.Connection") con2.Provider = "Microsoft.Jet.OLEDB.4.0" con2.ConnectionString = "Data Source=" & Server.MapPath ("db/arshad.mdb") con2.Open Set RsCat = Server.CreateObject("adodb.recordset") SqlCat = "Select * from agri_pages where id ="&id RsCat.open SqlCat, con2,1,2%> <%response.write rscat("Title")%>

<% response.write rscat("des") else if lang="ar" then%>

السلع الزراعية والأعمال التجارية العائلية التي تجد جزءا لا يتجزأ من قيمها بقوة في الثقافة الباكستانية والتقاليد. تعمل جنبا إلى جنب مع فريق إدارة المتحفز والموظفين ذوي المهارات الإدارية، ونحن في السلع الزراعية وتهدف إلى تحقيق ما يلي:
• لخلق بيئة عمل ودية حتى الآن كفاءة في شركتنا التي هي طموح نحو تحقيق أهدافها في غضون فترة زمنية معينة.
• العمل بجد من أجل حماية البيئة وصحة موظفينا والمجتمعات التي نعمل فيها.
• دمج بثبات الأساليب التكنولوجية والابتكارية في منظمتنا من خلال البحث والتطوير من أجل تحقيق مستمر نمو الأعمال التجارية.
• العمل كفريق واحد، وتوفير فرص متساوية لجميع أعضاء الفريق، وبالتالي الحفاظ واحترام أخلاقيات العمل ورمز للسلوك السليم.
• تحمل المسؤولية لإحداث تأثير إيجابي على المجتمع، والمجتمع من حولنا، والتقليل من أي تكاليف اجتماعية والخارجية التي قد يكون نجم عن أعمالنا كمنظمة.
• التصنيع والمنتجات الغذائية عملية جودة أعلى فقط ومعايير تقديم التي تنسجم مع فلسفة شركتنا.
• التركيز على بناء والحفاظ على العلاقة مع الزبائن والبقاء ملتزمة وعد من ممارسة الأعمال التجارية مع النزاهة والالتزام بمعايير التجارة العادلة.

<% else if lang="fr" then%>

Produits agroalimentaires est une entreprise familiale qui trouve ses valeurs fortement ancrées dans la culture pakistanaise et les traditions. Travailler aux côtés d'une équipe de gestion hautement motivés et un personnel qualifié administratif, nous au niveau des biens Agri visent à atteindre les objectifs suivants:
• Pour créer un environnement de travail convivial et performant de notre entreprise qui est ambitieux sur l'accomplissement de ses objectifs dans une période donnée.
• travailler avec zèle à la protection de l'environnement et la santé de nos employés et les communautés dans lesquelles nous travaillons.
• régulièrement l'intégration de méthodes technologiques et innovantes dans notre organisation à travers la recherche et le développement afin de parvenir à la croissance des entreprises constante.
• Pour travailler en équipe et fournir un accès égal pour tous les membres de l'équipe, ainsi préservant et en respectant l'éthique de travail et le code de conduite adéquat.
• Prendre la responsabilité d'avoir un impact positif sur la société et la communauté autour de nous, en minimisant les coûts sociaux et externes qui ont pu résulter de nos actions en tant qu'organisation.
• Fabrication et produits alimentaires processus de la plus haute qualité et des normes offrant qui sont compatibles avec notre philosophie d'entreprise.
• Concentrez-vous sur la construction et le maintien de la relation client et de rester engagé à la promesse de faire des affaires avec intégrité et en respectant les normes de commerce équitable.

<%else if lang="ch" then%> 农业商品是一个家庭经营的业务,发现它的价值观,强烈嵌入在巴基斯坦的文化和传统。一支积极进取的管理团队和一支技术精湛的管理人员一起工作,我们的目标是在农业商品实现如下:
•要创建一个友好而高效的工作环境,在我们的公司,在一个给定的时间内完成其目标是雄心勃勃的。
•勤奋工作,对保护环境和我们的员工和我们所在的社区工作的健康。
稳步整合,通过我们的组织在研究和开发的技术和创新的方法,为了实现持续的业务增长。
要作为一个团队工作,并为所有的团队成员提供平等的机会,从而维护和遵守职业道德和行为的正确代码。
承担责任,使我们周围的社会和社会上产生积极的影响,尽量减少任何可能导致我们的行动作为一个组织的社会和外部成本。
只有最高的质量和交付标准,是与我们公司的理念一致的制造和加工食品。
•集中精力建立和维护客户关系,坚持守法诚信和公平交易标准开展业务的承诺。
<% end if end if end if end if%>

<% DIM mySQL, objRSm mySQL = "SELECT * FROM rimages where pid ='"&id&"' " Set objRSm = Server.CreateObject("ADODB.Recordset") objRSm.Open mySQL, con2,1,2 DIM recCount IF Not objRSm.EOF THEN Response.Write "" recCount = 0 Do UNTIL objRSm.EOF IF recCount Mod 3 = 0 THEN Response.Write "" Response.Write " <%ELSE%> <% END IF recCount = recCount + 1 objRSm.MoveNext Loop Response.Write"
"%>
" rel="facebox">" width="200" height="200" border="0" style="border-radius: 6px;" />
" rel="facebox">" width="200" height="200" border="0" style="border-radius: 6px;"/>
" ELSE 'Response.Write "Sorry, there are no records in our database." END IF %>
pageok
<% Set RsCat = Server.CreateObject("adodb.recordset") SqlCat = "Select * from news " RsCat.open SqlCat, con,3,2 %>
MARKET UPDATES
<%while not RsCat.Eof%> <%RsCat.MoveNext Wend%>
"><%=RsCat("t")%>