This has to do with the private messages mod, but not really a problem, just me trying to make this program work better for me.
When a message is deleted from the inbox it uses this code....
strSqL = "UPDATE " & strMemberTablePrefix & "Private_Messages "
strSql = strSql & "SET " & strMemberTablePrefix & "Private_Messages.M_OUTBOX = 0 " & _
"WHERE M_ID IN (" & strRemoveList & ")"
my_Conn.Execute (strSql)
strRemoveList has the values set as "1, 45, 23, 43" or which ever message is deleted.
I changed the code so that when the message is deleted, it actually doesnt delete it but puts the date it was deleted. here is that code
strSqL = "UPDATE " & strMemberTablePrefix & "Private_Messages "
strSql = strSql & "SET " & strMemberTablePrefix & "Private_Messages.M_OUTBOX = 0 " & _
strSql = strSql & " , " & strMemberTablePrefix & "Private_Messages.M_SENDER_DELETE = '" & DateToStr(strForumTimeAdjust) & "' "
strSql = strSql & "WHERE M_ID IN (" & strRemoveList & ")"
my_Conn.Execute (strSql)
now what i am trying to do is run a loop thru every file that was added the date it was deleted to see if the other person has deleted it. if they have deleted it then it will completely delete it. can anyone help out with this code? if there was a way to get each message id individualy i could do it, but not sure when its in this string.
THANKS
Brad
Topic Locked
Posted - 05 April 2001 : 17:59:09
