E' giusto questo codice x invio mail?

[fly82]

Ciao ragazzi vi posto il codice che sto cercandodi usare per inviare i campi di un form tramite mail,la mail la invia ma mi arriva vuota non compaiono i campi come se non li prendesse,ho sbagliato qualcosa?

<%


Dim preventivo, nome, email, note, cellulare, citta, cognome, informazione
preventivo = request.Form("preventivo")
note = request.Form("note")
citta = request.Form("citta")
cellulare = request.Form("cellulare")
nome = request.Form("nome")
email = request.Form("email")
cognome= request.Form("cognome")
informazione = request.Form("informazione")

'send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost

Const cdoSendUsingPort = 2
StrSmartHost = "milano1.websolutions.it"

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' set the CDOSYS configuration fields to use port 25 on the SMTP server

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With


' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "quilamiamail"
.From = "quilamiamail"
.Subject = "Messaggio form sito"
.HTMLBody = strHTML
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


%>

[OcchioCrepato]

Non valorizzi la variabile strHTML che sarà poi il corpo della mail

Prova a scrivere questo e spedire la mail

dim strHTML
strHTML=""
strHTML=strHTML & preventivo & "
"
strHTML=strHTML & note & "
"
strHTML=strHTML & citta & "
"
strHTML=strHTML & cellulare & "
"
strHTML=strHTML & nome & "
"
strHTML=strHTML & email & "
"
strHTML=strHTML & cognome & "
"
strHTML=strHTML & informazione & "
"

Poi ovviamente formattala come meglio credi

[fly82]

dove lo devo mettere di preciso?

[OcchioCrepato]

<% 


Dim preventivo, nome, email, note, cellulare, citta, cognome, informazione
preventivo = request.Form("preventivo")
note = request.Form("note")
citta = request.Form("citta")
cellulare = request.Form("cellulare")
nome = request.Form("nome")
email = request.Form("email")
cognome= request.Form("cognome")
informazione = request.Form("informazione")

'send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost


strHTML=""
strHTML=strHTML & preventivo & "
"
strHTML=strHTML & note & "
"
strHTML=strHTML & citta & "
"
strHTML=strHTML & cellulare & "
"
strHTML=strHTML & nome & "
"
strHTML=strHTML & email & "
"
strHTML=strHTML & cognome & "
"
strHTML=strHTML & informazione & "
"


Const cdoSendUsingPort = 2
StrSmartHost = "milano1.websolutions.it"

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' set the CDOSYS configuration fields to use port 25 on the SMTP server

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With


' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "quilamiamail"
.From = "quilamiamail"
.Subject = "Messaggio form sito"
.HTMLBody = strHTML
.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing


%>