Problemas Com Colunas Nas Tabelas

Ola amigos estou com dificuldade em exibir dados de banco de dados em uma tabela divididos em colunas e linhas. O problema é que não sei fazer as colunas...
Alguém pode me ajudar?
Gostaria de ter uma tabela com 3 colunas (ai que esta o problema) e 2 linhas.
Segue abaixo o codigo que estou usando e que acho mais simples, porem se alguem tiver algo parecido pronto tambem agradeço. Peço apenas que se puderem alterar para mim o codigo abaixo,pois não entendo muito de incluir comandos em codigos ja prontos... Grato.

-------------------------------------------------------------------------------------------
<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection

'Conectando com o banco de dados contato.mdb
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela contato
strQuery = "SELECT * FROM sites WHERE destaque = 'sim' ORDER by SiteIDNo"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<head>
</head>
<body bgcolor="#FFFFFF">

<//////Aqui Começa a Tabela////////>

<table border="1" width="100%" height="63" cellpadding="2" align="center">
<%While Not objRS.EOF %>
<tr>
<td valign=top><div align="left">
<font face="Verdana" color="#000000" size="1"><u><%Response.write objRS("Title")%></u><br>
<%Response.write objRS("descricao_simples")%></font></div>
</td></tr>

<%
'Move para o próximo registro
objRS.MoveNext
Wend
'Fechando as conexões
objRs.close
objConn.close
Set objRs = Nothing
Set objConn = Nothing
%>

</table>

<//////Aqui Termina a Tabela////////>

</body>
</html>

--------------------------------------------------------------------------

#1 maxcs

#2 Troyan

1 user(s) are reading this topic

Problemas Com Colunas Nas Tabelas

#1 maxcs

#2 Troyan

1 user(s) are reading this topic

Entrar