Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Evandro CPT

Exibir quantos registros tem no banco

Por , em ASP Clássico

Recommended Posts

Evandro CPT    0

Evandro CPT
Postado

Boas pessoal.

 

Preciso do help de voces mais uma vez.

 

Estou montando um quiz (apesar de não ser programador.... ) e preciso exibir o numero de registros do banco no seguinte formato:

 

"Registro 1 de 20"

 

Já conseguir fazer exibir o total de registros nesse trecho do cód:

 


<% 
response.write RS.RecordCount 
rs.close
%>

Aparece o numero total de registros já, no caso 20.

 

Agora preciso saber como fazer para ele falar qual registro esta sendo exibido. (tipo: registro 1 de 20)

 

O codigo todo é:

 


<!--#include file="config.inc" -->
<%

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

if Session("brquiz") <> "logado" then
Response.Redirect("login.asp")
else
Session.TimeOut = "1"
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
    id = RS("id")
    if( Session("idPerguntaAtual") = "") Then
        Session("idPerguntaAtual") = id
		Exit For
    End If

    if(Session("idPerguntaAtual") = id) Then
        rs.movenext
		if rs.eof then
			Response.Redirect("final.asp")
		else	
            id = RS("id")
			Session("idPerguntaAtual") = id
			Exit For		        	        
		end if	
	End If
rs.movenext
Next

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


sql2 = "SELECT * FROM perguntas WHERE id = "& Session("idPerguntaAtual") & ""
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("quiz.asp")
end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>::QuizNet::</title>
<script language=JavaScript>
<!-- begin
var sHors = "00"; 
var sMins = "39";
var sSecs = 60;
function getSecs(){
	sSecs--;
	if(sSecs<0)
    {sSecs=59;sMins--;if(sMins<=9)sMins="0"+sMins;}
	if(sMins=="0-1")
    {sMins=5;sHors--;if(sHors<=9)sHors="0"+sHors;}
	if(sSecs<=9)sSecs="0"+sSecs;
	if(sHors=="0-1")
	{sHors="00";sMins="00";sSecs="00";
	clock1.innerHTML=sMins+" Minutos e "+sSecs+" segundos ";}
    else
    {
   clock1.innerHTML=sMins+" Minutos e "+sSecs+" segundos ";
   	setTimeout('getSecs()',1000);
	}
	}
//-->
</SCRIPT>
</head>

<body>
<p align="center"> 
  <%
sql3 = "SELECT * FROM usuarios WHERE login = '" & Session("username") & "'"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.CursorType = 3
rs3.CursorLocation = 3
rs3.LockType = 3
rs3.Open sql3, conn
%>

<p align="center">
<center>
<font size="2" face="Tahoma">
Usuário: <%=Session("username")%> <br>
<!--Pontos: <'%=rs3("pontos")%> <Br>--><br>
Você tem exatamente <b><span id="clock1"></span><script>setTimeout('getSecs()',1000);</script></b> pra responder o Quiz!<br>
<% 
response.write RS.RecordCount 
rs.close
%>


</font>
</center>
</p>
<form method="POST" action="responde.asp" name="responde">
  <div align="center">
    <center>
    <table border="0" width="50%" cellspacing="0" cellpadding="0" height="115">
      <tr>
        <td width="100%" height="31" bgcolor="#cccccc"><font color="#FFFFFF" size="2" face="Tahoma">  <%=rs2("pergunta")%></font></td>
      </tr>
      <tr>
        <td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp1")%></font></td>
      </tr>
      <tr>
        <td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp2")%></font></td>
      </tr>
      <tr>
        <td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp3")%></font></td>
      </tr>
      <tr>
        <td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp4")%></font></td>
      </tr>
      <tr>
        <td width="100%" height="21"></td>
      </tr>
    </center>
      <tr>
        <td width="100%" height="21">
          <p align="left"><input border="0" value="Confirmar resposta" name="I1" type="button" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"></td>
      </tr>
    </table>
  </div>
  <input type="hidden" name="id" value="<%=rs2("id")%>">
</form>
<p align="center"><br><a href="logout.asp"><< Sair</a>
<%
end if 
%>
</body>
</html>

 

 

Se puderem me ajudar nisso, ficarei grato!

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dependendo da situacaun melhor usar um contatdor normal ou a clausula count do SQL, pois se o seu bd for muito grande o recordcount do objeto recordset para apresentar queda de desempenho

 

exemplo:

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

' Count how many records exist
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

' Display result
Response.Write "(" & iRecordCount & ")"

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%>

SQL COUNT

 

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito