% 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 %>
Posição | Equipe | Pontos | Performance | Trajeto | ||
" & objRsResultado.Fields("colocacao_inscricao").Value & "° | " & Chr(10) Response.Write "" & objRsResultado.Fields("numero_inscricao").Value & " - | " & Chr(10) Response.Write "" & Left(objRsResultado.Fields("nome_equipe").Value,30) & " | " & Chr(10) Response.Write "" & CStr(Clng(objRsResultado.Fields("pontos_inscricao").Value)) & " | " & Chr(10) Response.Write "abrir | " & Chr(10) if blnMostraTrajeto then Response.Write "abrir | " & Chr(10) else Response.Write "" & Chr(10) end if Response.Write " |
  | " & Chr(10) Response.Write "" & objRsResultado.Fields("numero_inscricao").Value & " - | " & Chr(10) Response.Write "" & Left(objRsResultado.Fields("nome_equipe").Value,30) & " | " & Chr(10) Response.Write "  | " & Chr(10) Response.Write "  | " & Chr(10) Response.Write "  | " & Chr(10) Response.Write "|