<%@Language="VBScript"%> <%Response.Buffer=True%> New Page 1
Morphological Characters of Agricultural & Horticultural Crop Varieties
<% Dim strsql set conn1 = Server.CreateObject("Adodb.connection") conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("mchar.mdb"),"","" set rs = Server.CreateObject("Adodb.recordset") strsql="select * from mchar 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
Parents
Characters of Var/Hyb
 <%=rs.fields("crop")%>  <%=rs.fields("variety")%>  <%=rs.fields("Parents")%>  <%=rs.fields("character1")%>