<%lang=request.QueryString("lang")%> Agri Commodities - IRRI- 6 Long Grain

<% lang=request.QueryString("lang") if lang="" then id=12 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%>

أصبح الأرز الحبوب معهد بحوث الارز الدولى-6 طويلة نوعا من العلامات التجارية من الأرز الباكستاني في السوق الدولية. علما انه كان في زراعة لعدة عقود، لا يمكن للإنتاج وطحن الأرز-6 IRRI تختلف اختلافا كبيرا تبعا لتصنيف لها، ونوعية والطهي. بسبب الطهي وغرامة، وذوق كبير ورخيصة الثمن نسبيا، وIRRI-6 هي مجموعة متنوعة من معظم تصدير الأرز في باكستان.

البنجاب والسند
الأصل
لا شيء
رائحة
الأبيض، مسلوق، براون
متاح أنواع
6.5ملم
متوسط ​​طول الحبوب (عقل)

 

<% else if lang="fr" then%> Le riz à grain long Irri-6 est devenue en quelque sorte une marque de commerce de riz pakistanais sur le marché international. Ayant été dans la culture depuis plusieurs décennies, la production et le fraisage de l'IRRI-6 du riz peuvent varier considérablement en fonction de sa qualité, le classement et la cuisine. En raison de sa fine cuisine, beaucoup de goût et de prix relativement pas cher, l'IRRI-6 est la variété la plus exportée de riz au Pakistan.

 

Origine
Pendjab et du Sind
Arôme
Aucun
Variétés disponible
Blanc, étuvé, Brown.
Longueur moyenne des grains (AGL)
6.5mm
\

<%else if lang="ch" then%> 有些IRRI-6长粒大米已成为一个巴基斯坦大米在国际市场上的商标。几十年来一直在种植,以IRRI-6大米的生产和铣床可以大大取决于其质量,等级和烹饪。由于其优良的烹饪,很有味道,价格相对便宜,国际水稻研究所-6是在巴基斯坦的大米出口最多的各种。

原产地
旁遮普省和信德
芳香
没有
品种
白,蒸谷米,布朗。
粮食平均长度(AGL)
6.5毫米。

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