salve a tutti, ho bisogno di una mano per un form email che deve esplicare la funazione segnala errori.

quindi un utente che naviga sul mio sito e scopre un errore sulla pagina pino.asp, clicca sul link segnala errore, compila il form (con 2 campi oggeetto e desscrizione)

e lo invia alla mia email.

dopo qualche capriola ho messo insieme il codice qui sotto. funziona tutto.
solo chemi serva la funzione HTTP_REFER.

qualcuno puo suggerermi il codice d'aggungere???

grazie!!

AUGURI!!!!!!

<%
' Crea l'oggetto CDOSYS
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")
' Proprietà di invio
with objMailConfig
' SMTP mail server
.Fields("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "commercialevirtuale.com"
' Autenticate
.Fields("http://schemas.microsoft.com/cdo/con...tpAuthenticate") = cdoBasic
' User
.Fields("http://schemas.microsoft.com/cdo/con...n/SendUserName") = "XXXXX@XXX.COM"
' PW
.Fields("http://schemas.microsoft.com/cdo/con...n/SendPassword") = "XXXX"
' SMTP port
.Fields("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
' CDO port
.Fields("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
.Fields.Update
end with
' Configurazione CDOSYS
Set objMail.Configuration = objMailConfig
with objMail

objMail.From="XXX@YYYYY.COM"
objMail.To="AAAAA@AAA.AA"
objMail.Subject=request.form("oggetto")
objMail.HTMLBody =request.form("descrizione")


' Invia l'email
.Send
end with
Set objMail = Nothing
Set objMailConfig = Nothing
response.redirect("successo.html")
%>