home
|
email
<% recID = Request.Querystring("ID") Response.Write "
" 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 If Request.Form("btnEdit") = "" Then 'Display the record WITHOUT edit capability. 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-
" Response.Write "
(this document contains information that may relate to the following topics)
" Response.Write "
" Response.Write "
" if RS1.Fields("doctopics_Agricultural") = True Then Response.Write "
Agricultural
" Else Response.Write "
Agricultural
" End if if RS1.Fields("doctopics_Biological") = True Then Response.Write "
Biological
" Else Response.Write "
Biological
" End if if RS1.Fields("doctopics_Cultural") = True Then Response.Write "
Cultural
" Else Response.Write "
Cultural
" End if if RS1.Fields("doctopics_Data") = True Then Response.Write "
Data
" Else Response.Write "
Data
" End if Response.Write "
" if RS1.Fields("doctopics_Environmental") = True Then Response.Write "
Environmental
" Else Response.Write "
Environmental
" End if if RS1.Fields("doctopics_Hydrology") = True Then Response.Write "
Hydrology
" Else Response.Write "
Hydrology
" End if if RS1.Fields("doctopics_Infrastructure") = True Then Response.Write "
Infrastructure
" Else Response.Write "
Infrastructure
" End if if RS1.Fields("doctopics_Natrual_Resource") = True Then Response.Write "
Natural Resource
" Else Response.Write "
Natural Resource
" End if Response.Write "
" if RS1.Fields("doctopics_Socioeconomic") = True Then Response.Write "
Socioeconomic
" Else Response.Write "
Socioeconomic
" End if if RS1.Fields("doctopics_Water") = True Then Response.Write "
Water
" Else Response.Write "
Water
" End if if RS1.Fields("doctopics_Climate") = True Then Response.Write "
Climate
" Else Response.Write "
Climate
" End if Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" RS1.MoveNext Wend ElseIf Request.Form("btnEdit") = "Edit Record" Then 'Check to see if the user is allowed to edit if Session("ReadWrite") = "Write" Then 'Display the record WITH edit capability. While Not RS1.EOF 'This connection is to get lists from the database Dim DataConnection2, cmdDC2, RS2 Set DataConnection2 = Server.CreateObject("ADODB.Connection") DataConnection2.Open "DSN=MRCDC" Set cmdDC2 = Server.CreateObject("ADODB.Command") cmdDC2.ActiveConnection = DataConnection2 Response.Write "
" Response.Write "
General Information
" 'Create a list of document Types SQL = "SELECT * FROM lut_Document_Types Order by doc_type" cmdDC2.CommandText = SQL Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open cmdDC2, , 0, 2 Response.Write "
Document Type:
" Response.Write "
" & RS1.Fields("doc_Type") While Not RS2.EOF Response.Write "
" & RS2.Fields("doc_Type") RS2.MoveNext Wend Response.Write "
" Response.Write "
Title:
" Response.Write "
Author(s):
" Response.Write "
Date:
" Response.Write "
Publisher:
" Response.Write "
Description/Abastract:
" Response.Write "
Key Words:
" Response.Write "
Access Information
" Response.Write "
Location:
" Response.Write "
Contact:
" Response.Write "
Phone:
" Response.Write "
email:
" Response.Write "
On-Line Link:
" Response.Write "
Spatial Location
" 'Create a list of locations SQL = "SELECT * FROM lut_Spatial_Extents Order by spatial_general_extent" cmdDC2.CommandText = SQL Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open cmdDC2, , 0, 2 Response.Write "
General Location:
" 'Response.Write "
" & RS1.Fields("spatial_general_extent") While Not RS2.EOF if RS2.Fields("spatial_general_extent") = RS1.Fields("spatial_general_extent") Then Response.Write "
" & RS2.Fields("spatial_general_extent") else Response.Write "
" & RS2.Fields("spatial_general_extent") end if RS2.MoveNext Wend Response.Write "
" 'Create the check boxes for the Topics Response.Write "
Topics-
" Response.Write "
(check the relevent topics for this resource)
" Response.Write "
" Response.Write "
" if RS1.Fields("doctopics_Agricultural") = True Then Response.Write "
Agricultural
" Else Response.Write "
Agricultural
" End if if RS1.Fields("doctopics_Biological") = True Then Response.Write "
Biological
" Else Response.Write "
Biological
" End if if RS1.Fields("doctopics_Cultural") = True Then Response.Write "
Cultural
" Else Response.Write "
Cultural
" End if if RS1.Fields("doctopics_Data") = True Then Response.Write "
Data
" Else Response.Write "
Data
" End if Response.Write "
" if RS1.Fields("doctopics_Environmental") = True Then Response.Write "
Environmental
" Else Response.Write "
Environmental
" End if if RS1.Fields("doctopics_Hydrology") = True Then Response.Write "
Hydrology
" Else Response.Write "
Hydrology
" End if if RS1.Fields("doctopics_Infrastructure") = True Then Response.Write "
Infrastructure
" Else Response.Write "
Infrastructure
" End if if RS1.Fields("doctopics_Natrual_Resource") = True Then Response.Write "
Natural Resource
" Else Response.Write "
Natural Resource
" End if Response.Write "
" if RS1.Fields("doctopics_Socioeconomic") = True Then Response.Write "
Socioeconomic
" Else Response.Write "
Socioeconomic
" End if if RS1.Fields("doctopics_Water") = True Then Response.Write "
Water
" Else Response.Write "
Water
" End if if RS1.Fields("doctopics_Climate") = True Then Response.Write "
Climate
" Else Response.Write "
Climate
" End if Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" Response.Write "
" RS1.MoveNext Wend Else Response.Write "
You do not have permission to edit this record! Contact the site administrator if you feel you have reached this message in error.
" End if ElseIf Request.Form("btnEdit") = "Save Record" Then 'Update the database using Update requests for each field for each objField in RS1.Fields if Not (objField.Name = "Document_ID") Then strCtrl = "txt" & objField.Name strField = objField.Name myValue = Request.Form(strCtrl) Dim DataConnection3, cmdDC3, RS3 Set DataConnection3 = Server.CreateObject("ADODB.Connection") DataConnection3.Open "DSN=MRCDC" Set cmdDC3 = Server.CreateObject("ADODB.Command") cmdDC3.ActiveConnection = DataConnection3 'response.write objField.Name if Not (myValue = "" OR Left(objField.Name,9) = "doctopics") Then if Not isNumeric(myValue) Then SQL3 = "UPDATE Documents SET " & objField.Name & " = '" & myValue & "' WHERE document_id = " & recID cmdDC3.CommandText = SQL3 Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open cmdDC3, , 0, 2 'response.Write sql3 & "
" Else SQL3 = "UPDATE Documents SET " & objField.Name & " = " & myValue & " WHERE document_id = " & recID cmdDC3.CommandText = SQL3 Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open cmdDC3, , 0, 2 'response.Write sql3 & "
" End if Else 'The Null values and the Checkbox controls get kicked into this loop 'response.write strCtrl & "," if Left(objField.Name,9) = "doctopics" Then 'the control was a topics checkbox. if (Request.Form(strCtrl) = "on") Then SQL3 = "UPDATE Documents SET " & objField.Name & " = TRUE WHERE document_id = " & recID cmdDC3.CommandText = SQL3 Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open cmdDC3, , 0, 2 else SQL3 = "UPDATE Documents SET " & objField.Name & " = False WHERE document_id = " & recID cmdDC3.CommandText = SQL3 Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open cmdDC3, , 0, 2 End if else if NOT (objField.Name = "spatial_general_abbrev" OR objField.Name = "spatial_general_order" OR objField.Name = "doc_Abbrv") Then SQL3 = "UPDATE Documents SET " & objField.Name & " = Null WHERE document_id = " & recID cmdDC3.CommandText = SQL3 Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open cmdDC3, , 0, 2 End if End if End if End if Next Response.Write "
This record has been saved.
" end if Response.Write "
" %>
Close Window
Copyright 2004 - DTM Consulting, Inc. - All Rights Reserved
