<%Option Explicit%> <% Dim strLoggedIn If Session("Authenticated") = True Then strLoggedIn = True Else Response.Redirect "login.asp" End If %> <% Dim intSecID, intSecIDEdit, strFunction, strError, datdate, struser, strusername, strbody Dim blnprivate, blnpublic Dim strprivateChecked, strpublicChecked Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = strConnect objRS.CursorType = adOpenStatic strusername = Session("user") If Request.Form("AddNew") <> "True" OR Request.Form("Save") = "Don't Save" Then intSecID = Request.QueryString("SecID") If intSecID <> "" Then strFunction = Request.QueryString("Function") Select Case strFunction Case "" 'Do Nothing Case "edit" '-edit" intSecIDEdit = intSecID objRS.LockType = adLockReadonly objRS.Source = "SELECT * FROM member_messages WHERE ID Like " & intSecID objRS.Open struser = objRs("user") datdate = objRS("date") strbody = objRS("body") If objRS("private") = "True" Then blnprivate = True strprivateChecked = " checked" Else blnprivate = False End If If objRS("public") = "True" Then blnpublic = True strpublicChecked = " checked" Else blnpublic = False End If objRS.Close Case "delete" '-delete the record objRS.LockType = adLockOptimistic objRS.Source = "SELECT ID FROM member_messages WHERE ID Like " & intSecID objRS.Open objRS.Delete objRS.Close End Select End If Else intSecIDEdit = Request.Form("SecID") struser = Request.Form("user") datdate = Request.Form("date") strbody = Request.Form("body") If Request.Form("private") = "True" Then blnprivate = True strprivateChecked = " checked" Else blnprivate = False End If If Request.Form("public") = "True" Then blnpublic = True strpublicChecked = " checked" Else blnpublic = False End If If intSecIDEdit = "" Then intSecIDEdit = 0 End If objRS.LockType = adLockOptimistic objRS.Source = "SELECT * FROM member_messages WHERE ID Like " & intSecIDEdit objRS.Open If intSecIDEdit = 0 Then objRS.AddNew End If objRS("DateUpdated") = Now If datdate = "" Then strError = strError & "
You must enter a Date." Else objRS("date") = datdate End If If strbody = "" Then strError = strError & "
You must enter a Message." Else objRS("body") = strbody End If ' If struser = "" Then ' strError = strError & "
You must be logged in to post a message." ' Else objRs("user") = struser ' End If objRS("private") = blnprivate objRS("public") = blnpublic If strError = "" Then objRS.Update strusername = "" datdate = "" strbody = "" intSecIDEdit = "" strprivateChecked = "" strpublicChecked = "" Else objRS.CancelUpdate If intSecIDEdit = 0 Then strFunction = "new" Else strFunction = "edit" End If End If objRS.Close End If Set objRS = Nothing If strError <> "" Then strError = "
Error:" & strError & "
 " Else strError = " " End If %> imaginekb.com - Member Messages

Imagin Home Journal Members Pictures About CalendarInterests

 

<% If strFunction = "edit" Then Response.Write "Edit message" Else Response.Write "Add a new message" End If%>  here
User:

 <%=strusername%>

Date:

 <%Response.Write Now%> <%If strFunction = "edit" Then Response.Write "" Else Response.Write "" End If%>

Message:

HTML Help
Make Entry >Private checked>Public
  return to member home

<%=strError%> <%If strFunction = "edit" Then Response.Write "" Else Response.Write "" End If%>

<% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = strConnect objRS.CursorType = adOpenStatic objRS.LockType = adLockOptimistic objRS.Source = "SELECT * FROM member_messages Where User Like '" & Session("user") & "'" & "ORDER BY Date DESC" objRS.Open ' *** Create a script here that would post all entries a user made in order for them to edit there messages? If objRS.EOF Then Response.Write " You currently have no Member Message entries. " Else While Not objRS.EOF intSecID = objRS("ID") Response.Write "" & objRS("date") & "  " Response.Write "Edit | " & "Delete
" Response.Write replace(objRS("body"),vbCrLf," 
") & "

" objRS.MoveNext Wend End If objRS.Close Set objRS = Nothing %>