problemas con las fechas
Hola a todos.
El problema que tengo es que tengo tres variables dia,mes y ano y quiero juntarlas para ser posible compararla con la fecha de la b.d.He probado con las # y tambien convertirlo con la funcion Cdate() y sigue sin querer funcionar,os paso el codigo por si os sirve de ayuda.
Gracias
//dia.asp
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim dia,mes,ano,fecha
dia=request.querystring("dia")
mes=request.querystring("mes")
ano=request.querystring("ano")
fecha=# & dia & mes & ano & #
Set conexion=Server.CreateObject("Adodb.Connection")
conexion.Open"asoagro"
sql="Select * from turnos"
Set tabla=conexion.execute(sql)
do while not tabla.eof
if tabla("fecha")=fecha then
response.write("hola")
else
response.write("intento fallido")
end if
tabla.movenext
loop
%>
</body>
</html>
Error de compilación de Microsoft VBScript error '800a03ea'
Error de sintaxis
/proyecto/dia.asp, line 13
fecha=# & dia & mes & ano & #
------^
El problema que tengo es que tengo tres variables dia,mes y ano y quiero juntarlas para ser posible compararla con la fecha de la b.d.He probado con las # y tambien convertirlo con la funcion Cdate() y sigue sin querer funcionar,os paso el codigo por si os sirve de ayuda.
Gracias
//dia.asp
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim dia,mes,ano,fecha
dia=request.querystring("dia")
mes=request.querystring("mes")
ano=request.querystring("ano")
fecha=# & dia & mes & ano & #
Set conexion=Server.CreateObject("Adodb.Connection")
conexion.Open"asoagro"
sql="Select * from turnos"
Set tabla=conexion.execute(sql)
do while not tabla.eof
if tabla("fecha")=fecha then
response.write("hola")
else
response.write("intento fallido")
end if
tabla.movenext
loop
%>
</body>
</html>
Error de compilación de Microsoft VBScript error '800a03ea'
Error de sintaxis
/proyecto/dia.asp, line 13
fecha=# & dia & mes & ano & #
------^
Prueba con esto
fecha_previa=dia&"/"&mes&"/"&año
fecha_final=cdate(fecha_previa)
fecha_previa=dia&"/"&mes&"/"&año
fecha_final=cdate(fecha_previa)
YO lo hago de esta forma
dia=request.querystring("dia")
mes=request.querystring("mes")
ano=request.querystring("ano")
fecha= ano & "/" & mes & "/" & dia
YA que dependera del servidor donde este puesta la web, asi no se crearan conflictos de interpretacion por el asunto de que el motor no sepa cual sea el dia o el año ya que en distintos paises existen distinto formatos ej: dd/mm/aaaa o mm/dd/aaaa y para estandarizar el tema de las fechas es recondable usar el formato aaaa/mm/dd
dia=request.querystring("dia")
mes=request.querystring("mes")
ano=request.querystring("ano")
fecha= ano & "/" & mes & "/" & dia
YA que dependera del servidor donde este puesta la web, asi no se crearan conflictos de interpretacion por el asunto de que el motor no sepa cual sea el dia o el año ya que en distintos paises existen distinto formatos ej: dd/mm/aaaa o mm/dd/aaaa y para estandarizar el tema de las fechas es recondable usar el formato aaaa/mm/dd
Prueba esta función, verás como te funciona:
Function ODBCDate(TheDate)
If IsNull(TheDate) OR NOT (TheDate <> "") Then
ODBCDate = "NULL"
Else
If IsDate(TheDate)=False Then
Response.Write "Hay un error en un campo de fecha, debe indicar la fecha en formato DD-MM-AA."
'Response.Write TheDate
Response.End
End If
TheMonth = lCompleta(CStr(Month(TheDate)),"0", 2)
TheDay = lCompleta(CStr(Day(TheDate)), "0", 2)
ODBCDate = "{d '" + CStr(Year(TheDate)) + "-" + TheMonth + "-" + TheDay + "'}"
End If
End Function
Function ODBCDate(TheDate)
If IsNull(TheDate) OR NOT (TheDate <> "") Then
ODBCDate = "NULL"
Else
If IsDate(TheDate)=False Then
Response.Write "Hay un error en un campo de fecha, debe indicar la fecha en formato DD-MM-AA."
'Response.Write TheDate
Response.End
End If
TheMonth = lCompleta(CStr(Month(TheDate)),"0", 2)
TheDay = lCompleta(CStr(Day(TheDate)), "0", 2)
ODBCDate = "{d '" + CStr(Year(TheDate)) + "-" + TheMonth + "-" + TheDay + "'}"
End If
End Function