<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
fecha=Request.Form("fecha")
On Error resume Next
%>
TTD Sinildatepicker demo
Machines Status
<%
Path="\\server3\TTD\Machine Status 2017.xlsx"
Set ConexionBD = Server.CreateObject("ADODB.Connection")
if request.form("fecha")="" or request.form("fecha")=null then
fecha=date
end if
ConexionBD.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & ";Extended Properties='Excel 12.0 Xml;HDR=no;IMEX=1';"
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 [MachineStatus$]", 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
rsVac.MoveNext
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) & "
"
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) & "
"
cfondo="#ffffff"
cfondo1="#ffffff"
cfondo2="#ffffff"
cfondo3="#ffffff"
cfondo4="#ffffff"
cfondo5="#ffffff"
cfondo6="#ffffff"
cfondo7="#ffffff"
cfondo8="#ffffff"
cfondo9="#ffffff"
cfondo10="#ffffff"
cfondo11="#ffffff"
if rsVac(1)="Plant 3" then
cfondo1="#CCCCCC"
cfondo2="#CCCCCC"
cfondo3="#CCCCCC"
cfondo4="#CCCCCC"
cfondo5="#CCCCCC"
cfondo6="#CCCCCC"
cfondo7="#CCCCCC"
cfondo8="#CCCCCC"
cfondo9="#CCCCCC"
cfondo10="#CCCCCC"
cfondo11="#CCCCCC"
end if
Response.Write "
" & rsVac(1) & "
"
cfondo="#ffffff"
if rsVac(2)="Repair" then
cfondo2="#ff3333"
end if
Response.Write "
" & rsVac(2) & "
"
cfondo="#ffffff"
if rsVac(3)="Repair" then
cfondo3="#ff3333"
end if
Response.Write "
" & rsVac(3) & "
"
cfondo="#ffffff"
if rsVac(4)="Repair" then
cfondo4="#ff3333"
end if
Response.Write "
" & rsVac(4) & "
"
cfondo="#ffffff"
if rsVac(5)="Repair" then
cfondo5="#ff3333"
end if
Response.Write "
" & rsVac(5) & "
"
cfondo="#ffffff"
if rsVac(6)="Repair" then
cfondo6="#ff3333"
end if
Response.Write "
" & rsVac(6) & "
"
cfondo="#ffffff"
if rsVac(7)="Repair" then
cfondo7="#ff3333"
end if
Response.Write "
" & rsVac(7) & "
"
cfondo="#ffffff"
if rsVac(8)="Repair" then
cfondo8="#ff3333"
end if
Response.Write "
" & rsVac(8) & "
"
cfondo="#ffffff"
if rsVac(9)="Repair" then
cfondo9="#ff3333"
end if
Response.Write "
" & rsVac(9) & "
"
cfondo="#ffffff"
if rsVac(10)="Repair" then
cfondo10="#ff3333"
end if
Response.Write "
" & rsVac(10) & "
"
cfondo="#ffffff"
if rsVac(11)="Repair" then
cfondo11="#ff3333"
end if
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
%>