
He probado con un ejemplo para mandar formularios a email con CDONTS y en localhost me va muy bien pero al subirlo al servidor gratuito(brinkster) da error ¿algien sabe que puede ser? ¿sabeis alguna otra forma de madar los formularios al emil sin tener que utilizar ningun programa?(ejemplo por favor) ¿algun servidor gratuito que soporte CDONTS? Pongo los ejemplos por si alguien los quiere.No se de donde me baje el ejemplo original si no lo nombraria.
Formulario.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulario</title>
</head>
<body>
<form action="envio.asp" method="post" name="form1">
<table width="60%" border="0" align="center">
<tr>
<td colspan="2"><div align="center">
<p>FORMULARIO</p>
<p> </p>
</div></td>
</tr>
<tr>
<td>NOMBRE</td>
<td><input name="nom" type="text" id="nom"></td>
</tr>
<tr>
<td>APELLIDOS</td>
<td><input name="ape" type="text" id="ape"></td>
</tr>
<tr>
<td>DIRECCION</td>
<td><input name="dir" type="text" id="dir"></td>
</tr>
<tr>
<td>C.P</td>
<td><input name="cp" type="text" id="cp"></td>
</tr>
<tr>
<td>PROVINCIA</td>
<td><input name="pro" type="text" id="pro"></td>
</tr>
<tr>
<td>TELEFONO</td>
<td><input name="tel" type="text" id="tel"></td>
</tr>
<tr>
<td>EMAIL</td>
<td><input name="ema" type="text" id="ema"></td>
</tr>
<tr>
<td>TITULO</td>
<td><input name="tit" type="text" id="tit"></td>
</tr>
<tr>
<td>PREGUNTA</td>
<td><textarea name="pre" cols="50" rows="6" id="pre"></textarea></td>
</tr>
<tr>
<td>RESPUESTA</td>
<td><textarea name="res" cols="50" rows="6" id="res"></textarea></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="Enviar">
</div></td>
</tr>
</table>
</form>
</body>
</html>
envio.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strAsunto
Dim strMensaje
Dim objCDOMail 'El objecto CDO
'Primero leemos los datos del formulario y los asignamos a las variables
strAsunto = Request.Form("tit")
strMensaje = Request.Form("pre")
'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
objCDOMail.From = "[email protected]"
objCDOMail.To = "[email protected]"
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje
'Existen otras propiedades del objeto
'Se puede enviar HTML, Adjuntar archivos, etc..
'Tambien se pueden modificar otros aspectos del mensaje
'como importancia, encabezados personalizados.......
'he aqui algunos de los mas importantes:
'objCDOMail.Cc = "[email protected];[email protected]" Notese que se esta enviando a mas de una persona
'objCDOMail.Bcc = "[email protected];[email protected]"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) Importancia
'objCDOMail.AttachFile "c:\path\archivo.txt", "Archivo.txt" Archivo Adjunto
'Finalmente enviamos el mensaje
objCDOMail.Send
'Tenemos que poner la propiedad Nothing al objeto ya que inmediatamente se vuelve invalido
'y libera la memoria del servidor
Set objCDOMail= Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<body>
<h1 align="center">enviado
</h1>
</body>
</html>