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 :))))