Visualizzazione dei risultati da 1 a 3 su 3

Discussione: form mail da asp

  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2003
    Messaggi
    583

    form mail da asp

    salve

    ho questo script






    <%
    '============Linkbruttocane 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 = "info@elquartiere.com"

    '* 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

    invioDa = "info@elquartiere.com"

    '------------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.aruba.it"
    Flds(cdoSMTPServerPort) = 25
    Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
    Flds.Update


    With iMsg
    Set .Configuration = iConf
    .To = invioA
    .From = Request.Form("email")
    .Sender = invioDa
    .Subject = "Contatto dal dominio " & nomeDominio
    .TextBody = corpoMessaggio & vbCrLf & Request.Form("messaggio1")
    .Send
    End With
    %>



    <script>
    document.location.replace('storicointerl.asp?cod=< %=Request.Querystring("cod")%>');
    </script>


    l'email che ricevero è questa


    datainterlconf = on
    codice = 213
    data = 23/03/2011
    username = 002
    testointerl1 =
    e



    testointerl2 =
    e










    testointerl3 =
    e









    tutto funziona regolarmente

    questo sistema come avete visto utilizza il sistema CODSYS di inviare una email.

    Le email vengono inviate con un semplice messaggio di testo .

    Per formattarle e quindi inserire una carta intestata esempio :


    LOGO IN ALTO


    E senza le etichette dei campi cioè

    PAOLO ROSSI SCRIVE ALLE 19.00 IL 21.03.11

    EGR.SIG...................E VIA DICENDO





    Come puo essere formattato il ttutto qualche aiuto ....


    Saluti.

  2. #2
    Utente di HTML.it
    Registrato dal
    Jul 2003
    Messaggi
    583
    sto provando cosi ho modificato cosi



    With iMsg
    Set .Configuration = iConf
    .To = invioA
    .From = Request.Form("email")
    .Sender = invioDa
    .Subject = "Contatto dal dominio " & nomeDominio
    .HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel modulo
    presente alla pagina da utente con indirizzo IP
    browser e sistema operativo

    "
    .Send
    End With
    %>



    ma mi da


    Microsoft VBScript compilation error '800a0409'

    Unterminated string constant

    /cons1040/interl-process.asp, line 86

    .HTMLBody = "<font face=verdana size=2>Questi i dati inseriti nel modulo
    ------------------------------------------------------------------------^

  3. #3
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    la variabile .HTMLBody deve essere scritta consecutivamente se dai un ritorno a capo non trova le virgolette " di chiusura va in errore Unterminated string constant
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

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.