Problema script per invioemail CDOSYS???

[liolucas]

Sto usando questo script:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "email@miosito.it"

'* 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 = Request.Form("nome")

'------------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
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente sul sito Tek System Shop Online,  da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>

Funziona bene, però vorrei aggiungere all'email che mi arriva, anche il nome dell'azienda oltre al nome della persona che ha scritto. La parte di codice dove dice:

invioDa = Request.Form("nome")

ho provato a scrivere:
invioDa = Request.Form("nome") & vbCrLf & Request.form("azienda")

ma aggiungendo questo pezzo di codice l'email non mi arriva e non mi da nessun errore, togliendo la parte aggiunta ritorna a funzionare perfettamente.

Come faccio per visualizzare anche l'azienda sempre che il campo relativo venga compilato????

Ciao e Grazie

[liolucas]

Up!!!

[viki1967]

... quello è uno script molto limitato... ti consiglio di usare il seguente che mi pare ugualmente valido, più lineare e molto più personalizzabile:

sName = request.form("Autore")
sEmail = request.form("Email")
title = request.form("titolo")
message = pulisci(request.form("messaggio"))

data = date()
tempo = time()

messaggio = messaggio & VBcrlf & "<font face = verdana><font size = 1>"
messaggio = messaggio & VBcrlf & "[b]Comunicazione

"
messaggio = messaggio & VBcrlf & "Autore: <font color=red>" & sName & "</font>

"
messaggio = messaggio & VBcrlf & "Data invio:<font color=blue> " & data & "</font>
" 
messaggio = messaggio & VBcrlf & "Ora invio:<font color=blue> " & tempo & "</font>
" 
messaggio = messaggio & VBcrlf & "E-mail:  " & sEmail & "
"
messaggio = messaggio & VBcrlf & "Titolo: <font color=blue> " & title & "</font>
"
messaggio = messaggio & VBcrlf & "Messaggio: <font color=blue> " & message & "</font>
"


'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail@email.it"
miaMail.To = sEmail
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing

[liolucas]

Visto che ormai lo script in questione l'ho usato per molte applicazioni e sarebbe complicato ora modificare tutto, vorrei sapere come posso modificare il mio script per il mio scopo.

Ciao e Grazie

[viki1967]

"chi è causa del suo mal, pianga sè stesso..."

invioDa = Request.Form("nome") &";"& Request.form("azienda")