response write em 2 colunas de uma tabela

[hunger 0]

fala pessoal.....beleza?!entao, queria fazer uma coisa aparentemente simple,s, mas q nao etou conseguindo.em uma pagina, coloquei uma tabela, com duas colunas. gostaria que o conteudo puxado do BD fosse inserido nestas duas colunas..... por exemplo.... um numero x de informações na coluna da esquerda, e assim que chegasse neste X, passasse a escrever o restante na coluna ao lado.mas nao tem ideia de como fazer pra jogar la...agradeço todas as sugestoes e ajuda!abço!marcos hunger.

[Mário Monteiro 179]

pesquise no forum tem alguns posts deste tipo

 

EDITADO

 

Veja se te serve

 

http://www.imasters.com.br/forum/index.php...2912&hl=colunas

[dead_thinker 0]

Algo do tipo:while not recordsset.EOF do Response.write "<tr>" Response.write "<td> Teste</td>" Response.write "<td>" Response.write <%=VAR%> Response.write "</td>" Response.write "</tr>" wend

[hunger 0]

fala mario...beleza? valeu pela ajuda...achei no final daquele topico um codigo q você colocou.... mas no caso, seria apenas pra inserir aquele codigo do jeito q você fez, ou era para implementa-lo dentro do codigo que o cara estava fazendo?abço!

[Mário Monteiro 179]

cara é do jeito que ta lávocê só substitui o que tiver vindo do BD tipo rs("Servicos")no mais é só isso

[hunger 0]

está dando erro....

 

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/lojas.asp, line 100

 

 

a linha 100, no caso é a indicada com **** no seu codigo:

 

ASP [/tr][tr]

<%

Total = rs.recordcount ****

Colunas = 29

%>

 

<table>

<%

X = 1

Y = 0

WHILE NOT rs.EOF

%>

<%IF Y = 0 THEN%><tr><%END IF%>

<%IF X < Total THEN%>

<td><%=X & " é " & rs("Servicos")%></td>

<%ELSE%>

<td><%=X & " é " & rs("Servicos")%></td>

<%IF Total mod Colunas <> 0 THEN%>

<%FOR I = Total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%END IF%>

 

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

 

rs.MOVENEXT

WEND

%>

</table>

[/tr]

 

a unica coisa q fiz foi trocar ali o rs("servicos") por rs("virtual")

[Mário Monteiro 179]

mas você criou o recordset??rs é um recordset você tem que setalo e pegar vaores do DB através de um SELECT da vida...

[hunger 0]

entao, o codigo está assim:

 

ASP [/tr][tr]

 

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/cn_dtech.asp" -->

<%

Dim rs_virtual

Dim rs_virtual_numRows

 

Set rs_virtual = Server.CreateObject("ADODB.Recordset")

rs_virtual.ActiveConnection = MM_cn_dtech_STRING

rs_virtual.Source = "SELECT * FROM revendaswww ORDER BY nome ASC"

rs_virtual.CursorType = 0

rs_virtual.CursorLocation = 2

rs_virtual.LockType = 1

rs_virtual.Open()

%>

 

 

<%

Total = rs.recordcount

Colunas = 2

%>

 

<table>

<%

X = 1

Y = 0

WHILE NOT rs.EOF

%>

<%IF Y = 0 THEN%><tr><%END IF%>

<%IF X < Total THEN%>

<td><%=X & " é " & rs("virtual")%></td>

<%ELSE%>

<td><%=X & " é " & rs("virtual")%></td>

<%IF Total mod Colunas <> 0 THEN%>

<%FOR I = Total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%END IF%>

 

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

 

rs.MOVENEXT

WEND

%>

</table>

 

 

<%

rs_virtual.Close()

Set rs_virtual = Nothing

%>

 

[/tr]

 

e o erro q está dando é aquele q lhe falei, naquela mesma linha.....

[Mário Monteiro 179]

onde tava rs("virtual")poers_virtual("virtual")

[hunger 0]

entao, eu mudei... mas o problema é q parece q nao está chegando la.... tp, ele pára antes no maldito errinho la....o mesmo.....

[Mário Monteiro 179]

qual linha que dá erro??

