|
||||||
|
<% 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 ConsultDonorCountriesGe" Set registros=conexion.Execute(sql) %>
COUNTRY |
Number of Accessions |
<%=registros.Fields("COUNTRY").Value %> |
<%=registros.Fields("CuentaDeGENUS").Value %> |
There are <%=total%> Donor Countries
<% registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing Set con= Nothing %>