Ciao, ho preso un form funzionante e l'ho adattato alle mie esigenze, sono riuscito a customizzare praticamente tutto ma ho un problema con i cambi obbligatori: ora è obbligatoria solo e-mail ma non capisco dove venga settata dato che vorrei capire come rendere anche altri campi obbligatori....
*********************************pagina 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 strCap
Dim strCitta
Dim strProvincia
Dim strNazione
Dim strOggetto
' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="artdirector@fastwebnet.it"
' l’oggetto del nostra email
strOggetto="Contatto dal sito"
' 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")
strCap=Request("cap")
strCitta=Request("citta")
strProvincia=Request("provincia")
' recupero il messaggio note
strNazione=Request("nazione")
' 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&"Nazione: "&strNazione&vbcrlf
strMessage=strMessage&"Citta: "&strCitta&vbcrlf
strMessage=strMessage&"Provincia: "&strProvincia&vbcrlf
strMessage=strMessage&"Cap: "&strCap&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
%>
*********************************action flash
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 citta_txt:TextField;
var cap_txt:TextField;
var provincia_txt:TextField;
var nazione_txt:TextField;
var indirizzo_txt:TextField;
var note_txt:TextField
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 ncap= cap_txt.text;
var ncitta= citta_txt.text;
var nnazione= nazione_txt.text;
var nprovincia= provincia_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.cap= ncap;
sendObject.citta= ncitta;
sendObject.provincia= nprovincia;
sendObject.enazione= nnazione;
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= 160
path.wait._y= 100;
}
function resetForm()
{
nome_txt.text="";
cognome_txt.text=""
email_txt.text="";
cap_txt.text=""
citta_txt.text=""
provincia_txt.text=""
nazione_txt.text=""
note_txt.text="";
indirizzo_txt.text=""
}
Rispondi quotando
