siempre me da el error con todas las formas:
no coinciden los criterios de datos
perdon por la lata pero te coloco el codigo entero...
<% option explicit%>
<CENTER><H2><font color="#000080">Enviar a un Amigo</font></H2></CENTER>
<%
'Plantilla ASP por Carlos de la Orden Dijs
Dim Mail,mailsender, sDestino, sRemite, sBody, accion,addadress
sDestino=Trim(CStr(Request.Form("Para")) )
sRemite=Trim(CStr(Request.Form("De")))
sBody=CStr(Request.Form("Cuerpo"))
' Si alguno de los campos está vacío es que no han enviado el formulario
if (sDestino = "" or sRemite = "") then
Formulario
else
MandarMail
end if
'================================================= =======================================
Sub Formulario
%>
<TABLE BORDER="1" STYLE="background-color: #ff6600; color: blue" WIDTH="400" ALIGN="center">
<FORM NAME="Email" ACTION="enviar.asp" METHOD="post">
<TR>
<TD COLSPAN="2"><font color="#000080">Introduce un email para enviar un mail, y otro para que sea el remitente.
Si quieres, puedes añadir un comentario.</font></TD>
<TR>
<TD><B><font color="#000080">Para:</font></B></TD>
<TD><font color="#000080"><INPUT TYPE="text" NAME="Para"></font></TD>
<TR>
<TD><B><font color="#000080">De:</font></B></TD>
<TD><font color="#000080"><INPUT TYPE="text" NAME="De"></font></TD>
<TR>
<TD><B><font color="#000080">Comentario:</font></B></TD>
<TD><font color="#000080"><TEXTAREA NAME="Cuerpo" WRAP="virtual" ROWS="3" COLS="15"></TEXTAREA></font></TD>
<TR>
<TD COLSPAN="2"><CENTER>
<INPUT TYPE="submit" VALUE="Enviar Email!">
<INPUT TYPE="reset">
</CENTER>
</TD>
</FORM>
</TABLE>
<%
End Sub 'Formulario%>
<%
'================================================= =======================================
Sub MandarMail
dim con,sql,result,titulo,apunte,id
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("./bd/profesores.mdb"))
sql = "SELECT * FROM tabla2 WHERE id='" & Request.QueryString("id") & "'"
'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
response.write sql
titulo=result(titulo)
apunte=result(apunte)
'Creamos el objeto
set Mail=Server.CreateObject("Persits.MailSender& quot;)
'set mail=new mailsender
'Establecemos sus propiedas
mail.host="smtp.entelchile.net"
mail.port=25
Mail.addaddress sDestino
Mail.From=sRemite
'Esto lo añado yo
sBody=sBody & VbCrLf & VbCrLf & _
titulo
sBody=sBody & apunte
sBody=sBody & "Esta dirección de correo electrónico no queda guardada de ninguna forma. www.univercity.cl"
'Asignamos el cuerpo del mensaje
Mail.Body=sBody
'Y fuera!
Mail.Send
'Sacamos la basura
set Mail=nothing
Response.Write("El correo electrónico ha sido enviado correctamente a <i>"&sDestino&"</i>.")
End Sub 'MandarMail
%>
<!--FIN DEL SCRIPT -->