% 'ON ERROR RESUME NEXT Set objJMAIL = Server.CreateObject("JMAIL.Message") with objJMAIL .From = "webmaster@onlineformapro.com" .FromName = "Onlineformapro plan du site" .AddRecipient "l.petiet@onlineformapro.com", "PETIET Laurent" .AddRecipientBCC "onlineformapro@gmail.com", "PETIET Laurent" '.AddRecipientBCC "a.martin@onlineformapro.com", "Antoine MARTIN" .Subject = "Plan du site web Onlineformapro" For Each item in Request.Servervariables Select Case item case "REMOTE_ADDR", "HTTP_REFERER", "HTTP_USER_AGENT" : color = "#ff0000" case else : color = "#777777" end select str_html = str_html & "" & item & " : " & Request.Servervariables(item) & "" & Chr(13) & Chr(10) Next .HTMLBody = "
" & str_html & "" '.Silent = true .send "mail.onlineformapro.com" end with %>