Mail En Asp

[dobled]

Dejando la pagina abierta en el explorer se puede hacer algo así

La Función

Código:

<script language=javascript>
function programar() {

	var hoy = new Date();
	var horactual = hoy.getHours();
	var minutoactual = hoy.getMinutes();
	var diactual = hoy.getDate();
		
	ah = eval(document.form1.hora.value);
	am = eval(document.form1.minuto.value);
	ad = eval(document.form1.dia.value);
	document.images['pelota'].src="ball.gif"

	if (ah > "23" || am > "59" || ad > "31") {
	alert ("Programación de envío incorrecta. La página se va a recargar.")
	actualizar()
	}

if (horactual == ah && minutoactual == am && diactual == ad) {
	document.form1.action="envio.asp"
    document.form1.submit()
	}
	else {
	window.setTimeout ("programar()", 9000)
	}
}
function actualizar () {
document.location.reload()
}
</script>

El Formulario

Código:

	  <table width="504" border="0" cellspacing="0" cellpadding="4">
	    <tr> 
	      <td width="40"><img src="ball0.gif" name="pelota"></td>
	      <td bgcolor="#CCCCCC" width="448"> 
		<div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
		  Programar env&iacute;o a las 
		  <input type="text" name="hora" size="1" maxlength="2" value="6" style="font-family: Verdana; font-size: 10px; color:#009999; font-weight: bold">
		  : 
		  <input type="text" name="minuto" size="1" maxlength="2" value="00" style="font-family: Verdana; font-size: 10px; color:#009999; font-weight: bold">
		  horas del pr&oacute;ximo d&iacute;a 
		  <input type="text" name="dia" size="1" maxlength="2" style="font-family: Verdana; font-size: 10px; color:#009999; font-weight: bold" value="1">
		  <input type="button" value="Activar" style="font-family: Verdana; font-size: 10px; color:#009999; font-weight: bold" onClick="programar()" <% If ok="ok" Then Response.Write("disabled") %> name="activar">
		  <br>
		  <input type="button" name="Submit" value="Desactivar envío programado" onClick="javascript:actualizar()" style="font-family: Verdana; font-size: 10px; color:#009999; font-weight: bold">
		  </font></b></div>
	      </td>
	    </tr>
	  </table>