| Funcion completa
Aqui esta el codigo completo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% function llenarHoras
dim strCon
dim sqltext
dim Conexion
dim fecha
dim descripcion
dim horas
dim cedula
dim periodo_fin
dim proyecto
dim dom, lun, mar, mie, jue, vie, sab
dim aux
periodo_fin = Trim(Request("periodo_fin"))
cedula = Trim(Request("Cedula"))
proyecto = trim(request("Proyecto"))
strCon = "Provider=OraOLEDB.Oracle; Data Source=dev; User Id=chvr; Password=chvr;"
Set Conexion = Server.CreateObject("ADODB.connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'' Conexion.Open strCon
sqltext = "select distinct upper(descripcion) descripcion, " _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-4), upper(a.descripcion)),0) Dom," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-3), upper(a.descripcion)),0) Lun," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-2), upper(a.descripcion)),0) Mar," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-1), upper(a.descripcion)),0) Mie," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr') ), upper(a.descripcion)),0) Jue," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-6), upper(a.descripcion)),0) Vie," _
&" nvl(f_horas('"& periodo_fin &"'," & cedula & ",to_char(to_date('"& periodo_fin &"','dd-mm-rrrr')-5), upper(a.descripcion)),0) Sab" _
&" from horas a "
' &" where trunc(fecha_fin) = to_date(to_date('"& periodo_fin &"','dd-mm-yyyy'),'dd-mon-yy') and id_empleados = " & cedula
'' Conexion.Open strCon
rs.open sqltext, strcon
'' set Rs=Conexion.execute(sqltext)
response.write(sqltext)
'' response.write(" casi ENTRE ")
response.write(Rs.eof)
do while not Rs.EOF
'' response.write(" ya ENTRE ")
descripcion = Rs("descripcion")
dom = Rs("dom")
lun = Rs("lun")
mar = Rs("mar")
mie = Rs("mie")
jue = Rs("jue")
vie = Rs("vie")
sab = Rs("sab")
aux = " <tr> " _
&"<td height='21' bgcolor='#99CCFF'>" & descripcion & "</td>" _
&"<td bgcolor='#CCFFCC'> "& Dom & " </td>" _
&"<td>"& Lun &"</td>" _
&"<td>"& Mar &"</td>" _
&"<td>"& Mie &"</td>" _
&"<td>"& Jue &"</td>" _
&"<td>"& Vie&"</td>" _
&"<td bgcolor='#CCFFCC'>"& Sab &"</td>" _
&"</tr> "
response.write(aux)
Rs.movenext
loop
response.write(" fin LOOP ")
Rs.close
End Function
Como pueden ver luego que realizo el QUERY mando a imprimir rs.EOF para ver el resultado, pero este es TRUE es decir que no devuelve nada. Por esta razon pienso que pueda se el ODBC que tiene alguna restriccion, ya que el imprimo el query y lo ejecuto en SQL+ y trae los registros.
Gracias |