Collecting Passport Data

BANCO DE GERMOPLASMA VEGETAL DE CUENCA (GERMPLASM BANK OF CUENCA)

BGV-CU (ESP124). Passport Data. Collecting Place (Genus Crocus)

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

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