merci bud

pour ceux qui veulent savoir comment
voila un exemple
<%
st1 = "<%a=request(""a"")"& vbcrlf
st1= st1 &"if a=""1"" then" & vbcrlf
st1 = st1 & "response.write ""a=1 quelle découverte""" & vbcrlf
st1 = st1 & "else" &vbcrlf
st1 = st1 & "Response.Write ""On dirait que a n'est pas égale à 1"""
st1 = st1 & "end if"&chr(37)&""&chr(62)&""& vbcrlf
Dim objFile,objTextWrite
Set objFile = CreateObject("Scripting.FileSystemObject")
Set objTextWrite = objFile.CreateTextFile(Server.MapPath("../root/test.asp"))
objTextWrite.write st1
objTextWrite.Close
Set objTextWrite = Nothing
Set objFile = Nothing
%>

-

-

-
