<% 'if request.Form()<> "" then mensaje=trim(request.Form("txtmensaje")) email=trim(request.Form("txtmail")) 'if txtmensaje="" or txtmail="" then 'response.Write"Complete los datos" 'else Set Mail = Server.CreateObject ("CDONTS.Newmail") Mail.From = email Mail.To = "info@losvinitos.com.ar,pablocadel@losvinitos.com.ar" Mail.Subject = "Contacto web" Mail.Body = mensaje Mail.Send Set Mail = Nothing 'response.write " El mensaje fue enviado" 'end if 'end if %>