Creazione TXT in ASP con Variabili da Flash

[rempox]

Buongiorno a tutti, vengo dal forum Flash e non conosco ASP.

Ho realizzato unaapplicazione Flash che mi permette di gestire i colori di una struttura Flash e del Testo di un'altra applicazione

Ho studiato come passare le variabili da Flash ad ASP ed ho trovato uno script per creare un file TXT ma non so come comporre il tutto.

in più sono su un Server 2000 di Aruba quindi suppongo che debba scrivere sulla cartella public per il problema dei permessi.

Questo è quello che ho realizzato.
Sareste così gentili da completarmi lo script ASP ??
Grazie Rempox

Questo quello che ho trovato

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "percorso", True
Set ts = fso.OpenTextFile("percorso", ForWriting)
ts.WriteLine "ciaooo"
ts.Close
set ts=Nothing
set fso = Nothing

questo quello che ho scritto

<%
'Variabili passate dal filmato Flash
'Utilizzando il Replace facciamo in modo di sostituire il singolo apice
'con il doppio apice per evitare che la stringa di inserimento dati 
‘ generi un'errore

Color_Data = Replace(request("Color_Data"),"'", "''")
Color_text = Replace(request("Color_text"),"'", "''")
Color_Off_R = Replace(request("Color_Off_R"),"'", "''")
Color_Off_G = Replace(request("Color_Off_G"),"'", "''")
Color_Off_B = Replace(request("Color_Off_B"),"'", "''")


' Elimino gli spazi bianchi all'inizio e alla fine della stringa


Color_Data=Trim(Color_Data)
Color_text=Trim(Color_Data)
Color_Off_R=Trim(Color_Off_R)
Color_Off_G=Trim(Color_Off_G)
Color_Off_B=Trim(Color_Off_B)

' Verifico se le variabili sono stringhe vuote


if Len(Color_Data)=0 Or Len(Color_text)=0  Or Len(Color_Off_R)=0 Or Len(Color_Off_G)=0 Or Len(Color_Off_B)=0  then

          Response.Write("att=Compilare Tutti i campi!&errore=si")

Else
  ‘ Qui vorreti creare il File – nel caso esista riscriverci sopra
  ‘ ottenendo un risultato del tipo
  ‘ parametri.txt
  ‘ &Color_Data=#FFCC00&
  ‘ &Color_Data=#FFFFFF&
  ‘ &Color_Off_R=0&
  ‘ &Color_Off_G=51&
  ‘ &Color_Off_B=20&

	
	Response.Write("att=ok&errore=no")
End If
%>

[caio192]

Dovresti completare (ad occhio, ma devi testare) con queste righe:

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "percorso", True
Set ts = fso.OpenTextFile("/public/parametri.txt", ForWriting, True)
ts.Writeline "&Color_Data=" & Color_Data
ts.Writeline "&Color_Text=" & Color_text
ts.Writeline "&Color_Off_R=" & Color_Off_R
ts.Writeline "&Color_Off_G=" & Color_Off_G
ts.Writeline "&Color_Off_B=" & Color_Off_B
ts.Close
set ts=Nothing
set fso = Nothing

[rempox]

Ok per il momento grazie. Lo testo e ti faccio sapere.

Quindi Auguri di Buon Natale !