Resultados em colunas

[jonesfleite 0]

Ola amigos , estou precisando de ajuda. Tenho um site de venda de motos e gostaria que meu resultado fosse em colunas, mas não estou conseguindo adaptar alguns codigos que encontrei no forum.

 

Se eu mandar ou colocar o codigo do meu site aqui, alguem me ajuda a fazer?

 

meu site é www.mendoncaracing.com

 

a parte de motos que eu queria colocar em 3 ou 4 colunas.

 

que fique em ordem tambem.

 

Obrigado a todos

Jones

mendoncaracing.com

contato@mendoncaracing.com

[jrcardozo 4]

para isso você deve explicar o resultado que pretende e como está para o pessoal ter uma ideia de por onde começar a te ajudar

[jonesfleite 0]

o meu resultado esta um abaixo do outro mesmo, eu queria em colunas. <% AbreConexao idcat=request.querystring("idcat") '/////COMECA AS CATEGORIAS If idcat = "" Then Set rsCats = Conexao.Execute("SELECT * FROM motosusadas order by id") If rsCats.EOF Then Response.Redirect "semregistro.asp" Else While not rsCats.EOF bdid = rscats.fields("id") bdcodigo = rscats.fields("codigo") bdimagem1 = rscats.fields("imagem1") bddescricao = rscats.fields("descricao") bdcor = rscats.fields("cor") bdano = rscats.fields("ano") bdpreco = rscats.fields("preco") bdobs = rscats.fields("obs") %> <tr> <td width="22%" height="96"><img src=<%=bdimagem1%> width="120" height="90"></td> <td width="78%"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=bddescricao%> - <%=bdcor%> - <%=bdano%></strong></font></td> </tr> <tr> <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=bdpreco%></font></td> </tr> <tr> <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Obs: <%=bdobs%> </font></td> </tr> </table> <p align="right"><font color="#0000FF" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <a href="motosdetalhes.asp?motoid=<%=bdid%>">Detalhes >>></a></font></p></td> </tr> <% rsCats.Movenext Wend End If end if %> </table>

[jrcardozo 4]

faz o seguinte, cria um arquivo só com html que exiba da maneira que você quer, ou se preferir cria uma imagem e coloca o link ra ver....você fala em colunas mas está listado em colunas!!!

[jonesfleite 0]

VOU FAZER AGORA E COLOCO AQUI

 

ola amigo, a imagem de como estou querendo esta no link abaixo.

 

resultado

[jrcardozo 4]

já olhou esse post? tem o camarada queria exatamente o que você quer ai fiz o código pra ele, basta adaptar para seu db

 

http://forum.imasters.com.br/index.php?sho...c=193864&hl=

[jonesfleite 0]

Ja tentei colocar esse codigo , mais não consigo adaptar no meu.tem como você me dar uma ajudinha?Obrigado

[jrcardozo 4]

a ideia é essa.....tenta ai

 

<%qtColunas = 4 ' quantidade de colunasSet Conexao = server.createobject("adodb.connection") 'criando o objeto conexaoSet rsCats = Server.CreateObject("ADODB.Recordset") 'criando o objeto recordsetConexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("meuDb.mdb") 'abrindo a conexãoSet rsCats = Conexao.Execute("SELECT * FROM motosusadas order by id")rsCats.cursortype=3 'Definindo o tipo de cursor para o recordset pode contarrsCats.open strSQL,Conexao 'executando o recordsettotalRegistros = rsCats.recordcount 'qt de registros encontradosresponse.Write("Foram encontrados " & totalRegistros)Do While j < totalRegistros 'enquanto a variavel j for menor que o total de registros, então escreve%>	<table width="900" border="0" cellspacing="0" cellpadding="0">	<%	i=0	%>	<tr>		<%		Do While (i < qtColunas) and (not rsCats.eof )		%>			<td>			<%response.write("<img src="& rscats("imagem1")&"><br>"& "<font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><a href=""motosdetalhes.asp?motoid="&rscats.fields("id")&">Detalhes>>></a></font>")  'exibindo cada linha do registro			%>			</td>		<%		rsCats.moveNext 'move para o próximo registro		i=i+1		loop		%>	</tr>	<%j=j+1loop ' move para o proximo valor da variavel j%></table>

[jonesfleite 0]

obrigado vou tentar agora

[jonesfleite 0]

Ola amigo, so da erro interno do servidor.<%qtColunas = 3 ' quantidade de colunasSet Conexao = server.createobject("adodb.connection") 'criando o objeto conexaoSet rsCats = Server.CreateObject("ADODB.Recordset") 'criando o objeto recordsetConexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados.mdb") 'abrindo a conexãoSet rsCats = Conexao.Execute("SELECT * FROM motosusadas order by id")rsCats.cursortype=3 'Definindo o tipo de cursor para o recordset pode contarrsCats.open strSQL,Conexao 'executando o recordsettotalRegistros = rsCats.recordcount 'qt de registros encontradosresponse.Write("Foram encontrados " & totalRegistros)Do While j < totalRegistros 'enquanto a variavel j for menor que o total de registros, então escreve%> <table width="900" border="0" cellspacing="0" cellpadding="0"> <% i=0 %> <tr> <% Do While (i < qtColunas) and (not rsCats.eof ) %> <td> <%response.write("<img src="& rscats("imagem1")&"><br>"& "<font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><a href=""motosdetalhes.asp?motoid="&rscats.fields("id")&">Detalhes>>></a></font>") 'exibindo cada linha do registro %> </td> <% rsCats.moveNext 'move para o próximo registro i=i+1 loop %> </tr> <%j=j+1loop ' move para o proximo valor da variavel j%>

