<%
set rsInfo = ADOExec("NOMINAS..OG_CTA_OGINFORMACION_LAST5_EN " )
ls_row = 0
If rsInfo.state = 1 then
If not (rsInfo.bof and rsInfo.eof) then
do until rsInfo.eof
ls_row = ls_row +1
If ls_row = 1 then
Str_AVANCE1 = rsInfo("AVANCE")
Str_URL1 = rsInfo("URL")
Str_IMAGEN1 = rsInfo("IMAGEN")
Str_CARPETA1 = rsInfo("CARPETA")
End If
If ls_row = 2 then
Str_AVANCE2 = rsInfo("AVANCE")
Str_URL2 = rsInfo("URL")
Str_IMAGEN2 = rsInfo("IMAGEN")
Str_CARPETA2 = rsInfo("CARPETA")
End If
If ls_row = 3 then
Str_AVANCE3 = rsInfo("AVANCE")
Str_URL3 = rsInfo("URL")
Str_IMAGEN3 = rsInfo("IMAGEN")
Str_CARPETA3 = rsInfo("CARPETA")
End If
rsInfo.movenext
loop
End If
End If
%>
