Discussione: Form mail register

Risultati da 1 a 5 di 5

  1. #1
    Nuovo Iscritto
    Data Registrazione Jun 2010
    Messaggi 3
    Rigraziamenti

    Post Form mail register

    Buongiorno a tutti, ho un problema con un form mail in asp su hosting business (windows) di register.
    Lo stesso form lo uso su aruba da molti anni e non ho mai avuto problemi.
    Praticamente dopo aver adattato il codice non funziona... e mi restituisce una pagina con errore HTTP500.
    Come si vedrà dal codice una volta inviato il form dovrebbe aprire la pagina "grazie.asp"

    allego il codice:
    grazie

    <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
    <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
    <%
    '============su specifiche MSDN================
    '* il corpo finale del messaggio contiene tutti i campi *
    '* inseriti nella pagina html, in pratica puoi mettere *
    '* tutti i campi che ti servono nel modulo di invio senza *
    '* fare altre configurazioni aggiuntive. *
    '================================================= ============
    DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
    '* voce da modificare con il proprio indirizzo email

    invioA = miamail
    '* voce da modificare con un indirizzo email che funga da mittente:
    '* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
    '* dato che cdosys supporta questa notifica

    '------------fine modifiche necessarie------------------
    nomeDominio = Request.ServerVariables("HTTP_HOST")
    indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
    modulo = Request.ServerVariables("HTTP_REFERER")
    browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
    '*rilevo i campi del form

    FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
    IF NOT Request.Form(numeroCampi) = "" THEN
    corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
    END IF
    NEXT
    '* creo gli oggetti cdosys sul server e li gestisco

    DIM iMsg, Flds, iConf
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds(cdoSendUsingMethod) = cdoSendUsingPort
    Flds(cdoSMTPServer) = "smtp.register.it"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
    Flds.Update
    With iMsg
    Set .Configuration = iConf
    .To = invioA
    .From = Request.Form("email")
    .From = Request.Form("Checkbox1")
    .Sender = invioDa
    .Subject = "Contatto dal dominio " & nomeDominio
    .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
    .Send
    End With
    %>
    <script>
    document.location.replace('grazie.asp');
    </script>
  2. #2
    Moderatore
    Data Registrazione Feb 2010
    Località Italy
    Messaggi 437
    Rigraziamenti
    strano, quindi non invia la mail, giusto?
    EUCIP - IT Administrator Certificate
    -----------
    http://www.caprioli.info/
  3. #3
    Nuovo Iscritto
    Data Registrazione Jun 2010
    Messaggi 3
    Rigraziamenti
    e si non la invia, ho inviato una richiesta a register che dice invece funzionante anche per altre mail che non siano associate al dominio... mi sembra strano... oggi farò altri test!
    grazie per la risposta
  4. #4
    Moderatore
    Data Registrazione Feb 2010
    Località Italy
    Messaggi 437
    Rigraziamenti
    Guarda, se devo essere sincero quello è stato il mio primo script che ho utilizzato e che ha funzionato sempre al primo colpo.
    Fammi sapere se hai risolto altrimenti ti posto qualche altro script interessante.
    EUCIP - IT Administrator Certificate
    -----------
    http://www.caprioli.info/
  5. #5
    Nuovo Iscritto
    Data Registrazione Jun 2010
    Messaggi 3
    Rigraziamenti

    Smile Risolto

    Eccomi.... grazie ho appena risolto....
    come?
    hotolto le seguenti righe di codice....

    Flds(cdoSendUsingMethod) = cdoSendUsingPort
    Flds(cdoSMTPServer) = "smtp.register.it"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
    Flds.Update

    meno male! grazie ancora!

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi