Problema na hora de colocar o nº de colunas

klebeer_ · Agosto 5, 2010

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 />
" style="float: left; margin: 0 0 10px 15px">
                <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!!!

DSerma · Agosto 5, 2010

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;

klebeer_ · Agosto 6, 2010

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 />
" style="float: left; margin: 0 0 10px 15px">
                <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/

FabianoBSB · Agosto 6, 2010

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

%>

klebeer_ · Agosto 6, 2010

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!!!!

FabianoBSB · Agosto 6, 2010

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=" <%=rsjogos("titulo")%> 
					LanÃ§amento: <%=rsjogos("lancamento")%> 
					GÃªnero: <%=rsjogos("genero")%> 
					Distribuidor: <%=rsjogos("distribuidor")%> 
					Desenvolvedor: <%=rsjogos("desenvolvedor")%> 

					Site Oficial: <%=rsjogos("site_oficial")%> 
" style="float: left; margin: 0 0 10px 15px">
 <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

klebeer_ · Agosto 6, 2010


                <%
                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 />
" style="float: left; margin: 0 0 10px 15px">
                <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

Entrar

Arquivado

Problema na hora de colocar o nº de colunas

Recommended Posts

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabianoBSB 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabianoBSB 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

klebeer_ 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante