<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
fecha=Request.Form("fecha")
On Error resume Next
%>
TTD Sinildatepicker demo
Machines Status
<%
'Asigna a la variable Path, la ruta del archivo *.xls
larchivo="\\server3\reporte\machine_status.xlsx"
Path="\\server3\TTD\machine_status.xlsx"
'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)
hoja="Hoja1"
'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 0")
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 "
"
rsVac.MoveNext
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
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
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
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
%>