<%@Language="VBScript"%> <%Response.Buffer=True%> New Page 1
Notified Varieties of Agricultural & Horticultural Crops
<% Dim strsql set conn1 = Server.CreateObject("Adodb.connection") conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("seed.mdb"),"","" set rs = Server.CreateObject("Adodb.recordset") strsql="select * from seed order by crop" rs.Open strsql,conn1,2,2 %> <% If Not rs.BOF Then %> <% do While rs.EOF=false %> <% rs.MoveNext %> <%loop end if %>
Crop
Variety Name
Second Name
Notification number
 <%=rs.fields("crop")%>  <%=rs.fields("varietyname")%>  <%=rs.fields("varietyname1")%>  <%=rs.fields("orderno")%>