%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Vagas Disponíveis
<%
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\home\speedsoft1\dados\uati.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
SET RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT [AULA], [PROFESSOR], [local], [vagas], [disponível], [HORA INÍCIO], [HORA FIM], [DIA SEMANA] FROM [Sheet$] order by [AULA], [DIA SEMANA]"
RS.Open SQL, cnn
%>
<%
Set cnn1 = Server.CreateObject("ADODB.Connection")
cnn1.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\home\speedsoft1\dados\outros.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
SET RS1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT [CURSO], [TURMA], [local], [vagas], [disponível], [ÁREA] FROM [Sheet$] order by [ÁREA], [CURSO]"
RS1.Open SQL1, cnn1
%>
Informações sobre vagas.
Para Alunos acima de 40 anos.
Para Alunos acima de 16 anos.
<%
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("e:\home\speedsoft1\dados\outros.xlsx")
Response.Write("
Última atualização de vagas: " & f.DateLastModified &"")
set f=nothing
set fs=nothing
%>