<% id=5 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") %>

1. Rice helps feed two-thirds of the world's population.

2. Rice has been feeding mankind for more than 5,000 years.

3. Rice is used in beer, dog food, baby food, breakfast cereals, snacks, frozen foods and sauces, and much more!

4. Rice can germinate and thrive in flooded fields.

5. Three of the world’s four most populous nations are rice-based societies—China, India, and Indonesia. Together, they have nearly 2.5 billion people.

6. In Japan, it is believed that soaking rice before cooking releases the life energy and gives the eater a more peaceful soul. To encourage Japanese children to eat all of their rice the grains are affectionately called little Buddhas.

7. The first documented account of rice was by a Chinese emperor about 2,800 BC.

8. In China a typical greeting, instead of "How are you?" is "Have you had your rice today?” A greeting to which one is expected always to reply, "Yes.”

9. Two Japanese car brands were named after rice: Toyota, meaning "Bountiful Rice Field," and Honda, meaning "Main Rice Field."

10. One seed of rice yields more than 3,000 grains. It is the highest yielding cereal grain and can grow in many kinds of environments and soils, which is why it is grown on every continent except Antarctica.

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