<% dim objCn set objCn = Server.CreateObject("ADODB.Connection") objCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../banco/main_new.mdb")) if objCn.State<>1 then Response.Write("ERRO: a conexão com o banco de dados não pôde ser aberta.") Response.End end if Dim idProva idProva = Request.QueryString("a") if idProva="" then Response.Write "Erro. Prova não informada!" Response.End else if not IsNumeric(idProva) then Response.Write "Erro. Prova inválida!" Response.End end if end if Dim objRsProva Set objRsProva = Server.CreateObject("ADODB.RecordSet") Call objRsProva.Open("SELECT modalidade.nome AS nome_modalidade, prova.id AS id_prova, prova.nome AS nome_prova, prova.enderecoWeb AS enderecoWeb_prova, prova.inicio AS inicio_prova, prova.final AS final_prova, prova.upload AS upload_prova, prova.valorInscricao AS inscricao_prova, prova.duracao AS duracao_prova FROM modalidade, prova WHERE prova.modalidade = modalidade.id AND prova.id = " & idProva, objCn) if objRsProva.EOF then Response.Write "Erro. Prova não encontrada!" objRsProva.Close objCn.Close Response.End end if Dim strDuracao strDuracao = CStr(Int(objRsProva.Fields("duracao_prova").Value / 60)) & "h" & CStr(round(((objRsProva.Fields("duracao_prova").Value/60) - Int((objRsProva.Fields("duracao_prova").Value/60))) * 60,0)) & "min" Dim dtmData dtmData = now() Dim strDataHora strDataHora = Right("0000" + CStr(Year(dtmData)),4) + Right("00" + CStr(Month(dtmData)),2) + Right("00" + CStr(Day(dtmData)),2) + Right("00" + CStr(Hour(dtmData)),2) + Right("00" + CStr(Minute(dtmData)),2) + Right("00" + CStr(Second(dtmData)),2) Dim strResultado Dim blnMostraTrajeto if objRsProva.Fields("upload_prova").Value < strDataHora then strResultado = "RESULTADO FINAL" blnMostraTrajeto = true else strResultado = "RESULTADO PARCIAL" blnMostraTrajeto = false end if %>

<%=strResultado%>
	Prova: <%=objRsProva.Fields("nome_prova").Value%> / <%=objRsProva.Fields("nome_modalidade").Value%>
	Largada de <%=Mid(objRsProva.Fields("inicio_prova").Value,7,2)%>/<%=Mid(objRsProva.Fields("inicio_prova").Value,5,2)%>/<%=Mid(objRsProva.Fields("inicio_prova").Value,1,4)%> <%=Mid(objRsProva.Fields("inicio_prova").Value,9,2)%>:<%=Mid(objRsProva.Fields("inicio_prova").Value,11,2)%>:<%=Mid(objRsProva.Fields("inicio_prova").Value,13,2)%> até <%=Mid(objRsProva.Fields("final_prova").Value,7,2)%>/<%=Mid(objRsProva.Fields("final_prova").Value,5,2)%>/<%=Mid(objRsProva.Fields("final_prova").Value,1,4)%> <%=Mid(objRsProva.Fields("final_prova").Value,9,2)%>:<%=Mid(objRsProva.Fields("final_prova").Value,11,2)%>:<%=Mid(objRsProva.Fields("final_prova").Value,13,2)%>
	Upload até <%=Mid(objRsProva.Fields("upload_prova").Value,7,2)%>/<%=Mid(objRsProva.Fields("upload_prova").Value,5,2)%>/<%=Mid(objRsProva.Fields("upload_prova").Value,1,4)%> <%=Mid(objRsProva.Fields("upload_prova").Value,9,2)%>:<%=Mid(objRsProva.Fields("upload_prova").Value,11,2)%>:<%=Mid(objRsProva.Fields("upload_prova").Value,13,2)%>
	Duração Máxima: <%=strDuracao%>

<% Dim objRsResultado Set objRsResultado = Server.CreateObject("ADODB.RecordSet") Set objRsResultado.ActiveConnection = objCn Call objRsResultado.Open("SELECT inscricaoEquipe.id AS id_inscricao, inscricaoEquipe.colocacao AS colocacao_inscricao, inscricaoEquipe.pontos AS pontos_inscricao, inscricaoEquipe.penalidades AS penalidades_inscricao, inscricaoEquipe.situacao AS situacao_inscricao, inscricaoEquipe.numero AS numero_inscricao, equipe.id AS id_equipe, equipe.nome AS nome_equipe, equipe.pais AS pais_equipe, equipe.enderecoWeb AS enderecoWeb_equipe FROM inscricaoEquipe, equipe WHERE inscricaoEquipe.equipe=equipe.id AND inscricaoEquipe.prova = " & idProva & " AND inscricaoEquipe.colocacao IS NOT NULL ORDER BY inscricaoEquipe.situacao ASC, inscricaoEquipe.colocacao ASC", objCn) Dim strCorFundo strCorFundo = "#e6e6e6" do while not objRsResultado.EOF if strCorFundo = "#e6e6e6" then strCorFundo = "white" else strCorFundo = "#e6e6e6" end if Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) if blnMostraTrajeto then Response.Write " " & Chr(10) else Response.Write " " & Chr(10) end if Response.Write " " & Chr(10) objRsResultado.MoveNext loop objRsResultado.Close Call objRsResultado.Open("SELECT inscricaoEquipe.id AS id_inscricao, inscricaoEquipe.colocacao AS colocacao_inscricao, inscricaoEquipe.pontos AS pontos_inscricao, inscricaoEquipe.penalidades AS penalidades_inscricao, inscricaoEquipe.situacao AS situacao_inscricao, inscricaoEquipe.numero AS numero_inscricao, equipe.id AS id_equipe, equipe.nome AS nome_equipe, equipe.pais AS pais_equipe, equipe.enderecoWeb AS enderecoWeb_equipe FROM inscricaoEquipe, equipe WHERE inscricaoEquipe.equipe=equipe.id AND inscricaoEquipe.prova = " & idProva & " AND inscricaoEquipe.colocacao IS NULL ORDER BY inscricaoEquipe.situacao ASC, inscricaoEquipe.colocacao ASC", objCn) do while not objRsResultado.EOF if strCorFundo = "#e6e6e6" then strCorFundo = "white" else strCorFundo = "#e6e6e6" end if Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) Response.Write " " & Chr(10) objRsResultado.MoveNext loop objRsProva.Close Set objRsProva = nothing objRsResultado.Close Set objRsResultado = Nothing set objCn = nothing %>

Posição		Equipe	Pontos	Performance	Trajeto
" & objRsResultado.Fields("colocacao_inscricao").Value & "°	" & objRsResultado.Fields("numero_inscricao").Value & " -	" & Left(objRsResultado.Fields("nome_equipe").Value,30) & "	" & CStr(Clng(objRsResultado.Fields("pontos_inscricao").Value)) & "	abrir	abrir
	" & objRsResultado.Fields("numero_inscricao").Value & " -	" & Left(objRsResultado.Fields("nome_equipe").Value,30) & "