Edwin diaz
Hola ante todo quiero agradecerte tuve la necesidad de mostrar informacion entre un rango de fechas y gracias a lo adelantado que llevabas el asunto pude resolverlo asi que te doy el listado completo me funciona a la perfección y ademas valida las fechas antes de la operacion de busqueda:
<% @LCID = 1034 %>
<html>
<head>
<title>Buscar entre Fechas</title>
</head>
<body>
<p align="center"><img border="0" src="yo.gif"></p>
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("frase") %></strong></font></p>
<%
'realizamos la conexión de la Base de Datos
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("gacetas.mdb")
'definimos las variables de busqueda
Dim temp
'Creamos la sentencia SQL que extrae de la base las páginas que tienen la palabra que buscamos
'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras clave
'fecha1 = request("fechadesde")
'fecha2 = request("fechahasta")
'if isdate(request("fechadesde"))then
' dia1 = day(request("fechadesde"))
' mes1 = month(request("fechadesde"))
' ano1 = year(request("fechadesde"))
' else
' response.write("fecha invalida")
'end if
'if isdate(request("fechahasta"))then
' dia2 = day(request("fechahasta"))
' mes2 = month(request("fechahasta"))
' ano2 = year(request("fechahasta"))
' else
' response.write("fecha invalida")
'end if
'***********
if isdate(request("fechadesde")) AND isdate(request("fechahasta"))then
dia1 = day(request("fechadesde"))
mes1 = month(request("fechadesde"))
ano1 = year(request("fechadesde"))
dia2 = day(request("fechahasta"))
mes2 = month(request("fechahasta"))
ano2 = year(request("fechahasta"))
'***********
temp = "SELECT Tabla1.* FROM Tabla1 WHERE ((([Tabla1]![ano] & [Tabla1]![mes] & [Tabla1]![dia]) Between " & ano1 & mes1 & dia1 & " And " & ano2 & mes2 & dia2 & ")) Order By fecha"
tabla.Open temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("frase")%></strong> en la Base de Datos</font></p>
<%
Else
'aquí comienza el Script que nos muestra los resultados,
'si los encuentra en la tabla
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#FFFFFF">
<tr>
<td width="6%" bgcolor="#393863" height="19">
<p align="center"><strong><font face="Tahoma" size="2" color="#FFFFFF">Sesión Nº</font></strong>
</td>
<td width="10%" bgcolor="#393863" height="19">
<p align="center"><strong><font face="Tahoma" size="2" color="#FFFFFF">Fecha</font></strong></p>
</td>
<td width="45%" bgcolor="#393863" height="19">
<p align="center"><strong><font face="Tahoma" size="2" color="#FFFFFF">Punto</font></strong>
</td>
<td width="45%" bgcolor="#393863" height="19">
<p align="center"><strong><font face="Tahoma" size="2" color="#FFFFFF">Respuesta</font></strong>
</td>
<td width="8%" bgcolor="#393863" height="19">
<p align="center"><strong><font face="Tahoma" size="2" color="#FFFFFF">Ver Doc.</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="6%" bgcolor="#D6CBE7" height="51">
<p align="center"><font face="Arial" size="2"><%=Tabla.Fields("gaceta_num")%></font></td>
<td width="10%" bgcolor="#D6CBE7" height="51">
<p align="center"><font face="Arial" size="2"><%=Tabla.Fields("fecha")%></font></td>
<td width="45%" bgcolor="#D6CBE7" height="51">
<p align="left"><font face="Arial" size="2"><%=Tabla.Fields("contenido")%></font></td>
<td width="45%" bgcolor="#D6CBE7" height="51">
<p align="left"><font face="Arial" size="2"><%=Tabla.Fields("Descripcion")%></font></td>
<td width="8%" bgcolor="#D6CBE7" height="51">
<p align="center"><a href="<%=Tabla.Fields("url")%>"><font face="Arial" size="2">Ver Pdf</font></a>
</tr>
<%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
'************
else
response.write"<font face='Arial' size='4' color='#FF0000'>La fecha es invalida por favor verifiquela y vuelva a intentar [dd/mm/aaaa]</font>"
end if
'************
%>
</table>
</center></div>
<p align="center"><font face="Tahoma" size="2">Busquedas</font></p>
<p align="center"><font face="Tahoma" size="2">Web Master Edwin Diaz 2004 <img border="0" src="yo.gif"></font></p>
<p align="center"> </p>
</body>
</html>
