Ecrire dans un fichier sur le server

salut, en espérant être dans la bonne rubrique, voilà mon souci : il faudrait que je puisse écrire depuis flash, dans un fichier texte... la question a déjà du être posé mais c le flou pour moi... hm, il faudrait passer par ASP, et non PHP comme dans la plupart des exemples que j'ai pu zieuter sur le net...
Appeler un fichier asp dans flash ok, mais... pour le c ôté asp qui écrit, ça reste un mystère pour moi

Merci de vos lumières !

Salut,

si j'ai bien compris ta question, tu peux utiliser ceci :

set fso = Server.CreateObject ("Scripting.FileSystemObject")
set objFile = fso.CreateTextFile("c:\test.txt", True)

objFile.WriteLine("test ecriture ...")      

objFile.Close

Ca doit être ok, mais ça comme erreur (autre pb mais je pense savoir comment régler la question)

Microsoft VBScript runtime error '800a0046'

Permission denied

/ecrire.asp , line 4

Normal, IUSR_nomdetamachine doit avoir les droits d'écriture et de création de fichiers sur le répertoire où tu stoques ces fichiers.
_________________________________________________________________________
VB.NETis good ...VB6is better<

vi, je confirme...

euh... maintenant j'aimerais charger le contenu du fichier texte dans un champ. J'ai utilisé ce code là : http://www.aspfr.com/code.aspx?ID=8699
Ca marche pas trop mal mais quand il y a des espaces dans le fichier texte, il n'affiche que le premier mot... à noter qu'au terme du mot afficher (quand il n'y a pas d'espace), il rajoute un "\" genre "coucou\"... et kan il  y a deux lignes, genre :

coucou
blabla

il affiche "coucou"...

Bref, j'ai donc mis ça en haut de ma page asp :

<%
Dim nbre
Dim strTexte
Function Recuperation()
'------------ Creation de la reference pour le chemin d'acces
fichier= "zetest.txt"
repertoire="PlatDJ" & "\"
chemin_acces= Server.MapPath (repertoire & fichier)
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(chemin_acces) Then
Set Out=FSO.OpenTextFile(chemin_acces,1, FALSE)
strTexte=Out.ReadAll
Else
Response.Write("FSO n'existe pas ou fin de la boucle")
Response.Write(strTexte)
End If
End Function
Recuperation()
%>


et dans le champ texte 1 (il y aura 7 champs en tout), j'ai mis ça :

<td width="150" align="left" valign="middle"><div align="right"><span class="TexteRougeGras">Lundi</span></div></td>
<td width="455"><input name="PDJ01" type="text" id="PDJ01" maxlength="300" width="300" value=<%Response.Write(strTexte)%>/></td>

Si un expert en asp pouvait m'éclairer (ma lanterne est grillée de chez grillé and co. :D)

Merciiiiiiiii !

<%
Dim nbre

Function Recuperation() 'As Str
 '------------ Creation de la reference pour le chemin d'acces
 Dim out 'As Obj
 Dim fichier, repertoire 'As Str (les deux)
 fichier = "zetest.txt"
 repertoire = "PlatDJ" & "\"
 chemin_acces = Server.MapPath (repertoire & fichier)
 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 If Err Then
  %>
Impossible de créer l'objet FSO !
  <%
  Err.Clear
  Else
   If FSO.FileExists(chemin_acces) Then
    Set Out = FSO.OpenTextFile(chemin_acces,1, FALSE)
    strTexte = Out.ReadAll
    Else
     %>
Le fichier <%=repertoire%><%=fichier%> n'existe pas !
     <%
   End If
 End If
End Function
%>

<td width="150" align="left" valign="middle"><div align="right"><span class="TexteRougeGras">Lundi</span></div></td>
<td width="455"><input name="PDJ01" type="text" id="PDJ01" maxlength="300" width="300" value=<%=Recuperation%>/></td>
_________________________________________________________________________
VB.NETis good ...VB6is better<