codice:
<%
'contenuto del file=crea_txt.asp
'Variabile passata dal filmato Flash
'Utilizzando il Replace facciamo in modo di sostituire il singolo apice


color_data = Replace(request("color_data"),"'", "''")


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


color_data = Trim(color_data)

' Verifico se le variabili sono stringhe vuote


if Len(color_data)=0 then

          Response.Write("msg=Compilare Tutti i campi!&risp=no")

Else

		Dim objFSO, objTextFile

		'Creazione dell'istanza FileSystem
		Set objFSO = CreateObject("Scripting.FileSystemObject")

		Set objTextFile = objFSO.CreateTextFile(Server.MapPath("/public/colore.txt"))

		'Scrivo la prima riga di codice
		objTextFile.WriteLine "&color_data=" & color_data & "&" 
		

		'Chiudo il file e i vari oggetti/istanze

		objTextFile.Close
		Set objTextFile = Nothing
		Set objFSO = Nothing
    	
		Response.Write("msg=TXT Creato!&risp=si")
End If
%>
nel flash avrai


codice:
tuavar = new LoadVars()
tuavar.color_data= "0x003366"

tuavar.onLoad = verificaRisp;
	function verificaRisp(success) {
		
		if (tuavar.risp == "si") {
			testo="File TXT=OK"
		}else{
			testo="Trovati Errori"
		}
	}
	
tuavar.sendAndLoad("crea_txt.asp", tuavar, "POST");
Spero di non essermi dimenticato nulla