<% lang=request.QueryString("lang")
if lang="" then
id=7
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%>
سوبر
النواة البسمتي
هو الأرز
حبة طويلة
من جودة
عالية. غالبا
ما يشار
إليها باسم
"ملك الأرز،
ويزرع سوبر
النواة البسمتي
حصرا في
مناطق من
الهند وباكستان.
مع نظرة
جذابة، ونوعية
استثنائية
من الطبخ
ورائحة ساحق،
سوبر النواة
البسمتي
يحظى بشعبية
كبيرة في
شبه القارة،
وكذلك في
جميع أنحاء
العالم.
تفضيل سوبر
النواة البسمتي
بين الأسر
الهندية
والباكستانية
لا يعلى
عليه.
ولاية
البنجاب |
الأصل |
الحاضر |
رائحة |
الأبيض،
مسلوق،
براون |
متاح
أنواع |
7.2ملم |
متوسط
طول الحبوب
(عقل) |
<% else if lang="fr" then%>
Super
Kernel Basmati est un riz à grain long de haute
qualité. Souvent désigné comme
le «roi du riz», Super Kernel Basmati
est cultivé exclusivement dans les régions
de l'Inde et le Pakistan. Avec son look attrayant,
la qualité exceptionnelle de la cuisine et
un parfum écrasante, Super Kernel Basmati est
très populaire dans le sous-continent ainsi
que dans le monde entier. Préférence
pour Super Kernel Basmati parmi les ménages
indiens et pakistanais à nulle autre pareille.
Origine |
Pendjab |
Arôme |
Présent |
Variétés
disponible |
Blanc, étuvé,
marron |
Longueur
moyenne des grains (AGL) |
7.2mm |
<%else if lang="ch" then%>
超级内核巴斯马蒂是一个高品质的长粒大米。通常被称为“水稻王”,超级内核巴斯马蒂专门生长在印度和巴基斯坦地区。随着其吸引力的外观,优异的质量和烹饪压倒性的香味,超级内核巴斯马蒂是在南亚次大陆,以及世界各地广受欢迎的。超级内核巴斯马蒂偏好,其中包括印度和巴基斯坦的家庭是首屈一指的。
原产地 |
旁遮普 |
芳香 |
现状 |
品种 |
白,蒸谷米,布朗 |
粮食平均长度(AGL) |
7.2毫米。 |
<% 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
%>
|
|