<% lang=request.QueryString("lang")
if lang="" then
id=9
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("des")
else if lang="ar" then%>
غالبا
ما تكون
خاطئة لديها
شكل من أرز
نظرا لتشابهه
مع المضربين
إلى سوبر
النواة البسمتي
من حيث طول
من الحبوب،
ويتطلع،
سوبر فاين
هو في الواقع
غير البسمتي
طويل الحبوب
الأرز الأبيض.
ويمكن ملاحظة
الفرق في
نوعية الطعام،
والذي هو
أقل بكثير
من جودة
الطبخ الأصناف
البسمتي.
نادرا ما
تباع على
حدة، وتستخدم
عموما سوبر
الجميلة
لخلط ومزج
مع 1121 وسوبر
الأرز البسمتي
النواة.
ولاية
البنجاب |
الأصل |
لا شيء |
رائحة |
الأبيض،
مسلوق،
براون |
متاح
أنواع |
7.0ملم |
متوسط
طول الحبوب
(عقل) |
<% else if lang="fr" then%>
Souvent
confondu a une forme de riz basmati en raison de sa
ressemblance frappante avec Super Kernel Basmati en
termes de longueur des grains et l'air, Super Fine
est en fait un non-Basmati long grain de riz blanc.
La différence peut être remarqué
dans la qualité de la cuisine, qui est bien
en deçà de la qualité de cuisson
des variétés de riz Basmati. Rarement
vendu séparément, Super Fine est généralement
utilisé pour le mélange et le mélange
avec 1121 et Super Kernel riz Basmati.
Origine |
Pendjab |
Arôme |
Aucun |
Variétés
disponible |
Blanc |
Longueur
moyenne des grains (AGL) |
7.0mm |
<%else if lang="ch" then%>
经常被误认为有形式,由于其惊人的相似,其粒长的超级内核巴斯马蒂香米,看起来,超精细实际上是一个非-巴斯马蒂长粒白米。蒸煮品质的差异,可以发现,这远远低于巴斯马蒂品种蒸煮品质。很少单独出售,超精细通常用于混合和混合与1121和超级核心香米。
原产地 |
旁遮普 |
芳香 |
:没有 |
品种 |
白 |
粮食平均长度(AGL) |
7.0毫米。 |
<% 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
%>
|
|