<% Application("x") = 0 dim strLogonUser, encodedData, usr, pwd, MyCon, FindList strLogonUser = Request.ServerVariables("HTTP_AUTHORIZATION") If (strLogonUser = "") and (application("x") = 0) Then application("x") = 1 ' Response.Buffer=true Response.Status = "401 Unauthorized" Response.AddHeader "WWW-Authenticate", "Basic realm=""www.osinet.fr""" Response.Write "

Coucou

"
  Response.Write Request.ServerVariables ("ALL_HTTP")
  %>Boucler<%
  Response.End
else
  Response.Write "OK, vous avez envoyé: 
" & Request.serverVariables ("ALL_HTTP")
  end if
  %>
  Boucler