DATOS PERSONALES "
strBody = strBody & "Nombre: " & Request.Form("nom")
strBody = strBody & "
"
strBody = strBody & "Apellidos: " & Request.Form("cognom")
strBody = strBody & "
"
strBody = strBody & "Teléfono: " & Request.Form("telefon")
strBody = strBody & "
"
strBody = strBody & "e-Mail: " & Request.Form("email")
strBody = strBody & "
"
strBody = strBody & "
"
strBody = strBody & "Comentarios: " & Request.Form("comentari")
strBody = strBody & " "
strBody = strBody & ""
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
strReturnEmailAddress = strMyEmailAddress
End If
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("nom") & "<" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Subject = "Información"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2
objCDOMail.Send
Set objCDOMail = Nothing
%>
|
