Gracias por la respuesta. Me sale este error:
---------------------------
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0408)
Carácter no válido
/estasenargentina/email.asp, línea 9
on error resume next
---------------------------
El código me quedó así:
Código HTML:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
on error resume next
enviaEmail = false
dim objCDO,objCDOConfig,objFields
Set objCDO = CreateObject("CDO.Message")
Set objCDOConfig = CreateObject("CDO.Configuration")
Set objFields = objCDOConfig.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi mail"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "la clave"
.Update
End With
With objCDO
.Configuration *= objCDOConfig
.To = para
if cc <> false then
.cc = cc
end if *
.From = desde
.Subject = asunto
.TextBody = mensaje
.Send
End With
Set objFields = Nothing
Set objCDO = Nothing
Set objCDOConfig = Nothing
if err.number = 0 then
enviaEmail = true
else
enviaEmail = err.description
end if
on error goto 0
end function
%>
<script language="JavaScript">function enviar(){Contacto.submit();}</script>
<form action="email.asp" method="post" name="Contacto">
<span>Nombre:</span><input name="nombre" type="text" maxlength="25">
<span>Email:</span><input name="email" type="text" maxlength="250">
<br>
<br>
<a href="<%enviaEmail([email protected],[email protected],[email protected],"gran asunto","Este es una prueba de correo","mail.midominio.com")%>">ENVIAR</a>
</form>
</body>
</html> Por favor, si sabes como solucionarlo, puedes modificar directamente el código??... porque n oentiendo mucho tus correcciones y vamos a estar una eternidad para ponernos de acuerdo jaajaj
Te cuento que en el botón ENVIAR, en el link le puse <% %> como para que sea ASP, al menos eso es lo que te entendí.
Saludos y muchísimas gracias.