<% Action = Request.Querystring("Action") 'This may or may not exist NextID = Request.Querystring("Next") 'This may or may not exist Session("UserAccess") = "admin" Call OpenDBConnect if Action = "Delete" then sDeleteFile = Request.Form("fDeleteFile") arrDeleteFile = split(sDeleteFile,",") pfx = " WHERE " strSQL = "" for i = 0 to ubound(arrDeleteFile) strSQL = strSQL & pfx & "MessageID = " & arrDeleteFile(i) pfx = " OR " next if pfx = " OR " then strSQL = "DELETE FROM tblMessageBoard " & strSQL Trace "sql",strSQL objConnect.Execute(strSQL) end if end if response.write FormatHeader("Message Board - Petites Annonces", "", "") if gblFormat <> "print" then ' response.write vbCrlf & "[ Add a message - Ajouter un message ]" response.write vbCrlf & "  " _ & "" end if if NextID = "" then sfx = "" else sfx = " AND MessageID < " & NextID end if strSQL = "SELECT * FROM tblMessageBoard WHERE EventID = " & SQLstr(gblSite) & sfx & " order by MessageID desc " Trace "sql",strSQL Set rs = objConnect.Execute(strSQL) response.write vbCrlf & "

" if Session("UserAccess") = "admin" then response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" end if blnLineOne = True intCount = 0 while (not rs.EOF and intCount < 101) intCount = intCount + 1 if intCount = 1 then DoHeadings End if response.write vbCrlf & "" response.write vbCrlf & " " response.write vbCrlf & " " if Session("UserAccess") = "admin" then response.write vbCrlf & " " end if response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" response.write vbCrlf & "" ' response.write vbCrlf & "" response.write vbCrlf & "" rs.movenext wend if intCount = 0 then Session("Msg") = "There are no messages" DoHeadings End if if Session("UserAccess") = "admin" then response.write vbCrlf & "" end if response.write vbCrlf & "
" & GenericButton("","Delete Messages","","") & "Delete?
" & rs("MsgSubject") & "" & fd(rs("MsgDate")) & "
From / de: " & rs("MsgFrom") & "
Country / Pays: " & rs("Country") & "
Email: " & rs("EmailID") & "
Message:
" & rs("MsgText") & "
 
" if not rs.eof _ and gblFormat <> "print" then response.write "<<< Previous Messages" end if response.write "

 

" Call CloseDbConnect response.write FormatFooter '----------------------------- Sub DoHeadings end sub %>