<% function DelArchivedMessagesFromDate(ByRef pobjCon, ByVal pintGroupID, ByVal pdtmFromDate) dim strSQL, intDelCount call BeginTransaction(pobjCon, "DelArchivedMessagesFromDate") call DelArchivedAttachmentsFromDate(pobjCon, pintGroupID, pdtmFromDate) strSQL = "DELETE FROM forumArchivedMessages WHERE timestamp<" & dtmForSQL(pdtmFromDate) & " AND forumArchivedMessages.thegroup=" & pintGroupID call pobjCon.execute(strSQL, intDelCount) ' delete messages call CommitTransaction(pobjCon, "DelArchivedMessagesFromDate") end function %>