<%lang=request.QueryString("lang")%> Agri Commodities-D-98 Basmati

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

D-98 الأرز البسمتي هو مواطن لمقاطعة السند في باكستان. على الرغم من عدم شعبية مثل نظيراتها البسمتي أخرى، D-98 البسمتي تشتهر طول من الحبوب، والطبخ الجميلة ورائحة عطرة.

السند
الأصل
الحاضر
رائحة
متاح أصناف
اللون الأبيض
6.8ملم
متوسط ​​طول الحبوب (عقل)

 

<% else if lang="fr" then%> D-98 du riz Basmati est originaire de la province du Sind au Pakistan. Bien que pas aussi populaire que ses homologues d'autres Basmati, D-98 Basmati est célèbre pour sa longueur des grains, la bonne cuisine et un arôme agréable.

Origine
Sind
Arôme
Présent
Variétés disponible
Blanc
Longueur moyenne des grains (AGL)
6.8mm

<%else if lang="ch" then%> D - 98香米是原产于巴基斯坦的信德省。虽然并不像其他巴斯马蒂流行的D-98巴斯马蒂是其粒长,精细烹饪,香气宜人而闻名。

原产地
信德
芳香
现状
品种
粮食平均长度(AGL)
6.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")%>