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