form in asp

[arcone]

salve a tutti questo è l'action del form che sto cercando di usare, qualcuno mi sa dare qualche suggerimento?



grazie .... aiutatemiiiiiiiii

<%

sMailServer = "127.0.0.1"
'creazione degli oggetti necessari
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields


With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With




sFrom = request.form("email")
sTo = "achilleoriani@hotmail.it"
sSubject = "che tipo di auto cerchi"
sBody = "Nome: " & request.form("nome") & "
Cognome: " & request.form("cognome") & "
Telefono: " & request.form("tel") & "
Cellulare: " & request.form("cell") & "
Indirizzo: " & request.form("indirizzo") & "<hr>
<div align='center'>Modello</div>
" & request.form("modello")



with objMail
set .Configuration = objconf
.From = sFrom
.To = sTo
.Subject = sSubject
.HTMLBody = sBody
.Send
End with

set objFields = Nothing
set objConf = Nothing
set objMail = Nothing

%>

[cavicchiandrea]

Originariamente inviato da arcone
salve a tutti questo è l'action del form che sto cercando di usare, qualcuno mi sa dare qualche suggerimento?

In merito a cosa? Cerca di essere il + esaustivo possibile specificando cosa hai cercato di fare e cosa vorresti fare

grazie .... aiutatemiiiiiiiii

<%

sMailServer = "127.0.0.1"

%>

Questo cosa dovrebbe significare?
Il server (dove è pubblicato il sito) supporta CDO.Message?

[Chris_ws]

Hai un errore nel punto evidenziato in grassetto:

"Nome: " & request.form("nome") & "
Cognome: " & request.form("cognome") & "
Telefono: " & request.form("tel") & "
Cellulare: " & request.form("cell") & "
Indirizzo: " & request.form("indirizzo") & "<hr>
<div align='center'>Modello</div>
" & request.form("modello") &""

Prova a vedere se ti funziona questo:

dim email
set email=Server.CreateObject("CDO.Message")

email.From = ""& request.form("mail") &""
email.To = "achilleoriani@hotmail.it"
email.Subject = "che tipo di auto cerchi"
email.HTMLBody = "Nome: " & request.form("nome") & "
Cognome: " & request.form "cognome") & "
Telefono: " & request.form("tel") & "
Cellulare: " & request.form("cell") & "
Indirizzo: " & request.form("indirizzo") & "<hr>
<div align='center'>Modello</div>
" & request.form("modello")"
email.Fields("urn:schemas:httpmail:importance").Va lue = 2
email.Fields.Update()
email.Send()

Set email = Nothing