<%server.ScriptTimeOUt = 360%> <% nivel = Session("Nivel_Jogo") 'request.querystring("nivel") Conn.CommandTimeout = 0 conn.cursorlocation = 3 strSql = " SELECT p.idpontuacao,p.idusuario, p.pontos, p.tempo, u.apelido "&_ " FROM JOGO_PONTUACAO p "&_ " INNER JOIN JOGO_USUARIOS u ON u.idusuario = p.idusuario"&_ " INNER JOIN JOGO_DESAFIOS d ON d.iddesafio = p.iddesafio"&_ " WHERE d.idnivel = " & nivel &_ " ORDER BY pontos desc, tempo asc " Set Rsranking = conn.execute(strSql) h = 1 select case nivel case 1 nivel = "facil" links = "
" case 2 nivel = "medio" links = "
" case 3 nivel = "dificil" links = "
" end select rodape = "imagens/rodape_" & nivel & ".gif" logo = "imagens/logo_" & nivel & ".gif" top = "imagens/top_" & nivel & ".gif" bg1 = "imagens/bg1.gif" bg2 = "imagens/bg2.gif" %> ::: Ranking <%=nivel%> :::
<%=links%>
<% 'variavel responsável pelo procura do usuario dim achou_usuario achou_usuario = false if not rsRanking.eof then rsRanking.movefirst i = 1 While (( not rsRanking.eof ) AND ( cint(i) <= 10 ) ) if rsRanking.fields("idusuario") = session("idusuario") then achou_usuario = true response.write "" Else response.write "" end if rsRanking.movenext rsRanking.movenext i = i+1 wend end if if achou_usuario = false then if rsRanking.recordcount <> 0 then rsRanking.movefirst i = 0 response.write "" do While not rsRanking.eof i = i+1 if rsRanking.fields("idusuario") = session("idusuario") then achou_usuario = 0 response.write "" End If rsRanking.movenext rsRanking.movenext loop else response.write "" end if end if %>
ColocaçãoJogadorPontosTempo
" & i & "º" &rsRanking.fields("apelido")&"" &rsRanking.fields("pontos") & "" & formataTempo(rsRanking.fields("tempo"), 2) & "
" & i & "º" &rsRanking.fields("apelido")&"" &rsRanking.fields("pontos") & "" & formataTempo(rsRanking.fields("tempo"), 2) & "
" & i & "º" &rsRanking.fields("apelido")&"" &rsRanking.fields("pontos") & "" & formataTempo(rsRanking.fields("tempo"), 2) & "
Pontuações sendo atualizadas.
Tente visualizar mais tarde.