European Commission
 
BANCO DE GERMOPLASMA VEGETAL DE CUENCA (GERMPLASM BANK OF CUENCA)
 
BGV-CU (ESP124).Number of Accessions by Collectors

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


<% total=0 Do While Not registros.EOF %> <% registros.MoveNext total= total+1 loop %>
Collector (s) Name (s)
Institute ISO Code
Institute Full Name
Number of Accessions
<%=registros.Fields("COLLECT1").Value %>
<%=registros.Fields("INSTCODE1").Value %>
<%=registros.Fields("NAMEINST1").Value %>
<%=registros.Fields("CuentaDeGenus").Value %>

There are <%=total%> Collectors

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