sende bestilling - loadvars
Jeg skal sende en formular fra Flash til sendmail.asp på serveren. Det virker fint nok, men jeg vil gerne sende forskelligt variabelindhold fra min film med, men kan ikke finde ud af det.Her er scriptet i min Flash:
cbtSend.addEventListener("click", this.sendbestilling);
stop();
function sendbestilling() {
var sender:LoadVars = new LoadVars();
var responder:LoadVars = new LoadVars();
var scriptURL:String = "http://www.minserver.dk/ch30/sendmail.asp";
responder.onLoad = function(success){
if (success) {
_global.serverTime = this.timeDate;
_root.gotoAndStop("output");
} else {
_root.gotoAndStop("error");
}
};
sender.fromEmail = fromEmail_txt.text;
sender.fromName = fromName_txt.text;
sender.navn = fromName_txt.text;
sender.adresse = adresse_txt.text;
sender.postnr = postnr_txt.text;
sender.city = city_txt.text;
sender.tlf = tlf_txt.text;
sender.profil = _root.profil.text; //ikke en formularvariabel
sender.sendAndLoad(scriptURL, responder, "POST");
_root.gotoAndStop("wait");
}
this._lockroot = true;
Sådan ser min sendmail.asp ud:
<%
'
smtpServer = "smtp.mail.dk"
smtpPort = 25
' ---
dim smtpServer, smtpPort
Set message = CreateObject ("JMail.Message")
'message.ServerAddress = smtpServer & ":" & smtpPort
message.From = Request.Form("fromEmail")
message.FromName = Request.Form("fromName")
message.Subject = "Flash Movie Feedback"
message.AddRecipient "mig@mail.dk", "Shanne"
message.ContentType = "text/html" ' or you can put 'text/plain' for plain text emessage
message.ISOEncodeHeaders = false
message.ContentTransferEncoding = "8bit"
message.body = Request.Form("fromName") &" "& Request.Form("adresse") &" "& Request.Form("postnr") &" "& Request.Form("city") &" "& Request.Form("tlf") &" "& Request.Form("profil") //???
' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest
message.Priority = 3
' Add sender's IP address (not required, but useful for web-based emessage)
'message.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")
'Send the e-mail
message.Send(smtpServer & ":" & smtpPort)
Response.write "success=1&timeDate=" & Server.URLEncode(message.Date) & "&end=1"
set message = nothing
%>
