v'là :
dans le fichier "Logs.cls.asp" :
<%
'########################################################
'############################ Logs Lib ##################
'########################################################
ClassLogs
OptionExplicit
DimTextFile
DimCurrentFile
FunctionCreateLogs(FileName)
DimFSO
SetFSO=Server.CreateObject("Scripting.FileSystemObject")
SetTextFile=FSO.CreateTextFile(FileName,True)
CurrentFile=FileName
SetFSO=Nothing
EndFunction
FunctionClearLogs()
DimFSO
SetFSO=Server.CreateObject("Scripting.FileSystemObject")
FSO.DeleteFileCurrentFile
CurrentFile=""
SetFSO=Nothing
EndFunction
FunctionAddLog(Text)
IfCurrentFile=""Then
Err.Raise"1001","AddLog(Text)","Un fichier doit être ouvert !"
Else
TextFile.WriteText
EndIf
EndFunction
FunctionCloseLogs()
TextFile.Close
CurrentFile=""
EndFunction
EndClass
%>
et tu l'appelle comme ça :
<!-- #include file="./Logs.cls.asp" -->
<%
DimMesLogs
SetMesLogs=NewLogs
'Là tu mes ton code
SetMesLogs=Nothing
%>