problemas con las fechas

donni
24 de Julio del 2003
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 compilacin de Microsoft VBScript error '800a03ea'
Error de sintaxis
/proyecto/dia.asp, line 13
fecha=# & dia & mes & ano & #
------^

nethacker_23
24 de Julio del 2003
Prueba con esto
fecha_previa=dia&"/"&mes&"/"&ao
fecha_final=cdate(fecha_previa)

leo
24 de Julio del 2003
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 ao 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



jlmezquta
24 de Julio del 2003
Prueba esta funcin, vers 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

sonia
24 de Julio del 2003
Prueba con unirlo as:
fecha=dia & mes & ano