<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% fecha=Request.Form("fecha") On Error resume Next %> DO Sinil datepicker demo <% 'Asigna a la variable Path, la ruta del archivo *.xls larchivo="\\server3\reporte\CORTOS SAMEX " &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 "" Response.Write "" Response.Write "" Response.Write "" rsVac.MoveNext if not rsVac.eof then Response.Write "" & vbCrLf Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" & vbCrLf rsVac.MoveNext else response.Write(" No data found ") end if if not rsVac.eof then Response.Write "" & vbCrLf Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" col=11 if rsVac(12)<>null then Response.Write "" col=12 end if if rsVac(13)<>null then Response.Write "" col=13 end if if rsVac(14)<>null then Response.Write "" col=14 end if if rsVac(15)<>null then Response.Write "" col=15 end if Response.Write "" & vbCrLf rsVac.MoveNext Response.Write "
" & rsVac(0) & "Cortos SAMSUNG" & rsVac(10) & " " & rsVac(11) & "
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(6) & "" & rsVac(7) & "" & rsVac(8) & "" & rsVac(9) & "" & rsVac(10) & "" & rsVac(11) & "" & rsVac(12) & "" & rsVac(13) & "
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(6) & "" & rsVac(7) & "" & rsVac(8) & "" & rsVac(9) & "" & rsVac(10) & "" & rsVac(11) & "" & rsVac(12) & "" & rsVac(13) & "" & rsVac(14) & "" & rsVac(15) & "
" 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 "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" if rsVac(10)<>"" then Response.Write "" else Response.Write "" end if if rsVac(11)<>"" then Response.Write "" else Response.Write "" end if if col>11 then Response.Write "" end if if col>12 then Response.Write "" end if if col>13 then Response.Write "" end if if col>14 then Response.Write "" end if Response.Write "" & vbCrLf rsVac.MoveNext Loop else response.Write(" No data found ") end if %> <% Response.Write "
 
 
 
 
 
 
 
" & rsVac(0) & "" & rsVac(1) & "" & rsVac(2) & "" & rsVac(3) & "" & rsVac(4) & "" & rsVac(5) & "" & rsVac(6) & "" & rsVac(7) & "" & rsVac(8) & " " & rsVac(9) & " " & rsVac(10) & "     " & rsVac(11) & "          " & rsVac(12) & "" & rsVac(13) & "" & rsVac(14) & "" & rsVac(15) & "
 
 
 
" 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 %>