Ciao a tutti... vi devo chiedere un aiutino, credo piccolo! Vedrete tante parole ma in realtà il problema è stupido... solo che evidentemente io lo sono più di lui e non riesco a venirne a capo.
E' un semplice form per l'invio di una e-mail da un sito in flash e che sfrutta l'ASP come linguaggio server-side.
Vi allego una jpg del form e vi trascrivo i codici in AS e ASP che ho utilizzato.
Vi prego aiutatemi!
Costruito il forum con i rispettivi text fileds, ho creato 2 livelli con le actions.
Il 1°> actions ha questo codice:
System.useCodePage = true;
function sendMail() {
output = "un attimo...";
aspURL = "http://www.miosito.it//mail.asp ";
varMail = new LoadVars();
varMail._recipients = "info@miosito.it";
varMail._subject = "miosito form";
varMail._fromAddress = "miosito.it";
// colori della tabella HTML
varMail._leftcolor = "#ffcc33";
varMail._rightcolor = "#cccccc";
// bordo della tabella 0 = nessun bordo
varMail._tableborder = "1";
varMail._bordercolor = "#fefefe";
varMail.Nome = nome;
varMail.Email = email;
varMail.Indirizzo = address;
varMail.Comune = city;
varMail.Telefono = phone;
varMail.Messaggio = message;
varMail.Contatto = contattoScelto;
varMail.Mailing_List = option;
varMail._fieldOrder = ["Nome", "Email", "Indirizzo", "Comune", "Telefono", "Messaggio", "Contatto", "Mailing_List"];
varMail.onLoad = function() {
if (this.success) {
output = "Grazie, l'email è stata inviata";
nome = email=address=city=phone=message="";
} else {
output = "Impossibile inviare... riprovare più tardi ";
}
};
varMail.sendAndLoad(aspURL, varMail);
}
inviaBtn.onRelease = function() {
if (nome.length<=0 || message.length<=0 || email.length<=0) {
output = "I campi con * sono obbligatori";
} else {
sendMail();
}
};
Il 2° livello> more actions ha questo codice:
globalStyleFormat.face = 0xF4EFEA;
globalStyleFormat.highlight = 0x7A7168;
globalStyleFormat.highlight3D = 0xF4EFEA;
globalStyleFormat.shadow = 0xF4EFEA;
globalStyleFormat.darkshadow = 0x7A7168;
globalStyleFormat.arrow = 0x7A7168;
globalStyleFormat.selection = 0x7A7168;
globalStyleFormat.applyChanges();
r1.setData("Si");
r1.setLabel(r1.data);
r1.setGroupName("groups");
r2.setState(true);
r2.setData("No");
r2.setLabel(r2.data);
r2.setGroupName("groups");
option = r2.data;
for (i=0; i<groups.radioInstances.length; i++) {
groups.radioInstances[i].checked = new Object();
groups.radioInstances[i].checked.onClick = function(component) {
option = component.getData();
};
groups.radioInstances[i].setChangeHandler("onClick", groups.radioInstances[i].checked);
}
contatto = new Array("-------------", "telefono", "email", "posta");
contattoscelto = "nessuno";
for (i=0; i<contatto.length; i++) {
combo.addItem(contatto[i], contatto[i]);
}
combo.setSize(105);
combo.setChangeHandler("scegliContatto");
function scegliContatto() {
contattoScelto = combo.getValue();
trace(contattoScelto);
}
Il codice ASP è:
<%
fromAddress = (Request.Form("_fromAddress"))
subject = Request.Form("_subject")
leftcolor = Request.Form("_leftcolor")
rightcolor = Request.Form("_rightcolor")
tableborder = Request.Form("_tableborder")
bordercolor = Request.Form("_bordercolor")
recipients = Split(Request.Form("_recipients"), ",")
recipients = Join(recipients, ",")
fieldOrder = Split(Request.Form("_fieldOrder"), ",")
for each name in fieldOrder
if str <> "" then
str = str & ","
end if
str = str & name
next
fieldOrder = Split(str, ",")
body = "<table align=center><tr><td><font face=""Verdana"" size=1>" & subject & "</td></tr></table></font><table border= " & tableborder & " bordercolor =" & bordercolor & " cellpadding=2 cellspacing=0 width='100%'>" & vbCrLf
for each name in fieldOrder
body = body _
& "<tr valign=top>" _
& "<td bgcolor= " & leftcolor & " align=right width='25%'><font face=""Verdana"" size=1>" _
& name _
& "</font></td>" _
& "<td bgcolor=" & rightcolor & " width='75%'><font face=""Verdana"" size=1>" _
& Request.Form(name) _
& "</font></td>" _
& "" & vbCrLf
next
body = body & vbCrLf & "</tr></table><table align=center><tr><td><font face=""Verdana"" size=1><u>powered by Studios_N</u></td></tr></table></font>" & vbCrLf
str = SendMail()
function FormFieldList()
dim str, i, name
for i = 1 to Request.Form.Count
for each name in Request.Form
if Left(name, 1) <> "_" and name <> "onLoad" and Request.Form(name) is Request.Form(i) then
str = str & name
exit for
end if
next
next
FormFieldList = Split(str, ",")
end function
function SendMail()
dim mailObj
set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.From = fromAddress
mailObj.To = recipients
mailObj.Subject = subject
mailObj.Body = body
mailObj.Send
end function
response.write ("success=1")
%>
Bene dopo tutta sta roba... vi dico che il mio dubbio è sulla parte rossa , ma pur modificandola secondo altri criteri il risultato non cambia... e provato in locale, il messaggio che mi appare sempre è quello blu .
Aiutatemi vi prego!
Rispondi quotando