Hola,
cuando quiero buscar en la base de datos registros de acuerdo a la fecha que se ingresa por formulario (de manera dia, mes y año en combos independientes) ocurre un error interno en el servidor que hasta hoy no puedo solucionar, por favor!!! si alguien me puede ayudar, gracias
Este es el codigo:
<% Dim rS, dd,mm,aa,dest,fecha
dd=CInt((Request.Form("dia")).value)
mm=CInt((Request.Form("mes")).value)
aa=CInt((Request.Form("ano")).value)
dest=CInt((Request.Form("iddestino")).value)
fecha = dd & "/" & mm &"/" & aa
fecha = CDate(fecha,"dd/mm/yyyy")
Set rS = Server.CreateObject("ADODB.Recordset")
rS.ActiveConnection = MM_db_STRING
rS.Source ="SELECT registro.numero, registro.fecha, cliente.ncliente, destino.ndestino, registro.solicitud FROM registro,cliente,destino "
rS.Source = rS.Source & " WHERE registro.iddestino = '" & dest & "' AND registro.iddestino = destino.iddestino "
rS.Source = rS.Source & " AND registro.idcliente = cliente.idcliente "
rS.Source = rS.Source & " AND DateValue(registro.fecha) >= '" & DateValue(fecha) & "'"
rS.CursorType = 0
rS.CursorLocation = 2
rS.LockType = 1
rS.Open()
%>