Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/06/2002, 15:15
Fiebrenet
 
Fecha de Ingreso: junio-2002
Mensajes: 7
Antigüedad: 21 años, 10 meses
Puntos: 0
CDONT Test para saber si tu servidor lo tienes

Este es un test que me ayudó a detectar si mi proveedor de espacio permitia el uso de cdont

el nombre del archivo debe ser

cdotest.asp

este es el codigo

<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 Completado</b>
<p>Recibiras el email pronto <% else %>
<td align="center">
<font face="arial">
<h3><b>Test Completado</b></h3>
<p>Tu webserver NO  soporta CDONTS.
<% end if %>
</font>
</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>Si tu servidor soporta CDO for NTS recibiras un email<br>
de confirmación minutos después de enviar el email
<pre>
Tu E-Mail: <input type="TEXT" name="UserEmail" size="25">
</pre>
<p><center><input type="SUBMIT" name="action" value="Test">
<input type="RESET" value="limpiar"></center></form></font>
</td>
</tr>
<% End If %>
</table>
</body>
</html>

ojala les sirva