Visualizzazione dei risultati da 1 a 3 su 3

Discussione: redirect mail

  1. #1

    redirect mail

    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

  2. #2
    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)

  3. #3
    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

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.