Buongiorno a tutti,
ho realizzato questo form per il mio sito in flash, ma ha una piccola stranezza, funziona solo se SCRIVO L'indirizzo MAIL IN MAIUSCOLO sul sito invece in minuscolo non funziona, ecco il mio actionscript:
var path:MovieClip= this;
var sendObject:LoadVars;
var pagtosend:String="sendEmail.asp"
var nome_txt:TextField;
var cognome_txt:TextField;
var email_txt:TextField;
var indirizzo_txt:TextField;
var note_txt:TextField
// il movieclip usato come pulsante per inviare l'email
var send_mc:MovieClip;
var delete_mc:MovieClip;
send_mc.onRelease=sendEmail
delete_mc.onRelease= resetForm
function sendEmail()
{
var nnome= nome_txt.text
var ncognome= cognome_txt.text;
var nemail= email_txt.text;
var nnote= note_txt.text;
var ninidirizzo= indirizzo_txt.text;
sendObject= new LoadVars();
sendObject.nome= nnome
sendObject.cognome= ncognome
sendObject.inidirizzo= ninidirizzo
sendObject.email= nemail;
sendObject.note= nnote;
sendObject.onLoad= function()
{
if(this.error=="false")
{
path.wait.gotoAndStop("responseok");
}
else
{
path.wait.gotoAndStop("noresponse");
}
}
path.attachMovie("wait", "wait", 1)
path.wait._x = 795;
path.wait._y = 235;
// utilizzo il metodo sendAndLoad per inviare i dati e ricevere una risposta
sendObject.sendAndLoad(pagtosend,sendObject,"POST" )
}
function resetForm()
{
nome_txt.text="";
cognome_txt.text=""
email_txt.text="";
note_txt.text="";
indirizzo_txt.text=""
}
--------------------------------------------------
e questo è il mio file .asp
----------------------------------------------------
<%@ Language=VBScript %>
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
strTosend="mymail@mymail.com"
strOggetto="richiesta alla mailing list"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
dove ho sbagliato??![]()

Rispondi quotando