<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
fecha=Request.Form("fecha")
On Error resume Next
%>
Cortos Sinildatepicker demo
<%
'Asigna a la variable Path, la ruta del archivo *.xls
larchivo="\\server3\reporte\CORTOS SINIL " &right("00"&month(date()),2)&right("0000"&year(date()),4)& ".xlsx"
Path=larchivo
'response.Write(" larchivo " & Path)
'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")
''*************************
if request.form("fecha")="" or request.form("fecha")=null then
fecha=date
end if
hoja=right("00"&day(fecha),2)
'response.Write(" Fecha: "&fecha &" Hoja " & hoja)
'Abrimos el objeto con el driver específico para Microsoft Excel
ConexionBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties='Excel 12.0 Xml;HDR=no;IMEX=1';"
'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")
'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado Feriado.
rsVac.Open "Select * From [" & hoja & "$]", ConexionBD,3 ,3
'rsVac.Open "Select * From '" & hoja & "'", ConexionBD,3 ,3
if rsVac.eof or rsVac.bof then
response.Write(" No data found ")
else
'Nos posicionamos al principio del recordset, por cualquier cosa
rsVac.MoveFirst
'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
if not rsVac.eof then
Response.Write "
"
Response.Write "
"
Response.Write "
" & rsVac(0) & "
"
Response.Write "
Cortos SINIL
"
Response.Write "
" & rsVac(7) & "
"
Response.Write "
" & rsVac(8) & "
"
Response.Write "
"
rsVac.MoveNext
''''''''''''''*************************************** Subtotales
if not rsVac.eof then
Response.Write "
" & vbCrLf
Response.Write "
" & rsVac(0) & "
"
Response.Write "
" & rsVac(1) & "
"
Response.Write "
" & rsVac(2) & "
"
Response.Write "
" & rsVac(3) & "
"
Response.Write "
" & rsVac(4) & "
"
Response.Write "
" & rsVac(5) & "
"
Response.Write "
" & rsVac(6) & "
"
Response.Write "
" & rsVac(7) & "
"
Response.Write "
" & rsVac(8) & "
"
Response.Write "
" & rsVac(9) & "
"
Response.Write "
" & rsVac(10) & "
"
Response.Write "
" & rsVac(11) & "
"
Response.Write "
" & rsVac(12) & "
"
Response.Write "
" & rsVac(13) & "
"
Response.Write "
" & vbCrLf
rsVac.MoveNext
else
response.Write(" No data found ")
end if
''''''''''''''*************************************** encabezados de columnas
if not rsVac.eof then
Response.Write "
" & vbCrLf
Response.Write "
" & rsVac(0) & "
"
Response.Write "
" & rsVac(1) & "
"
Response.Write "
" & rsVac(2) & "
"
Response.Write "
" & rsVac(3) & "
"
Response.Write "
" & rsVac(4) & "
"
Response.Write "
" & rsVac(5) & "
"
Response.Write "
" & rsVac(6) & "
"
Response.Write "
" & rsVac(7) & "
"
Response.Write "
" & rsVac(8) & "
"
Response.Write "
" & rsVac(9) & "
"
Response.Write "
" & rsVac(10) & "
"
Response.Write "
" & rsVac(11) & "
"
col=11
if rsVac(12)<>null then
Response.Write "
" & rsVac(12) & "
"
col=12
end if
if rsVac(13)<>null then
Response.Write "
" & rsVac(13) & "
"
col=13
end if
if rsVac(14)<>null then
Response.Write "
" & rsVac(14) & "
"
col=14
end if
if rsVac(15)<>null then
Response.Write "
" & rsVac(15) & "
"
col=15
end if
Response.Write "
" & vbCrLf
rsVac.MoveNext
Response.Write "
"
else
response.Write(" No data found ")
end if
else
response.Write(" No data found ")
end if
if not rsVac.eof then
''''''''''''''*************************************** Y por último, el cuerpo de los datos
Response.Write "
"
%>
<%
Do While Not rsVac.EOF
Response.Write "
" & vbCrLf
Response.Write "
" & rsVac(0) & "
"
Response.Write "
" & rsVac(1) & "
"
Response.Write "
" & rsVac(2) & "
"
Response.Write "
" & rsVac(3) & "
"
Response.Write "
" & rsVac(4) & "
"
Response.Write "
" & rsVac(5) & "
"
Response.Write "
" & rsVac(6) & "
"
Response.Write "
" & rsVac(7) & "
"
Response.Write "
" & rsVac(8) & "
"
Response.Write "
" & rsVac(9) & "
"
Response.Write "
" & rsVac(10) & "
"
Response.Write "
" & rsVac(11) & "
"
if col>11 then
Response.Write "
" & rsVac(12) & "
"
end if
if col>12 then
Response.Write "
" & rsVac(13) & "
"
end if
if col>13 then
Response.Write "
" & rsVac(14) & "
"
end if
if col>14 then
Response.Write "
" & rsVac(15) & "
"
end if
Response.Write "
" & vbCrLf
rsVac.MoveNext
Loop
else
response.Write(" No data found ")
end if
%>
<%
Response.Write "
"
end if
'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing
'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing
If Err.Number <> 0 then
HandleError Err.Description
End If
Sub HandleError
response.write("No DATE created")
End Sub
%>