<%lang=request.QueryString("lang")%> Agri Commodities - 1121 Long Grain
<% lang=request.QueryString("lang") if lang="" then id=6 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%>

1121 البسمتي هو خارج فئة طويل الحبوب والأرز من نوعية ممتازة. الأصلي إلى الهند وباكستان، 1121 الأرز البسمتي مع رائحة فريدة من نوعها، والطبخ متفوقة وحبات نحيل طويل، هو بلا شك واحدة من أفضل حبات الأرز في العالم.

ولاية البنجاب
الأصل
الحاضر
رائحة
الأبيض، مسلوق، الأرز البني البخار
متاح أنواع
8.8 ملم
متوسط ​​طول الحبوب (عقل)


 

<% else if lang="fr" then%> 1121 Basmati est une catégorie de grain extra long de riz de qualité supérieure. Originaire de l'Inde et le Pakistan, 1121 riz basmati avec son arôme unique, la cuisson supérieure et à long grains minces, est sans aucun doute l'un des meilleurs grains de riz dans le monde.

Origine
Pendjab
Arôme
Présent
Variétés disponible
Blanc, étuvé, marron
Longueur moyenne des grains (AGL)
8.8 mm


:
:
<%else if lang="ch" then%> 1121巴斯马蒂是一个额外的长粒优质大米类。原产于印度和巴基斯坦,1121巴斯马蒂大米凭借其独特的香气,卓越的烹饪和细长的内核,无疑是最好的大米在世界上的谷物之一。

原产地
旁遮普
芳香
现状
品种
白,蒸谷米,布朗,蒸汽水稻
粮食平均长度(AGL)
8.8毫米。


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