<%
Call Main
'''''''''''''''''''''''''''''''''''''''''''''''
' Sub Main
'
' determine what action to take
'
'''''''''''''''''''''''''''''''''''''''''''''''
Sub Main
Dim cnDB ' As ADODB.Connection
CheckSecurity
Set cnDB = OpenDB()
Select Case Request("A")
Case "u"
UpdateSave cnDB
Case "c"
CreateSave cnDB
Case "d"
Delete cnDB
Case "ds"
DeleteSave cnDB
Case Else
Response.Write "Something's Wrong - Action = " & Request("A")
End Select
CloseDB cnDB
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub CreateSave
'
' This routine creates a new record in the database.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CreateSave(cnDB)
Dim rsData ' As ADODB.Recordset
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open "tblNotes", cnDB, adOpenDynamic, adLockOptimistic
rsData.AddNew
rsData("Name") = Request("dbtName")
rsData("Description") = Request("dbtText")
rsData("pkTopicID") = Request("dbtTopicID")
rsData("pkAccountID") = Request.Cookies("mynetwork")("AID")
If Request("dbtCode") = "1" Then
rsData("Code") = TRUE
Else
rsData("Code") = "0"
End If
rsData.Update
rsData.Close
CloseDB cnDB
Response.Redirect "notes.asp"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub UpdateSave
'
' This routine performs an update on the table for this
' particular item.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub UpdateSave(cnDB)
Dim rsData ' As ADODB.Recordset
Set rsData = Server.CreateObject("ADODB.Recordset")
rsData.Open "SELECT * FROM tblNotes WHERE pkNoteID = " _
& Request("NID"), cnDB, adOpenDynamic, adLockOptimistic
rsData("Name") = Request("dbtName")
rsData("Description") = Request("dbtText")
rsData("pkTopicID") = Request("dbtTopicID")
If Request("dbtCode") = "1" Then
rsData("Code") = TRUE
Else
rsData("Code") = "0"
End If
rsData.Update
rsData.Close
CloseDB cnDB
Response.Redirect "notes.asp"
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub Delete
'
' This routine confirms that the user wants to delete an
' item from the system.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Delete(cnDB)
Dim rsData ' As ADODB.Recordset
Set rsData = cnDB.Execute("SELECT Name FROM tblNotes " _
& "WHERE pkNoteID = " & Request("NID"))
%>
My Network - Topics
|
|
Delete a Note
<%
WL " Are you sure you want to delete '" _
& rsData("Name") & "'? "
WL "Yes " _
& "No "
WL ""
PrintFooter
rsData.Close
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
' Sub DeleteSave
'
' This routine performs the deletion of a record.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DeleteSave(cnDB)
cnDB.Execute "DELETE FROM tblNotes WHERE pkNoteID = " _
& Request("NID")
Response.Redirect "notes.asp"
End Sub
%> |