<% function DelAttachmentsForThread(objConnection, intThreadID, blnInArchive) dim strSQL, objRs, strMessageTbl if blnInArchive then strMessageTbl = "forumArchivedMessages" else strMessageTbl = "forumMessages" end if if not Application(cLICENSE_ID & "cATTACHMENTS_IN_DB") then 'there are attachment files to delete on filesystem. 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 & ".thread=" & intThreadID set objRs = OpenRS(objConnection, 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(objConnection, "DelAttachmentsForThread") 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 & ".thread=" & intThreadID objConnection.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 & ".thread=" & intThreadID objConnection.execute(strSQL) end if call CommitTransaction(objConnection, "DelAttachmentsForThread") end function %>