Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 ASP, Access y fechas
 Foro Bloqueado  Tema Bloqueado


Autor Temas
carlos.saenz
Starting Member


9 Posts
Mensajes - 14 Nov 2006 :  17:20:20  Ver Perfil  Enviar Email
Hola:
He hecho un asp que consulta en una base de datos Access y funciona bastante bien hasta que la consulta contiene una fecha del tipo 01/10/2006, es decir cuando la fecha comienza por cero, entonces la consulta no devuelve nada. Os agradecería mucho que me ayudárais. Aquí está el codigo del asp. Gracias.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/agenda.asp" -->
<%
'Principio de funcion fecha

Function CFecha ( expr, formato )
'Devuelve una expresion de fecha válida
'* Si formato es True se tiene en cuenta como fecha hispana
'* Si formato es False se tiene en cuenta como fecha anglosajona
Dim iDia, iMes, iAno, iPos, iPos2

iPos = InStr(expr, "/")
iDia = Mid(expr, 1, iPos-1)
iPos2 = iPos+1
iPos = InStr(iPos2, expr, "/")
iMes = Mid(expr, iPos2, iPos-iPos2)
iAno = Mid(expr, iPos+1)
if formato then
'CFecha = iDia &amp; " del " &amp; iMes &amp; " de " &amp; iAno
CFecha = DateSerial ( iAno, iMes, iDia )
else
'CFecha = iMes &amp; " del " &amp; iDia &amp; " de " &amp; iAno
CFecha = DateSerial ( iAno, iDia, iMes)
end if

End Function 'CFecha

'Fin de funcion fecha

fecha_nueva = CFecha(Request.Form("cineclub"),true)
response.Write(fecha_nueva)
%><br>
<%
Dim cineclub__fecha_nueva
cineclub__fecha_nueva = "01/01/2006"
If (Request("fecha_nueva") <> "") Then
cineclub__fecha_nueva = Request("fecha_nueva")
End If
%>
<%
fecha_semana = DateAdd("d", 6, fecha_nueva)
response.Write(fecha_semana)
%>
<%
Dim cineclub
Dim cineclub_numRows

Set cineclub = Server.CreateObject("ADODB.Recordset")
cineclub.ActiveConnection = MM_agenda_STRING
cineclub.Source = "SELECT * FROM AGENDA WHERE CATEGORIA = 'CINECLUB' AND (FECHAINI >= #"& fecha_nueva &"# AND FECHAINI <= #"& fecha_semana &"#) ORDER BY LOCALIDAD ASC, FECHAINI"
cineclub.CursorType = 0
cineclub.CursorLocation = 2
cineclub.LockType = 1
cineclub.Open()

cineclub_numRows = 0
%>

Admin
Forum Admin

España
229 Posts
Posted - 15 Nov 2006 :  15:59:15  Ver perfil  Enviar e-mail
Prueba a poner la fecha en formato aaaammdd

De esta forma no da problemas al ser independiente de la configuracion del server
Inicio Pagina

carlos.saenz
Starting Member


9 Posts
Posted - 20 Nov 2006 :  10:56:10  Ver perfil  Enviar e-mail
Lo voy a intentar, gracias.Inicio Pagina
carlos.saenz
Starting Member


9 Posts
Posted - 20 Nov 2006 :  19:20:24  Ver perfil  Enviar e-mail
Gracias. Ya lo he solucionado con la función FechaBD.Inicio Pagina
   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar