<%server.ScriptTimeOUt = 360%> COQUETEL ::: PASSATEMPO ::: VALIDAÇÃO ::: <% Dim Arquivo If Trim(Session("CodLogado") & "") = "" Then If Trim(Request.QueryString("nivel") & "") <> "" Then Session("Nivel_Jogo") = Trim(Request.QueryString("nivel") & "") End If Response.Redirect("../../publicacao/jogosonline.asp") Else If Trim(Session("Nivel_Jogo") & "") = "" Then If Trim(Request.QueryString("nivel") & "") <> "" Then Session("Nivel_Jogo") = Trim(Request.QueryString("nivel") & "") Arquivo = SelecionaNovoJogo(Trim(Session("CodLogado")), Trim(Session("Nivel_Jogo"))) Response.Redirect("jogo.asp?arquivo=" & Arquivo) Else Response.Redirect("instrucoes.asp") End If Else Arquivo = SelecionaNovoJogo(Trim(Session("CodLogado")), Trim(Session("Nivel_Jogo"))) Response.Redirect("jogo.asp?arquivo=" & Arquivo) End If End If FUNCTION SorteiaArquivo(pasta) Dim objFSO, arquivo, arquivos, Item, contador, nomeJogo(9999) Set objFSO = Server.CreateObject ("Scripting.FileSystemObject") Set arquivo = objFSO.GetFolder(pasta) Set arquivos = arquivo.files contador = 0 For Each Item in arquivos If (Right(Item.name,3) = "sud") Then contador = contador + 1 nomeJogo(contador) = Item.name 'Response.Write(Item.name & "
") End If Next Set arquivos = nothing Set arquivo = nothing Set objFSO = nothing If contador > 0 then nomeJogo(0) = nomeJogo(Sorteio(contador)) SorteiaArquivo = "codigo," & left(nomeJogo(0),len(nomeJogo(0))-4) & "," SorteiaArquivo = SorteiaArquivo & "autor,Coquetel," SorteiaArquivo = SorteiaArquivo & Jogo(pasta & nomeJogo(0)) End If END FUNCTION Function SelecionaNovoJogo(ByVal Login, ByVal Nivel) Dim NomeArq, NivelNew, strSql Dim objFSO, arquivo, arquivos, Item, contador, nomeJogo(9999) Set objFSO = Server.CreateObject ("Scripting.FileSystemObject") NomeArq = "" Select Case Nivel Case "1" NivelNew = "Facil" Case "2" NivelNew = "Medio" Case "3" NivelNew = "Dificil" Case Else NivelNew = "Facil" End Select 'pega os arquivos do diretorio Set arquivo = objFSO.GetFolder(Server.MapPath("Arquivos" & "\" & Trim(NivelNew) & "\")) Set arquivos = arquivo.files contador = 0 For Each Item in arquivos contador = contador + 1 NomeArq = Item.name strSql = "select * from Jogo_UsuarioDesafio where IdUsuario = '" & Trim(Login) & "' and arquivo = '"& Trim(NomeArq) &"'" Set RsArq = conn.execute(strSql) if not rsArq.eof then 'nada faz else strSql = "Insert into Jogo_UsuarioDesafio(IdUsuario, IdDesafio, Arquivo) " strSql = strSql & " Values('" & Trim(Login) & "', '0', '" & Trim(NomeArq) & "')" conn.execute(strsql) Exit For end if Next Session("Jogo") = NomeArq SelecionaNovoJogo = NomeArq End Function Function NomeArquivo(ByVal Arquivo) Dim tamanho, i tamanho = Len(trim(Arquivo & "")) For i = 0 To tamanho If Mid(trim(Arquivo & ""), tamanho - i, 1) = "\" Then NomeArquivo = Mid(trim(Arquivo & ""), tamanho - i + 1, tamanho) Exit Function End If Next NomeArquivo = Arquivo End Function %>