[hunger 0]

<%Total = rs.recordcountColunas = 2%>é a linha do "total =..."o erro é :Microsoft VBScript runtime error '800a01a8' Object required: ''

[Mário Monteiro 179]

mesma coisa cara troca porTotal = rs_virtual.recordcount

[hunger 0]

verdade...esqueci.mas acabei de testar....impressionante.....o mesmo erro ainda!!!! nao entendo....vou te passar o codigo inteiro. é q aquela hora eu te mostrei sem as coisas em html, q sao da parte do layout do site....pra nao ficar uma coisa mto bagunçada... mas sei la, vai q nao está funcionando por causa de alguma outra coisa....... deixa pra la...mto grande o codigo, nem cabe aqui

[hunger 0]

alterei, mas nao adiantou.....

[Mário Monteiro 179]

esta dando o mesmo erro?? no mesmo lugar??

[hunger 0]

nao nao.... é outra linha....<%Total = rs_virtual.recordcountColunas = 2%><table><%X = 1Y = 0WHILE NOT rs.EOF%>é esta do WHILE NOT... mas é o mesmo tipo de erro. Object required: ''esqueci..vou colocar o rs_virtual aqui tbem....

[hunger 0]

agora deu o seguinte erro:

 

 

ADODB.Recordset error '800a0cc1'

 

Item cannot be found in the collection corresponding to the requested name or ordinal.

 

/lojas.asp, line 115

 

 

vou colocar o codigo aqui de novo e indicar qual é com *******

 

ASP [/tr][tr]

 

<table>

<%

X = 1

Y = 0

WHILE NOT rs_virtual.EOF

%>

<%IF Y = 0 THEN%><tr><%END IF%>

<%IF X < Total THEN%>

<td><%=X & " é " & rs_virtual("virtual")%></td>

<%ELSE%>

<td><%=X & " é " & rs_virtual("virtual")%></td> *******************

<%IF Total mod Colunas <> 0 THEN%>

<%FOR I = Total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%END IF%>

 

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

 

rs.MOVENEXT

WEND

%>

</table>

 

[/tr]

 

sabe q erro é esse?!

[Mário Monteiro 179]

esta dizendo que não existe o campo virtual...ali você deve colocar um dos campos que você pegou no selecte na mensagem anterior o erro era o mesmo troca de rs por rs_virtual, mas este você já viu sozinho, parabéns por isso...quanto ao erro atual verifica no seu banco se o campo virtual existe

[hunger 0]

fala mario....bom dia....

 

entao, nao existe o campo virtual no BD, foi bobeira minha nao ter visto... mas é q essa programação nao fui eu quem fiz...peguei pra corrigir um probleminha....

 

no bd existem 3 campos.... um com os numeros de registro, outro com as urls, e outro com os nomes dos site (é uma listagem de sites).

 

Eu coloquei no lugar daquele "virtual", o campo "nome". mas o resultado saiu todo bagunçado.... dê uma olhadinha no endereço abaixo:

 

http://www.dtechbrasil.com.br/lojas.asp

 

to apanhando nisso aqui ne.... ta fd. isso pq depois de dar certo só terá mais um detalhe.... é q os nomes deverão aparecer linkados aos endereços....

 

 

*********************************

 

ah, mexi um pouco no codigo, consegui fazer listar só o q eu queria. o unico problema agora é q preciso colocar o link em cada um, automaticamente....

 

o codigo agora está este assim:

 

ASP [/tr][tr] <%

Total = rs_virtual.recordcount

Colunas = 2

%>

</span>

<table>

<%

X = 1

Y = 0

WHILE NOT rs_virtual.EOF

%>

<%IF Y = 0 THEN%>

<tr>

<%END IF%>

<%IF X < Total THEN%>

<td class="texto2"><%= rs_virtual("nome")%></td>

<%ELSE%>

<td class="texto2"><%= rs_virtual("nome")%></td>

<%IF Total mod Colunas <> 0 THEN%>

<%FOR I = Total mod Colunas TO Colunas - 1%>

 

<%NEXT%>

<%END IF%>

<%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

 

rs_virtual.MOVENEXT

WEND

%>

</table>

[/tr]