<% country=request("country") Dim rs, dbInfo, total_datasets, total_countries total_countries = 0 total_datasets = 0 Set rs = Server.CreateObject ("ADODB.Recordset") 'dbInfo = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & "D:\Inetpub\Databases\Sic\sic.mdb" dbInfo = "DRIVER={SQL Server};SERVER=localhost;DATABASE=SIC;UID=overstdr;pwd=minedawgs" ' this query pulls out all of the country names and a count of how many datasets are for each country rs.Open "SELECT count(country_name) as datasets, country_name from data_list group by country_name order by country_name asc;", dbInfo Set type_list = Server.CreateObject ("ADODB.Recordset") ' this query pulls out all of the country names and a count of how many datasets are for each country type_list.Open "select type_name from type_list order by type_name asc;", dbInfo %> Spatial Information Clearinghouse - Search
Spatial Information Clearinghouse - Search
 

 

Search Map

Country:

Data Type:


The system currently searches <%=total_datasets%> datasets from <%=total_countries%> countries.