Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bem olá novamente pessoal, espero que me ajudem poi não estou sabendo direito onde colocar o contador para mostrar o numero certo de colunas....nesse caso 5!
bem ai vai o código
<%
DIM rsjogos
Set rsjogos = Server.CreateObject("ADODB.Recordset")
rsjogos.ActiveConnection = Conexao
rsjogos.Source = "select * from tb_jogos where(tb_jogos.genero ='lancamentos')"
rsjogos.CursorType = 3
rsjogos.CursorLocation = 3
rsjogos.LockType = 2
rsjogos.Open()
If not rsjogos.Eof then%>
<table width="17%" height="137" border="0">
<tr>
<%
contador = 0
While not rsjogos.Eof%>
<td><table border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td align="center"><a href="<%=rsjogos("img_full")%>" class="highslide" onClick="return hs.expand(this)"
title="<br /><br /><br /><%=rsjogos("titulo")%><br /><br />
Lançamento: <%=rsjogos("lancamento")%><br />
Gênero: <%=rsjogos("genero")%><br />
Distribuidor: <%=rsjogos("distribuidor")%><br />
Desenvolvedor: <%=rsjogos("desenvolvedor")%><br /><br />
Site Oficial: <%=rsjogos("site_oficial")%><br /> <img src="<%=rsjogos("img")%>" alt="" align="top" width="105" height="122" /></a>
</td>
</tr>
<tr>
<td width="105" align="center"><%=rsjogos("titulo")%></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table></td>
<%
contador = contador +1
If contador = 5 then
response.Write("<tr>")
contador = 0
end if
rsjogos.MoveNext
wend%>
</tr>
</table>
<%end if
rsjogos.Close()
end if
%>
Obs. o Select esta funcionando perfeitamente bem sem o contador ta funcionando redondinho.Espero que alguem me ajude com mais essa....valeuuuuu!!!
>
Explique melhor oq você qr fazer....
Se qr apenas contar o numero de registros... o incremento do contador tem de estar dentro do LOOP... ou seja WHILE / WEND... e pelo que vi o seu código está assim....
Att;
Bem Darkdemo, o negócio é o seguinte na pagina que mostra os jogos eu gostaria que as imagens e seus títulos aparecessem em 5 colunas:
ai vai o código com um pequeno problema ainda, me mostra nas 5 colunas como eu queria, mas no final da uma mensagem de erro:
<td colspan="2" valign="top">
<%
DIM rsjogos
Set rsjogos = Server.CreateObject("ADODB.Recordset")
rsjogos.ActiveConnection = Conexao
rsjogos.Source = "select * from tb_jogos where(tb_jogos.genero ='lancamentos')"
rsjogos.CursorType = 3
rsjogos.CursorLocation = 3
rsjogos.LockType = 2
rsjogos.Open()
%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<%
contador = 1
Do While not rsjogos.Eof
if rsjogos("img")<>"" then %>
<td align="center"><a href="<%=rsjogos("img_full")%>" class="highslide" onClick="return hs.expand(this)"
title="<br /><br /><br /><%=rsjogos("titulo")%><br /><br />
Lançamento: <%=rsjogos("lancamento")%><br />
Gênero: <%=rsjogos("genero")%><br />
Distribuidor: <%=rsjogos("distribuidor")%><br />
Desenvolvedor: <%=rsjogos("desenvolvedor")%><br /><br />
Site Oficial: <%=rsjogos("site_oficial")%><br /> <img src="<%=rsjogos("img")%>" alt="" align="top" width="105" height="122" /></a>
</td>
<%if contador = 5 then
response.write "<tr>"
contador = 0
end if %>
<%
end if
contador = contador + 1
rsjogos.movenext
loop
%>
</tr>
<tr>
<td width="105" align="center"><%=rsjogos("titulo")%></td>
</tr>O errro é esse:
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/asda/principal.asp, line 0
Se alguem puder ajudar agradeço ....o link do teste é esse www.kmsolucoes.com/asda/
Faz assim
<%
I=1
do while NOT RS.EOF
Response.Write rs("Campo")
i=i+1
%>
Na coluna que vai conter a numeração escreve assim
<%
=i
%>
FabianoBSB desculpe se me expressei mal, "isso se entendi correto o que você fez...hehe" não quero que apareça o número das colunas, apenas que mostre os dados em 5 colunas como se fosse uma tabela com 5 colunas e N linhas, mas mesmo assim obrigado!!!!
>
>
Explique melhor oq você qr fazer....
Se qr apenas contar o numero de registros... o incremento do contador tem de estar dentro do LOOP... ou seja WHILE / WEND... e pelo que vi o seu código está assim....
Att;
Bem Darkdemo, o negócio é o seguinte na pagina que mostra os jogos eu gostaria que as imagens e seus títulos aparecessem em 5 colunas:
ai vai o código com um pequeno problema ainda, me mostra nas 5 colunas como eu queria, mas no final da uma mensagem de erro:
<td colspan="2" valign="top">
<%
DIM rsjogos
Set rsjogos = Server.CreateObject("ADODB.Recordset")
rsjogos.ActiveConnection = Conexao
rsjogos.Source = "select * from tb_jogos where(tb_jogos.genero ='lancamentos')"
rsjogos.CursorType = 3
rsjogos.CursorLocation = 3
rsjogos.LockType = 2
rsjogos.Open()
%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<%
contador = 1
Do While not rsjogos.Eof
if rsjogos("img")<>"" then %>
<td align="center"><a href="<%=rsjogos("img_full")%>" class="highslide" onClick="return hs.expand(this)"
title="<br /><br /><br /><%=rsjogos("titulo")%><br /><br />
Lançamento: <%=rsjogos("lancamento")%><br />
Gênero: <%=rsjogos("genero")%><br />
Distribuidor: <%=rsjogos("distribuidor")%><br />
Desenvolvedor: <%=rsjogos("desenvolvedor")%><br /><br />
Site Oficial: <%=rsjogos("site_oficial")%><br /> <img src="<%=rsjogos("img")%>" alt="" align="top" width="105" height="122" /></a>
</td>
<%if contador = 5 then
response.write "<tr>"
contador = 0
end if %>
<%
end if
contador = contador + 1
rsjogos.movenext
loop
%>
</tr>
<tr>
<td width="105" align="center"><%=rsjogos("titulo")%></td>
</tr>O errro é esse:
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/asda/principal.asp, line 0
Se alguem puder ajudar agradeço ....o link do teste é esse www.kmsolucoes.com/asda/
Desculpe!!!! aocnteceu comigo isso tmb o problema é que tem um if depois do While, se você tirar e colocar antes ai da certo
<%
contador = 1
Do While not rsjogos.Eof
%>
<td align="center"><a href="<%=rsjogos("img_full")%>" class="highslide" onClick="return hs.expand(this)"
title="<br /><br /><br /><%=rsjogos("titulo")%><br /><br />
Lançamento: <%=rsjogos("lancamento")%><br />
Gênero: <%=rsjogos("genero")%><br />
Distribuidor: <%=rsjogos("distribuidor")%><br />
Desenvolvedor: <%=rsjogos("desenvolvedor")%><br /><br />
Site Oficial: <%=rsjogos("site_oficial")%><br /> <img src="<%=rsjogos("img")%>" alt="" align="top" width="105" height="122" /></a>
</td>
<%if contador = 5 then
response.write "<tr>"
contador = 0
end if
contador = contador + 1
rsjogos.movenext
loop
%>FabianoBSB tirei o IF como você falou e NADA, continua!!!
>
ADODB.Field erro '80020009'
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
/asda/principal.asp, linha 0
Explique melhor oq você qr fazer....
Se qr apenas contar o numero de registros... o incremento do contador tem de estar dentro do LOOP... ou seja WHILE / WEND... e pelo que vi o seu código está assim....
Att;