<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Session.LCID = 4108    ' pour le format européen
Sub Ecrire_fic(name, root, quoi)
	Dim Fichier, Ecrirefichier, pathfile
	Set Fichier = Server.CreateObject("Scripting.FileSystemObject")
	pathfile = Server.mapPath(root & "\" & name)
	Application.Lock
	Set Ecrirefichier = Fichier.OpenTextFile(pathfile, 8, TRUE)
	Ecrirefichier.Write(quoi)
	Application.Unlock
	set Ecrirefichier = nothing
	set Fichier = nothing
End sub
dim HW, IP, UA, ligne
HW = Request.ServerVariables("HTTP_HOST")    ' dans le cas ou vous avez plusieurs alias de sites pointant sur le même espace serveur
IP = Request.ServerVariables("REMOTE_ADDR")
UA = Request.ServerVariables("HTTP_USER_AGENT")
ligne = HW & ": " & IP & " - " & now() & " - " & UA & VbCrLf
Call Ecrire_fic("robots.log", ".", ligne)
Response.Write("User-agent: *" & VbCrLf)
Response.Write("Disallow: " & VbCrLf)
%>