Ver Mensaje Individual
  #17 (permalink)  
Antiguo 20/04/2005, 02:40
Avatar de zacktagnan
zacktagnan
 
Fecha de Ingreso: abril-2005
Mensajes: 501
Antigüedad: 20 años, 1 mes
Puntos: 3
¡¡ zacktagnan al rescate !!

Bueno, V€ro, espero que está sea la definitiva.

Acabo de probar TODO el código que te pase y funciona TODO, saliendo el mensaje cuando se produce el ERROR de no rellenar el campo del formulario referente a la fecha ó cuando la fecha no tiene un formato adecuado.
(Fechas aceptada, por ejemplo: 12/4/5)
(Fechas no aceptada, por ejemplo: 12/34/5)

He añadido un campo 'nombre' para que veas, además, que funciona pasando más datos que sólo el de fecha.

Así que ahí va todo el código, de nuevo, tal y como lo he probado. Cópialo tal y como está en cada archivo, a través de la ventana de código. Incluyo las etiquetas de BODY.
Para la prueba, respeta los nombres de los archivos [formFecha.asp - finFecha.asp] y ten en cuenta las URLs a la hora de probarlo en el navegador. Después de que veas que va bien, podrás adaptarlo a la forma que quieras


Bueno, ahí va pues

== Código =================================================

formFecha.asp
--------------

<body>
<p><span style="font-weight:bold; text-decoration:underline;">Formulario de Comprobaci&oacute;n de Fecha</span><br>
<br>
Rellena los siguientes campos (el de fecha es obligatorio)
</p>
<form action="finFecha.asp" method="post" name="formFecha" id="formFecha">
Nombre:
<input name="nom" type="text" id="nom">
<br>
<br>
Fecha:
<input name="fecha" type="text" id="fecha">
<br>
<br>
<input type="submit" name="Submit" id="Submit" value="Enviar">
</form>
<%
if Request.QueryString("falloFecha")<>false then
%>
<p><span style="color:red; font-weight:bold;">El campo 'fecha' no fue rellenado &oacute; su valor es incorrecto.</span></p>
<%end if%>
</body>


--------------------------------------------------------------------------


finFecha.asp
------------

<body>
<%
Dim vnom,vfecha

vnom=Request.Form("nom")
vfecha=Request.Form("fecha")

if (vfecha="") OR (IsDate(vfecha)<>true) then
Response.Redirect("formFecha.asp?falloFecha=true") ' *** Ó LA URL QUE SEA

else
vfecha = FormatDateTime((Request.Form("fecha")), vbShortDate)
%>
Hola, <%=vnom%>.<br>
La fecha que insertaste es: <%=vfecha%><br>
<br>
<input name="otraFech" type="button" id="otraFech" value="Otra Fecha" onclick="javascript:history.go(-1);">
<%
' Y HACER LA SENTENCIA DEL INSERT DÓNDE EL VALOR A INSERTAR EN CAMPO FECHA SERÁ vfecha CON EL FORMATO dd/mm/aaaa

end if
%>
</body>

== Fin de Código =============================================


Pues eso es todo, sólo te queda crear los dos archivos [formFecha.asp y finFecha.asp] e insertar en cada uno de ellos el código correspondiente que te paso.

Si estás ejecuntando las páginas localmente, supongo que tendrás instalado algo como el IIS y visualizarás tu sitio web desde
http://localhost/miWeb/nombreArchivo.extension

Si tienes ya un dominio, supongo que antes de probar las cosas las subirás a dicho dominio y las verás desde, por ejemplo,
http://www.miWeb.com/nombreArchivo.extension

Bueno, espero que ya te salga TODO. Tiene que salir.

Espero que te salga el trabajo que te han pedido y no te despidan.

Aún así, tienes suerte de tener ese trabajo y sobre todo cobrar por ello

Yo, estoy terminando unas prácticas y SIN COBRAR NADA. Y no llegamos a más. A ver cuando cambia la cosa.

Pues nada, saludos varios. Agur.


================================================== ========
zacktagnan.