Criar tabela com banco de dados - ASP

[Gelado 0]

Olá, estou tentando criar uma tabela de 4 colunas por 10 linhas usando os dados de um banco, só que eu não fazer tudo, só colunas ou linhas. O máximo que eu consegui foi criar a tabela com os dados repetidos.

Por favor, me ajudem.

Vlw

 

<table width="100%" border="0">
<tr>
<%
set ss =server.createobject("adodb.recordset")
ss.open "select DISTINCT top 4 * from tbcursos where atitulo order by acursoid",conexao,1,2
do until ss.eof
%> 
<td valign="top">
<table width="200" border="0">
<tr>
<td><a href="cursodec.asp?codigo=<%= ss("acursoid")%>"></a><a href="cursodec.asp?codigo=<%= ss("acursoid")%>"><img src="img/cursos/<%= ss("aimg")%>" width="200" height="150" border="1" /></a></td>
</tr>
<tr>
<td width="200" height="55" align="center" valign="top"><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" style="font-size:10pt"><strong>
<a href="cursodec.asp?codigo=<%= ss("acursoid")%>" class="not"><%= ss("atitulo")%></a></strong></font></td>
</tr>
</table>
</td>
<%
ss.movenext
loop
ss.close
set ss =nothing
%>
</tr>
</table>

[quintelab 91]

Movido Access http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

[jrcardozo 4]

Não lembro bem, mas acho que é assim que eu fazia

response.write "<tr>"
  Do While Not rs.Eof
  response.write "<td>" & rs(0) & "</td>"
  If rs.AbsolutePosition Mod 3 = 0 Then
  response.write "</tr><tr>"
  End If
  rs.MoveNext()
  Loop
response.write "</tr>"

[xanburzum 169]

existe uma função na forum k você pode criar a quantidade de colunas desejada, dá uma verificada...

ou da maneira como foi mencionado acima, usando as tag "<tr>", "<td>"

[Gelado 0]

Não lembro bem, mas acho que é assim que eu fazia

response.write "<tr>"
  Do While Not rs.Eof
  response.write "<td>" & rs(0) & "</td>"
  If rs.AbsolutePosition Mod 3 = 0 Then
  response.write "</tr><tr>"
  End If
  rs.MoveNext()
  Loop
response.write "</tr>"

 

da erro:

Tipo de erro:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

 

<table width="100%" border="0">
<%
	
	set rs =server.createobject("adodb.recordset")
	rs.open "select DISTINCT top 100 * from tbcursos where atitulo order by aid",conexao,1,2
	response.write "<tr>"
 	Do While Not rs.Eof
  	response.write "<td>" & rs(0) & "</td>"
 	If rs.AbsolutePosition Mod 3 = 0 Then
 	response.write "</tr><tr>"
 	End If
	rs.MoveNext()
	Loop
	response.write "</tr>"
%> 
<tr>
<td valign="top">
<table width="100%" border="0">
<tr>
<td width="152"><a href="cursodec.asp?codigo=<%= rs("aid")%>"></a><a href="cursodec.asp?codigo=<%= rs("aid")%>"><img src="img/cursos/<%= rs("aimagem")%>" width="136" height="97" border="1" /></a></td>

<td align="left" valign="top"><br>
<font face="Arial, Helvetica, sans-serif" color="#FFFFFF" style="font-size:10pt">
<a href="cursodec.asp?codigo=<%= rs("aid")%>" class="not"><%= rs("atitulo")%></a></font></td>

<td width="152"><a href="cursodec.asp?codigo=<%= rs("aid")%>"></a><a href="cursodec.asp?codigo=<%= rs("aid")%>"><img src="img/cursos/<%= rs("aimagem")%>" width="136" height="97" border="1" /></a></td>

<td align="left" valign="top"><br>
<font face="Arial, Helvetica, sans-serif" color="#FFFFFF" style="font-size:10pt">
<a href="cursodec.asp?codigo=<%= rs("aid")%>" class="not"><%= rs("atitulo")%></a></font></td>
</tr>
</table>
</td>
</tr>
<%
	rs.movenext

	rs.close
	set ss =nothing
%>
</table>

 

eu ainda procurei outros posts sobre o assunto mas não achei.. =/

[xanburzum 169]

A causa mais provável, é que não há qualquer registro.

dá um response.write na sua string SQL, para ver o k esta sendo passado

pois axo k falatou um criterio no WHERE

"select DISTINCT top 100 * from tbcursos where atitulo order by aid"

 

Se você estiver certo de que haverá resultados, você poderá verificar que a versão mais recente do MDAC

[Gelado 0]

A causa mais provável, é que não há qualquer registro.

dá um response.write na sua string SQL, para ver o k esta sendo passado

pois axo k falatou um criterio no WHERE

"select DISTINCT top 100 * from tbcursos where atitulo order by aid"

 

Se você estiver certo de que haverá resultados, você poderá verificar que a versão mais recente do MDAC

 

 

eu coloquei, até mudei no where pra 'aid' mas o erro continuou

set rs =server.createobject("adodb.recordset")
	rs.open "select DISTINCT top 100 * from tbcursos where aid order by aid",conexao,1,2
	Response.Write(SQL)

sou novo na área e estou apanhando muito de APS..

[xanburzum 169]

você deve especificar o criterio na clausula WHERE

tipo:

 

"select DISTINCT top 100 * from tbcursos where aid = '"&variavel&"' order by aid"

 

onde variavel recebe seu request, neste caso esta sendo passado como string, caso no seu bd esteja numerico retire as aspas '