<% 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%>

<% 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.

<%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" "%> " 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 %>