 |
 |
|
The table below lists all records in the database. Use the Search page to limit the output. |
|
|
<%
recID = Request.Querystring("ID")
Dim DataConnection1, cmdDC1, RecordSet1
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
SQL = "SELECT * FROM qry_Documents WHERE Document_ID = " & recID
cmdDC1.CommandText = SQL
Set RS1 = Server.CreateObject("ADODB.Recordset")
RS1.Open cmdDC1, , 0, 2
display = "yes"
'response.write sql
if display = "yes" Then
While Not RS1.EOF
Response.Write "General Information- " Response.Write " Document Type: " & RS1.Fields("doc_Type") & " " Response.Write " Title: " & RS1.Fields("doc_Title") & " " Response.Write " Author(s): " & RS1.Fields("doc_Authors") & " " Response.Write " Date: " & RS1.Fields("doc_Date") & " " Response.Write " Publisher: " & RS1.Fields("doc_Publisher") & " " Response.Write " Description/Abastract: " & RS1.Fields("doc_Description") & " " Response.Write " Key Words: " & RS1.Fields("doc_KeyWords") & " " Response.Write "Access Information- " Response.Write " Location: " & RS1.Fields("doc_Access_Location") & " " Response.Write " Contact: " & RS1.Fields("doc_access_contact") & " " Response.Write " Phone: " & RS1.Fields("doc_access_phone") & " " if RS1.Fields("doc_access_email") <> "" Then Response.Write " email: " & RS1.Fields("doc_access_email") & " " Else Response.Write " email: " End if if RS1.Fields("doc_access_online") <> "" Then Response.Write " On-Line Link:" & RS1.Fields("doc_access_online") & " " Else Response.Write " On-Line Link: " End if Response.Write "Spatial: " Response.Write " General Location: " & RS1.Fields("spatial_general_extent") & " " Response.Write "Topics-(this document contains information that may relate to the following topics) " Response.Write " Location: " & RS1.Fields("doctopics_Agricultural") & " " Response.Write " " RS1.MoveNext Wend end if %> Information Copyright 2004 - DTM Consulting, Inc. - All Rights Reserved |
|