• User Attivo

    Siamo alle solite...

    l'offerta base di register.it non supporta ASP: Hosting personal

    Se hai comprato hosting personal... allora non puoi utilizzare ASP.


  • Bannato User

    Madai non mi esce l'ultima risposta ke mi hai dato...Come mai???


  • Bannato User

    Cosa devo accettar e x il trasferimento? Mi dai di nuovo l'indirizzo x il trasferiemtno su aruba??

    Grazie di tutto


  • User Attivo

    Ho dovuto spostare parte della discussione sul forum dedicato all'Hosting perchè in questa sezione cerchiamo di rimanere nell'ambito delle pagine ASP. Se usciamo fuori dall'argomento andiamo off-topic.

    I messaggi che non trovi più puoi trovarli in questa nuova discussione che ho aperto qui: http://www.giorgiotave.it/forum/hosting-housing-e-domini/16900-sono-su-register-hosting-personal-ma-ora-ho-bisogno-del-supporto-asp.html

    Ciao


  • User Attivo

    scusate se uso questo tread ma è attinente
    in questo pezzo di script asp
    <%@LANGUAGE = JScript%>
    <%
    // Recupero i dati dal modulo
    var nome = new String(Request.Form("nome"));
    var email = new String(Request.Form("email"));
    var messaggio = new String(Request.Form("messaggio"));

    // Effettuo un banale controllo sulla validità dei campi
    if (nome == "" || email == "" || messaggio == "") {
    Response.Write("ERRORE: Tutti i cami sono obbligatori");
    Response.End;
    }

    // Creo l'oggetto (o classe) CDONTS.NewMail
    var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
    OggettoCDONTS.From = email; // Mittente
    OggettoCDONTS.To = "[email protected]"; // Destinatario (inserisci la tua email)
    OggettoCDONTS.Subject = "Messaggio da " + nome; // Oggetto
    OggettoCDONTS.Body = messaggio; // Corpo
    OggettoCDONTS.Send(); // Invio la mail

    Response.Write("Email inviata con successo!");
    %>

    mi da errore nella linea 15 cioè
    var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");

    ora non capisco perchè mi da l'errore....l'unica cosa che mi viene in mente è che in questo script non ho modo di mettere l'smtp del mio server.....quindi l'unico errore che mi viene in mente è questo ma non so dove poterlo mettere l'smpt!
    🙂


  • User Attivo

    Leggiti il codice postato da Tifo-Napoli. Noterai che i metodi che utilizzate sono differenti, tu stai utilizzando CDONTS mentre lui sta utilizzando CDOSYS. Le nuove piattaforme hosting di solito non supportano più il (buon) vecchio cdonts. è probabile che sia questo il problema e che tu sia costretto ad utilizzare cdosys


  • User Attivo

    ok allora ho uno script cdosys.... ma non capisco una cosa

    ' Assegna all'oggetto le proprietà necessarie
    objMail.From = "[email protected]" ' Mittente
    objMail.To = Request.Form("email") ' Destinatario
    objMail.Subject = Request.Form("oggetto") ' Oggetto
    objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

    bene...dove dice mittente ok....il campo del form lo riempirà il mittente.....
    ma in destinatario dovrei inserirci la mia mail fissa.....nella riga
    objMail.To = Request.Form("email") ' Destinatario
    dove dovrei mettere la mia mail???

    p.s è possibile che form e script siano in una stessa pagina o devono risiedere in una pagina diversa?


  • User Attivo

    @La Maglia Rosanero said:

    ok allora ho uno script cdosys.... ma non capisco una cosa

    ' Assegna all'oggetto le proprietà necessarie
    objMail.From = "[email protected]" ' Mittente
    objMail.To = Request.Form("email") ' Destinatario
    objMail.Subject = Request.Form("oggetto") ' Oggetto
    objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

    bene...dove dice mittente ok....il campo del form lo riempirà il mittente.....
    ma in destinatario dovrei inserirci la mia mail fissa.....nella riga
    objMail.To = Request.Form("email") ' Destinatario
    dove dovrei mettere la mia mail???

    Certo:
    objMail.To = "[email protected]"

    @La Maglia Rosanero said:

    p.s è possibile che form e script siano in una stessa pagina o devono risiedere in una pagina diversa?
    Certo che è possibile.

    Potresti inserire nel form un campo hidden di nome "invia" ed assegnarli value=1. Poi fai così:

    
    <%
    If Request("invia") = "1" then
    
    'codice per invio email
    
    Else
    %>
    <form>
    ...
    </form>
    <%
    End if
    %>
    
    

  • User Attivo

    Quindi al posto di:
    objMail.To = Request.Form("email") ' Destinatario

    devo mettere:
    objMail.To = "[email protected]" ' Destinatario

    ????


  • User Attivo

    Si


  • User Attivo

    Nulla non va.....mi dovrebbe dare "Email inviata con Successo" ma non me lo da...clicco su invia e mi cancella i campi......ecco il codice intero:
    <%

    ' Controlla invio
    if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

    Dim objMail, objConfig

    ' Crea l'oggetto email
    Set objMail = Server.createObject("CDO.Message")

    ' Dimensiona l'oggetto configurazione
    Set objConfig = Server.createObject ("CDO.Configuration")

    ' Imposta le configurazioni
    With objConfig

    ' Server SMTP di uscita
    ' ATTENZIONE! Usare il proprio indirizzo di server email!
    ' E' FONDAMENTALE per l'invio della email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

    ' Porta SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    ' Porta CDO
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    ' Timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.update

    End With

    ' Assegna le configurazioni
    Set objMail.Configuration = objConfig

    ' Assegna all'oggetto le proprietà necessarie
    objMail.From = "[email protected]" ' Mittente
    objMail.To = "[email protected]" ' Destinatario
    objMail.Subject = Request.Form("oggetto") ' Oggetto
    objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

    ' Invia l'email
    objMail.Send()

    Set objMail = Nothing

    Response.Write("Email inviata correttamente " &_
    "all'indirizzo " &_
    Request.Form("email"))

    else %>
    <form name="formail" method="post" action="?invia=true">
    <table align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td>Email</td>
    <td>
    <p align="center"><input name="email" style="float: left" /></td>
    </tr>
    <tr>
    <td>Oggetto</td>
    <td>
    <p align="center"><input name="oggetto" style="float: left" /></td>
    </tr>
    <tr>
    <td height="103">Messaggio</td>
    <td height="103">
    <p align="center"><textarea name="messaggio" rows="11" cols="54"></textarea></td>
    </tr>
    <tr>
    <td colspan="2">
    <p align="center"> <input type="submit" value="Invia" name="submit" /> </td>
    </tr>
    </table>
    </form>
    <% end if %>


  • User Attivo

    non hai messo il campo hidden ma lascia perdere, vedo che cmq controlli l'invio col valore passato dal pulsante, basta quello. Quindi elimina *Request.QueryString("invia") = "true" AND *:

    if Request.Form("submit") = "invia" then


  • User Attivo

    ma in locale dovrebbe funzionare vero???
    oppure devo upparlo per forza???
    ho salvato questa pagina in asp e non in htm.....
    ora elimino e provo

    allora mi da errore linea 47 io ho messo questo :
    <%

    ' Crea l'oggetto email
    Set objMail = Server.createObject("CDO.Message")

    ' Dimensiona l'oggetto configurazione
    Set objConfig = Server.createObject ("CDO.Configuration")

    ho cancellato quella che dici tu.....e mi da errore nella linea 47 dicendomi come errore la parola ELSE!


  • User Attivo

    Posta tutto il codice + la descrizione copleta dell'errore


  • User Attivo

    io te lo posto tutto con la stringa che mi hai detto di eliminare.... :

    <%

    ' Controlla invio
    if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

    Dim objMail, objConfig

    ' Crea l'oggetto email
    Set objMail = Server.createObject("CDO.Message")

    ' Dimensiona l'oggetto configurazione
    Set objConfig = Server.createObject ("CDO.Configuration")

    ' Imposta le configurazioni
    With objConfig

    ' Server SMTP di uscita
    ' ATTENZIONE! Usare il proprio indirizzo di server email!
    ' E' FONDAMENTALE per l'invio della email
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

    ' Porta SMTP
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    ' Porta CDO
    .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    ' Timeout
    .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    .Fields.update

    End With

    ' Assegna le configurazioni
    Set objMail.Configuration = objConfig

    ' Assegna all'oggetto le proprietà necessarie
    objMail.From = "[email protected]" ' Mittente
    objMail.To = "[email protected]" ' Destinatario
    objMail.Subject = Request.Form("oggetto") ' Oggetto
    objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

    ' Invia l'email
    objMail.Send()

    Set objMail = Nothing

    Response.Write("Email inviata correttamente " &_
    "all'indirizzo " &_
    Request.Form("email"))

    else %>
    <form name="formail" method="post" action="?invia=true">
    <table align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td>Email</td>
    <td>
    <p align="center"><input name="email" style="float: left" /></td>
    </tr>
    <tr>
    <td>Oggetto</td>
    <td>
    <p align="center"><input name="oggetto" style="float: left" /></td>
    </tr>
    <tr>
    <td height="103">Messaggio</td>
    <td height="103">
    <p align="center"><textarea name="messaggio" rows="11" cols="54"></textarea></td>
    </tr>
    <tr>
    <td colspan="2">
    <p align="center"> <input type="submit" value="Invia" name="submit" /> </td>
    </tr>
    </table>
    </form>
    <% end if %>


    Errore :
    Tipo di errore:
    Errore di compilazione di Microsoft VBScript (0x800A03EA)
    Errore di sintassi
    /gestionerecord/contattami.asp, line 47
    else


  • User Attivo

    Ho provato questo tuo stesso codice e funziona

    Non c'è altro codice prima o dopo di questo?


  • User Attivo

    eh no......ti ho fatto il copia e incolla di tutta la pagina!
    l'hai salvata in asp o in htm??


  • User Attivo

    ovviamente .asp

    Forse la causa dell'errore è da cercare ne testo che immetti.

    Quale testo immetti nel form?


  • User Attivo

    immetto in email una email valida in oggetto un testo a caso ma non credo sia importante e nel messaggio un pugno nella tastiera ( così per dire)
    alla fine se c'è controllo dei campi l'unicopossibile è in email non negli altri no?


  • User Attivo

    Guarda.. ho solo ripulito un po' il tuo codice e funziona, eccolo:

    
    <%
    If Request.Form("submit") = "invia" then
    
        Dim objMail, objConfig
        Set objMail = Server.createObject("CDO.Message")
        Set objConfig = Server.createObject ("CDO.Configuration")
        
        With objConfig
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
            .Fields.update
        End With
    
        Set objMail.Configuration = objConfig
        objMail.From = "[email protected]" ' Mittente
        objMail.To = "[email protected]" ' Destinatario
        objMail.Subject = Request.Form("oggetto") ' Oggetto
        objMail.HTMLBody = Request.Form("messaggio") ' Messaggio
        objMail.Send()
        Set objMail = Nothing
        
        Response.Write("Email inviata correttamente all'indirizzo " & Request.Form("email"))
        
    Else
    %>
    <form name="formail" method="post" action="">
    <table align="center" cellpadding="3" cellspacing="1">
    <tr>
    <td>Email</td>
    <td>
    <p align="center"><input name="email" style="float: left" /></td>
    </tr>
    <tr>
    <td>Oggetto</td>
    <td>
    <p align="center"><input name="oggetto" style="float: left" /></td>
    </tr>
    <tr>
    <td height="103">Messaggio</td>
    <td height="103">
    <p align="center"><textarea name="messaggio" rows="11" cols="54"></textarea></td>
    </tr>
    <tr>
    <td colspan="2">
    <p align="center"> <input type="submit" value="invia" name="submit" /> </td>
    </tr>
    </table>
    </form>
    <%
    End if
    %>