<%@ Language=VBScript %> <%option explicit%> <%Response.Buffer=true%> <% Response.Buffer = true Response.Expires = -1 '10:51 'Vérifie si l'utilisateur provient de l'adresse en question. ' response.write "ici : " & Request.ServerVariables("HTTP_REFERER") ' response.end dim urlsource dim choix 'Pour tester l'application activer une des lignes suivantes 'urlsource = Request.ServerVariables("HTTP_REFERER") ' urlsource = Request.ServerVariables("server_name") response.write "adresse " & urlsource ' urlsource = "POLICE" ' urlsource = "EVALNOM" ' urlsource = "immeuble" ' urlsource = "TEST" ' urlsource = "http://devsite.evalweb.cum.qc.ca/depot.htm" Response.redirect "http://evalweb.cum.qc.ca/default.asp" %> horsservice

 

    

Veuillez patienter quelques secondes vous allez être redirigé.