<% function DelAttachmentsForGroup(ByRef pobjCon, ByVal pintGroupID, ByVal pblnInArchive) dim strSQL, objRs, strMessageTbl if not pblnInArchive and not Application(cLICENSE_ID & "cATTACHMENTS_IN_DB") then 'there are attachment files to delete on filesystem. 'delete the active messages attachments strMessageTbl = "forumMessages" strSQL = "SELECT forumAttachments.fileName, forumAttachments.ID FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID set objRs = OpenRS(pobjCon, strSQL) 'get the filenames to delete for the thread do while not objRs.EOF call Deletefile("attachments/" & objRs("ID") & "." & objRs("fileName")) objRs.movenext loop end if if not Application(cLICENSE_ID & "cATTACHMENTS_IN_DB") then 'there are attachment files to delete on filesystem. 'delete the archived messages attachments strMessageTbl = "forumArchivedMessages" strSQL = "SELECT forumAttachments.fileName, forumAttachments.ID FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID set objRs = OpenRS(pobjCon, strSQL) 'get the filenames to delete for the thread do while not objRs.EOF call Deletefile("attachments/" & objRs("ID") & "." & objRs("fileName")) objRs.movenext loop end if 'delete the DB entries call BeginTransaction(pobjCon, "DelAttachmentsForGroup") if not pblnInArchive then 'delete active messages attachments strMessageTbl = "forumMessages" if DB_TYPE="Access" then strSQL = "DELETE forumMessageAttachments" & strDelExt & ", forumAttachments" & strDelExt & " FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID pobjCon.execute(strSQL) else strSQL = "DELETE forumMessageAttachments" & strDelExt & " FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID pobjCon.execute(strSQL) end if end if 'delete archived messages attachments strMessageTbl = "forumArchivedMessages" if DB_TYPE="Access" then strSQL = "DELETE forumMessageAttachments" & strDelExt & ", forumAttachments" & strDelExt & " FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID pobjCon.execute(strSQL) else strSQL = "DELETE forumMessageAttachments" & strDelExt & " FROM (forumAttachments INNER JOIN forumMessageAttachments ON forumAttachments.ID = forumMessageAttachments.attachmentID) INNER JOIN " & strMessageTbl & " ON forumMessageAttachments.messageID = " & strMessageTbl & ".ID WHERE " & strMessageTbl & ".thegroup=" & pintGroupID pobjCon.execute(strSQL) end if call CommitTransaction(pobjCon, "DelAttachmentsForGroup") end function %>