Dopo aver inviato la mail attraverso il modulo flash e la pagina asp
mi torna ad una schermata bianca. Come faccio per dirgli che mi deve pulire form in flash e rimanere a quel filmato?
Ho provato a rimandarlo dalla pagina asp ma non funziona
Dopo aver inviato la mail attraverso il modulo flash e la pagina asp
mi torna ad una schermata bianca. Come faccio per dirgli che mi deve pulire form in flash e rimanere a quel filmato?
Ho provato a rimandarlo dalla pagina asp ma non funziona
www.maximapc.it
Metodo CDOSYS:
<%
DIM sBody, sFrom, x
'rilevo i campi del form
FOR x = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(x) = "" THEN
sBody = sBody & vbCrLf & Request.Form.Key(x) & " = " & Trim(Request.Form(x))
END IF
NEXT
' il from
IF Request.Form("email") = "" THEN
sFrom = "il tuo nome"
ELSE
sFrom = Request.Form("email")
END IF
' istanzio le costanti per invio
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.tuosito.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "tuamail@dominio.it"
.From = sFrom
.Sender = "tuamaildestinatario@dominio.it"
.Subject = "invio tramite cdosys"
.TextBody = "" & sBody & ""
.Send
End With
%>
<script>
document.location.replace('http://www.tuosito.com/confermainvio_e_grazie.asp');
</script>
Metodo CDONTS:
<%
Dim frmVal1
Set frmVal1 = New regexp
frmVal1.Pattern = "^[\w_-]+(\.[\w_-]+)*@[\w_-]+(\.[\w_-]+)*\.[a-z]{2,4}$"
frmVal1.Global = True
frmVal1.IgnoreCase = True
frmVal1_matchMail = frmVal1.Test(request("textfield"))
if frmVal1_matchMail then
Set link = CreateObject("CDONTS.Newmail")
link.From = request("textfield01")
link.To = "tuamail@dominio.it"
link.Subject = request("textfield02")
link.Body = request("textfield03")
link.Send
Set link = Nothing
Response.write ("sending=1")
else
Response.write ("sending=0")
end if
%>
All'swf ora imposti i textfields e le variabili di invio e controllo dati sul but invia messaggio:
loadVariablesNum("mail.asp", 0, "POST");
Chi vola vale chi non vola è un vile.. (Icaro)
ora mi appare sulla schermata bianca la scritta
sending=0
Devo mettere un controllo in flash alla variabile sending?
e come faccio a dirgli di pulire il forme e rimanere a quella
pagina in flash?
Grazie ancora :master:
www.maximapc.it