<%
If Request.ServerVariables("REQUEST_METHOD")="POST" Then
'ENVÍO DEL FORMULARIO DE CONTACTO
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
'.Item(sch & "smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = 25
.Item(sch & "smtpconnectiontimeout") = 40
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "sendusername") = "xparedes@veteransbasquetfcbarcelona.com"
.Item(sch & "sendpassword") = "021109"
.update
End With
Set MailObject = Server.CreateObject("CDO.Message")
Set MailObject.Configuration = cdoConfig
'MailObject.BodyFormat = 0
'MailObject.mailformat = 0
MailObject.From = "Dirección_Remitente"
MailObject.To = "xparedes@veteransbasquetfcbarcleona.com"
MailObject.Subject = "Es una prova"
Cuerpo = "Nombre: " & Request.Form("nombre") & "
"
Cuerpo = Cuerpo & "Email: " & Request.Form("email") & "
"
Cuerpo = Cuerpo & "Comentario: " & Request.Form("comentario") & "
"
MailObject.HTMLBody = Cuerpo
MailObject.Send
Set MailObject = Nothing
Set cdoConfig = Nothing
End If
%>