* Meaning of Passport Descriptors // *For more details about Passport Data see Advanced Search //* Multicrop Passport Descriptors
<% Dim con,rs,sql,datos Set Conexion=Server.CreateObject("adodb.connection") Set Tabla=Server.CreateObject("adodb.recordset") Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/CrocusBank.mdb") sql= "SELECT * FROM ConsultAzerbaijan" Set registros=conexion.Execute(sql) %>


<% total=0 Do While Not registros.EOF %>

<% registros.MoveNext total= total+1 loop %>

Accession Number
Genus
Species
Other number
Donor Full Name
Country
State/Region
Province
Locality
Latitude
Longitude
Elevation
Sample
<%=registros.Fields("ACCENUMB").Value %>
<%=registros.Fields("GENUS").Value %>
<%=registros.Fields("SPECIES").Value %>
<%=registros.Fields("OTHERNUM").Value %>
<%=registros.Fields("FULLNAME").Value %>
<%=registros.Fields("COUNTRY").Value %>
<%=registros.Fields("STATE").Value %>
<%=registros.Fields("PROVINCE").Value %>
<%=registros.Fields("LOCALITY").Value %>
<%=registros.Fields("LATITUDE").Value %>
<%=registros.Fields("LONGITUDE").Value %>
<%=registros.Fields("ELEVATION").Value %>
<%=registros.Fields("TYPEDESCRIP").Value %>

There are <%=total%> Accessions

<% registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing Set con= Nothing %>