(Resolvido) Teste Vocacional (2)

[Vagner Nunes]

Prezados,

Estava feliz quando terminado o teste vocacional, porém me deparei com um problema, as perguntas estão vindo aleatoriamente e não em ordem de ID.

Gostaria que aparece em ordem de ID e quando chegar no último ID parar, pois se clicar novamente, ele volta a mostrar outra pergunta. Como posso fazer isso?

<%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados)
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strCon
sql = "SELECT * FROM perguntas"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
rs.Open sql, conn

'if NOT rs.eof then 
'Randomize
'perg_id = array(Int((rs.recordcount * Rnd) + 1))
'end if
'perg = Spit(perg_id, ",", -1, 1)

Dim Arr()
Dim i, RowCount
RowCount = RS.RecordCount
Redim Arr(RowCount - 1)
For i = 0 To RowCount - 1
Arr(i) = RS("id")
rs.movenext
Next

Randomize
perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

rs.close
sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & ""
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2, conn

'Verifica se o existe a pergunta selecionada aleatoreamente, não houver a página será recarregada...
' Então evite deletar perguntas do banco de dados do quiz!

if rs2.eof then
response.redirect("teste.asp")
end if
%>

Seria grato se alguém poder me ajudar...

Sds,

[Jonathan Queiroz]

Olhe isso:

perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

Essa linha coloca um ID aleatório na variável.

[bareta]

certo, já fiz isso em um site de auto escola que tinha um simulado on-line

para ter uma ordem você deve remover o random de lá... caso não seja isso...

uma solução é criar uma tabela para armazenar o id das perguntas em ordem aleatoria e sem repetição...

por exemplo 10 perguntas, rode um loop de 1 a 10 e cadastre nessa tabela temporaria depois use ela para pegar os ids das perguntas...

sobre sql randomicas ao invez daquele monte de coisa use:

http://www.portalmaracaju.com.br/blog/arti..._randomico.html

[Vagner Nunes]

Seguindo essa linha deste código, não tem como só muda essa linha para carrega os ID´s em sequência?

perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

Sds,

Vagner Nunes

[bareta]

sim ´so remover

Randomize
perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

rs.close
sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & ""

rs.close
sql2 = "SELECT * FROM perguntas "

[Vagner Nunes]

Mas se eu remover essas linhas, o código não vai me mostrar o próximo ID quando quando o usuário clicar em próximo:

Randomize
perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

rs.close
sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & ""

[bareta]

certo, já fiz isso em um site de auto escola que tinha um simulado on-line

para ter uma ordem você deve remover o random de lá... caso não seja isso...

uma solução é criar uma tabela para armazenar o id das perguntas em ordem aleatoria e sem repetição...

por exemplo 10 perguntas, rode um loop de 1 a 10 e cadastre nessa tabela temporaria depois use ela para pegar os ids das perguntas...

sobre sql randomicas ao invez daquele monte de coisa use:

http://www.portalmaracaju.com.br/blog/arti..._randomico.html

[Vagner Nunes]

Seguindo a orientação eliminei todas as linhas e fiz o Select a seguir:

SELECT * FROM questoes order by Rnd(Int(Now()*ID)-Now()*ID);

Porém tem como order por registro de ID e que não repita?

Sds,

[bareta]

use um select top 10 e grave os ids em uma tabela temporaria.

[Vagner Nunes]

Como posso fazer este procedimento de gravacao de ID´s em tabela temporária?

[Vagner Nunes]

Problema resolvido, não consegui obter o resultado ideal, mas ficou bom do jeito que está, aparecendo aleatoriamente.

Sds,

Vagner Nunes