Missouri River Resource Database

home | email

The table and graph below list the number of records in the database grouped by Document Type.

<% 'Dim DataConnection1, cmdDC1, RecordSet1, DataConnection2, cmdDC2, RecordSet2 'Dim RecordToEdit, Updated, strUserName, strPassword '-- Create object and open database Set DataConnection1 = Server.CreateObject("ADODB.Connection") DataConnection1.Open "DSN=MRCDC" Set cmdDC1 = Server.CreateObject("ADODB.Command") cmdDC1.ActiveConnection = DataConnection1 '---------------------------------------- 'Write Login Info to DB '-- default SQL SQL = "SELECT * FROM qry_Count_byLocation" cmdDC1.CommandText = SQL Set RS1 = Server.CreateObject("ADODB.Recordset") RS1.Open cmdDC1, , 0, 2 Response.Write "" Response.Write "" 'For each objField in RS1.Fields ' Response.Write "" 'Next 'Write the column headers Response.Write "" Response.Write "" While Not RS1.EOF Response.Write "" For each objField in RS1.Fields if objField.name <> "spatial_general_order" Then if objField.value <> "" Then Response.Write "" else Response.Write "" end if End if Next Response.Write "" RS1.MoveNext Wend Response.Write "

" & objField.Name & "	General Location	Code	Count
" & objField.value & "	NA

" %>

<% Response.Write "

" 'Graph the data Response.Write "

" Response.Write "

" %>

Information
The data on this page has been created dynamically from the information in the database. As additional information is added to the database, the table and graph on this page will automatically be updated to reflect the new data.