Originariamente inviato da effebiweb
...ma mi msa che nn è l'asp ma il flash.
ok da un pò di tempo lascio le discussioni a metà
sono un pò incasinato ma mi faccio perdonare
cmq ne approfitto di questi 20 min di libertà
vediamo come fare un form in flash

allora mettiamo tutto in un mc
quindi la prima cosa creiamo un mc

in esso ci mettiamo le caselle di input con le seguenti var (nn nomi istanza xchè altrimenti dovremmo cambiare qualcosina)
inputnome
inputcognome
inputmail
inputcitta
inputtesto

poi mettiamo sempre in questo clip due pulsanti
uno x l'invio un altro x il reset

allora sul tasto dell'invio mettiamo questo codice
codice:
on (release) {
	//------controllo dell'e-mail---------\\
	email1 = inputemail.lastIndexOf('@');
	if (email1>=2) {
		m1 = true;
	} else {
		m1 = false;
	}
	email2 = inputemail.lastIndexOf('.');
	if ((email2-email1)>=2) {
		m2 = true;
	} else {
		m2 = false;
	}
	email3 = inputemail.substr(email2, inputemail.length);
	if (email3.length>=3) {
		m3 = true;
	} else {
		m3 = false;
	}
	
		
	if (inputnome <> "" & inputcogn <> "" & inputcitta <> "" & inputtesto <> "" & m1 & m2 & m3  ) {
		myLoadVars = new LoadVars();
		myLoadVars.nome = inputnome;
		myLoadVars.cognome = inputcogn;
		myLoadVars.citta = inputcitta;
		myLoadVars.testo = inputtesto;
		myLoadVars.email = inputemail;
		trace(myLoadVars.cognome);
		myLoadVars.sendAndLoad("contatti.asp", myLoadVars, "POST");
		myLoadVars.onLoad = function(success){
					if(success){
						out1 = myLoadVars.out;
						inputnome = "";
						inputcogn = "";
						inputemail = "";
						inputcitta = "";
						inputtesto = "";
						out="";
						
						tempo = setInterval(function () { 
						
						out1="";
						clearInterval(tempo)},3000);
							
						
					} else {
						out1 = myLoadVars.out;
			}
		}
	}
	if (inputtesto==""){
		out = "* Inserire una richiesta valida" ;
	}
	if (inputcitta==""){
		out = "* Inserire una Città" ;
	}
	if(!m1|!m2|!m3){
	out="* Inserire una mail valida";
	
		
	}
	if (inputcogn==""){
		out = "* Inserire un Cognome valido" ;
	}
	if (inputnome==""){
		out = "* Inserire un Nome valido" ;
	}
			
}
poi sul frame del clip
inizializziamo le var associate alle caselle di input

out = "" ;
out1 = "" ;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";

poi sul tasto del reset mettiamo
codice:
on (release) {
	inputnome = "";
	inputcogn = "";
	inputemail = "";
	inputcitta = "";
	inputtesto = "";
	out = "" ;
}
qundi adesso ci serve la pag asp x l'invio delle var
che dovrebbe essere fatta in questo modo
dato che x linvio ho utilizzato il sendandload mi faccio restituire da asp un messaggio d'errore nel caso che la mail nn sia stata inviata
cmq la pag asp
codice:
<%

on error resume next

if err.number>0 then
					response.write "out=Si è verificato un errore nell'invio dei dati tramite posta elettronica.&"
				else
					response.write "out=Mail inoltrata correttamente.&"
				end if


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	
	
invioA =  "tuoindirizzomail@funzionante.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "tuoindirizzomail@funzionante.it"



nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"

<font face=verdana size=2>Nome : " & Request.Form("nome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("citta") & "
"
corpoMessaggio = corpoMessaggio & vbCrLf &"
Richiesta : " & Request.Form("testo") & "</font>
"


n =Request.Form("nome")
r =Request.Form("cognome")
	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort

Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Richiesta Informazioni dal sito " & nomeDominio
   .HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>
ok a questo punto dovrebbe fungere