Ver Mensaje Individual
  #3 (permalink)  
Antiguo 13/01/2003, 00:55
bier2
 
Fecha de Ingreso: enero-2003
Mensajes: 48
Antigüedad: 22 años, 4 meses
Puntos: 0
Es un pequeñisimo programa en asp, envia un mensaje al email indicado.

Quien lo instale en un host asp favor de darme su mensaje, mi email es [email protected]

Ahora el mensaje lo trascribo. bye.


<html>
<head>
<title>CDONTS Test</title>
</head>
<body bgcolor="#ffffff">
<center>
<table width="500">

<%
If request.form("action")="Test" then
on error resume next
Set Mail = CreateObject("CDONTS.Newmail")
if err.number = 0 then
Mail.From = request.form("UserEmail")
Mail.To = request.form("UserEmail")
Mail.Subject = "Your mail works!"
Mail.Body = "CDO for NT is available on your server"
Mail.Send
Set Mail = Nothing
%>
<tr>
<td align="center">
<b>Test Completed</b>
<p>Your email should arrive shortly
<% else %>
<td align="center">
<font face="arial">
<h3>Test Completed</h3>
<p>Your webserver does not support CDONTS.
<% end if %>
</td>
</tr>

<% Else %>
<tr>
<td align="center">
<font face="times new roman">
<h2><i>CDO for NT Test</i></h2></font>
<font face="Arial">
<form action="cdotest.asp" method="POST">
<p>If your server supports CDO for NTS you will receive e-mail
<br>confirmation within a few minutes of submitting the form.
<pre>
Your E-Mail: <input type="TEXT" name="UserEmail" size="25">
</pre>
<p><center><input type="SUBMIT" name="action" value="Test">
<input type="RESET" value="Clear Form"></center></form></font>
</td>
</tr>
<% End If %>
</table>
</body>
</html>