Per maggiore precisione vi mostro quello che arriva nella mia casella di posta:

Data invio messaggio: domenica 25 novembre 2007. Ora: 15.17.45. Il Mittente ha utilizzato il browser: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)

reset_txt = [type Function]
fields_descriptions = ,t1,Nome e Cognome,Nome e Cognome:,t2,E-mail,Email:,t3,Telefono,Telefono:,t4,Messaggio,Messaggio:
i = 6
path = _level1
Nome e Cognome = seghsertg
E-mail = [email protected]
Telefono = dghdghds

Questo è invece il codice in flash (in un frame a parte):

var fields_descriptions= Array ("",
Array("t1", "Nome e Cognome", "Nome e Cognome:"),
Array("t2", "E-mail", "E-mail:"),
Array("t3", "Telefono", "Telefono:"),
Array("t4", "Messaggio", "Messaggio:")
);
function reset_txt(name,name2,value) {
path = eval(_target);
path[name2] = value;

this[name].onSetFocus = function() {
path = eval(_target);
if(path[name2] == value) { path[name2] = "";}
}

this[name].onKillFocus = function() {
path = eval(_target);
if(path[name2] == "") { path[name2] = value;}
}
}

for (i=1; i<=fields_descriptions.length; i++) {
reset_txt("t"+i, fields_descriptions*[1], fields_descriptions*[2]);
}

Questo invece il codice abbinato al tasto invia:

on (release) {
if (t1.text == "") {
info = "Inserisci il nome e/o cognome";
gotoAndPlay("s2");
} else if (t2.text.indexOf("@")<2) {
info = "Indirizzo email non corretto";
gotoAndPlay("s2");
} else if

(t2.text.lastIndexOf(".")<=(t2.text.indexOf("@")+2)) {
info = "Indirizzo email non corretto";
gotoAndPlay("s2");
} else if (t2.text.length<8) {
info = "Indirizzo email non corretto";
gotoAndPlay("s2");
} else if (t3.text == "") {
info = "Inserisci il numero di telefono";
gotoAndPlay("s2");
} else if (t4.text == "") {
info = "Inserisci il messaggio";
gotoAndPlay("s2");
} else {
// info = "messaggio spedito";
// gotoAndPlay("s1");
loadVariablesNum ("/formcdosys.asp", 0,

"POST");
gotoAndPlay("s1");

}

Mentre il codice nel formcdosys.asp è:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%

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

Session.LCID = 1040

mydate = Date()

invioA = "[email protected]"

invioDa = "[email protected]"

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

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = request.form("E-mail")
.Sender = .From
.Subject = "Nuovo Messaggio dal Sito " & nomeDominio
.TextBody = "Data invio messaggio: "&FormatDateTime(Now,1)&". Ora: "& time &". Il Mittente ha utilizzato il browser: " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>

Qualcuno potrebbe darmi una manina? Per favore :))))