Form mail register

Discussione in 'Classic ASP' iniziata da alfanet75, 3 Giugno 2010.

  1. alfanet75

    alfanet75 Nuovo Utente

    Registrato:
    3 Giugno 2010
    Messaggi:
    3
    Mi Piace Ricevuti:
    0
    Punteggio:
    0
    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. Paolo69

    Paolo69 Moderatore Membro dello Staff MOD

    Registrato:
    18 Febbraio 2010
    Messaggi:
    463
    Mi Piace Ricevuti:
    12
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    Administrator
    Località:
    Italy
    Home Page:
    strano, quindi non invia la mail, giusto?
     
  3. alfanet75

    alfanet75 Nuovo Utente

    Registrato:
    3 Giugno 2010
    Messaggi:
    3
    Mi Piace Ricevuti:
    0
    Punteggio:
    0
    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. Paolo69

    Paolo69 Moderatore Membro dello Staff MOD

    Registrato:
    18 Febbraio 2010
    Messaggi:
    463
    Mi Piace Ricevuti:
    12
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    Administrator
    Località:
    Italy
    Home Page:
    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.
     
  5. alfanet75

    alfanet75 Nuovo Utente

    Registrato:
    3 Giugno 2010
    Messaggi:
    3
    Mi Piace Ricevuti:
    0
    Punteggio:
    0
    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!
     
Sto caricando...

Condividi questa Pagina