<%@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.

Escolha um Curso para ver as vagas:

Para Alunos acima de 16 anos.

Escolha um Curso para ver as vagas:

<% 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 %>