[jrcardozo 4]

fça o descrito abaixo e poderá ver a linha que acusa o erro bem como a descrição...depois coloque a mensagem de erro pra saber o que está ocorrendo Ferramentas (ou tools)Opções de internet (ou internet options)Avançado (ou advanced)E desmarque Mostrar mensagens de erro http amigáveis (Show friendly http error messages)OK

[jonesfleite 0]

Informações técnicas (para a equipe de suporte)Tipo de erro:ADODB.Recordset (0x800A0E79)Operação não permitida quando o objeto está aberto./index1.asp, line 18Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) Página: GET /index1.asp Hora: quarta-feira, 27 de setembro de 2006, 10:38:17 Mais informações: Suporte da Microsofta linha 18 é rsCats.cursortype=3 'Definindo o tipo de cursor para o recordset pode contar

[jrcardozo 4]

ops!mancada minha....troque

 

isto

 

Set rsCats = Conexao.Execute("SELECT * FROM motosusadas order by id")

por

 

strSQL="SELECT * FROM motosusadas order by id"

[jonesfleite 0]

esta aparecendo um debaixo do outro e não em coluna

 

da uma olhada em http://www.mendoncaracing.com/index1.asp

[jrcardozo 4]

tinha um erro na concatenação do link...segue o código correto, já feito testes aqui e funcionou certinho

 

<%qtColunas = 3 ' quantidade de colunasSet Conexao = server.createobject("adodb.connection") 'criando o objeto conexaoSet rsCats = Server.CreateObject("ADODB.Recordset") 'criando o objeto recordsetConexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dados.mdb") 'abrindo a conexãostrSQL = "SELECT * FROM motosusadas order by id" 'selecionando os dados da tabelarsCats.cursortype=3 'Definindo o tipo de cursor para o recordset pode contarrsCats.open strSQL,Conexao 'executando o recordsettotalRegistros = rsCats.recordcount 'qt de registros encontradosresponse.Write("Foram encontrados " & totalRegistros)Do While j < totalRegistros 'enquanto a variavel j for menor que o total de registros, então escreve%>	<table width="900" border="0" cellspacing="0" cellpadding="0">	<%	i=0	%>	<tr>		<%		Do While (i < qtColunas) and (not rsCats.eof )		%>			<td>			<%response.write ("<img src="& rsCats("imagem1")&"><br><font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><a href=motosdetalhes.asp?motoid="&rsCats("id")&">ok</a></font>")  'exibindo cada linha do registro			%>			</td>		<%		rsCats.moveNext 'move para o próximo registro		i=i+1		loop		%>	</tr>	<%j=j+1loop ' move para o proximo valor da variavel j%></table>

[jonesfleite 0]

o codigo ficou assim e so aparece e uma coluna so

 

 

 

<%

qtColunas = 3 ' quantidade de colunas

 

Set Conexao = server.createobject("adodb.connection") 'criando o objeto conexao

Set rsCats = Server.CreateObject("ADODB.Recordset") 'criando o objeto recordset

 

Conexao.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../private/dados.mdb") 'abrindo a conexão

 

strSQL="SELECT * FROM motosusadas order by id"

 

rsCats.cursortype=3 'Definindo o tipo de cursor para o recordset pode contar

 

rsCats.open strSQL,Conexao 'executando o recordset

 

totalRegistros = rsCats.recordcount 'qt de registros encontrados

response.Write("Foram encontrados " & totalRegistros)

 

Do While j < totalRegistros 'enquanto a variavel j for menor que o total de registros, então escreve

%>

<table width="900" border="0" cellspacing="0" cellpadding="0">

<%

i=0

%>

<tr>

<%

Do While (i < qtColunas) and (not rsCats.eof )

%>

 

<%

response.write("<img src="& rscats("imagem1")&"><br>"&"<font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><a href=""motosdetalhes.asp?motoid="&rscats.fields("id")&">Detalhes>>></a></font>") 'exibindo cada linha do registro

%>

 

<%

rsCats.moveNext 'move para o próximo registro

i=i+1

loop

%>

</tr>

<%

j=j+1

loop ' move para o proximo valor da variavel j

%>

 

</table>

 

 

 

 

entra em http://www.mendoncaracing.com/index1.asp

[jrcardozo 4]

você não substituiu o código pelo ultimo que enviei no post....esse ai tem um erro, substirui pelo que coloquei por ultimo pois nesse ultimo fiz testes e funcionou tudo beleza

[jonesfleite 0]

Agora deu certo amigo, mas tenho so uma duvida, como faço para a imagem ter o link e o tamanha ser de 100 x 100?

[jrcardozo 4]

troque a linha em que exibe os dados por essa

 

 

 

<%response.write ("<a href=motosdetalhes.asp?motoid="&rsCats("id")&"><img src="& rsCats("imagem1")&" WIDTH=100 HEIGHT=100><br><font color=""#0000FF"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Detalhes</a></font>") %>

[jonesfleite 0]

Muito obrigado amigo