* Multicrop Passport Descriptors // *For more details about Passport Data see Advanced Search

<% 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 ConsultPassportDataCollecting" Set registros=conexion.Execute(sql) %>


<% total=0 Do While Not registros.EOF %> <% registros.MoveNext total= total+1 loop %>
Accession Number
SPECIES
SUBTAXA
Collector Full Name
Collecting Institute
Collecting Date
Origin Country
State
Province
Locality
Latitude
Longitude
Elevation
Biological status
Type of sample
Collecting source
<%=registros.Fields("ACCENUMB").Value %>
<%=registros.Fields("SPECIES").Value %>
<%=registros.Fields("SUBTAXA").Value %>
<%=registros.Fields("COLLECT1").Value %>
<%=registros.Fields("NAMEINST1").Value %>
<%=registros.Fields("COLLDATE").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("STATTYPE").Value %>
<%=registros.Fields("TYPEDESCRIP").Value %>
<%=registros.Fields("SOURCE").Value %>

There are <%=total%> accessions

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