<% 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" "
ELSE
'Response.Write "Sorry, there are no records in our database."
END IF
%>
|
|