Buongiorno a tutti!
Premetto che questo è il mio primo ASP quindi vi prego, compatitemi se dico cavolate!
Ho collegato questo ASP a un sito fatto integralmente in Flash e mi serve per inviare a una mail la richiesta d'ordine per un singolo prodotto.
Il problema è che se invio l'ordine mi compare negli errori la scritta "UNDEFINED".
Spero che qualcuno mi sappia aiutare!
Per chiarire il tutto vi copio di seguito sia l'as del mio fla sia l'ASP!
Ho un simbolo filmato con all'interno tutti i miei campi di testo e i miei pulsanti "invio" e "reset".
Questo fotogramma ha as:
out = "" ;
out1 = "" ;
inputnome = "";
inputcogn = "";
inputemail = "";
inputcitta = "";
inputtesto = "";
I miei campi di testo ovviamente sono:
inputnome
inputcognome
inputemail
inputcitta
inputtesto
Il pelsante INVIO:
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 = inputcognome;
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 = "";
inputcognome = "";
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 (inputcognome==""){
out = "* Inserire un Cognome valido" ;
}
if (inputnome==""){
out = "* Inserire un Nome valido" ;
}
}
Questo è l'ASP:
<%
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 = "info@mionome.com"
invioDa = "mionome@mionome.com"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
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")
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
%>
Spero di aver scritto tutto quello che serve!
Se no chiedete pure!
Grazie in anticipo!
Rispondi quotando
