Missouri River Resource Database

home | email

The table below lists all records in the database. Use the Search page to limit the output.

<% 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 Documents" 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 Response.Write "" While Not RS1.EOF Response.Write "" For each objField in RS1.Fields if objField.value <> "" Then Response.Write "" else Response.Write "" end if Next Response.Write "" RS1.MoveNext Wend Response.Write "

" & objField.Name & "
" & objField.value & "	NA

" %>

Information
The login process provides secure access to the Missouri River Resource Database.