<%
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 ConsultANAS"
Set registros=conexion.Execute(sql)
%>
Accession Number
Other Numbers
Acquisition Date
GENUS
SPECIES
SUBTAXA
Donor Acronym
Donor Full Name
<%
total=0
Do While Not registros.EOF
%>
<%=registros.Fields("ACCENUMB").Value %>
<%=registros.Fields("OTHERNUM").Value %>
<%=registros.Fields("ACQDATE").Value %>
<%=registros.Fields("GENUS").Value %>
<%=registros.Fields("SPECIES").Value %>
<%=registros.Fields("SUBTAXA").Value %>
<%=registros.Fields("ACRONYM").Value %>
<%=registros.Fields("FULLNAME").Value %>
<%
registros.MoveNext
total= total+1
loop
%>
<%=total%> accessions
<%
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
Set con= Nothing
%>