Galera, sou novo por aqui e com programação, mas to correndo atrás... A questão é a seguinte, to arrumando uns detalhes para um site de um amigo até mesmo para praticar, e to a 10 horas (nem fui dormir ainda) tentando encontrar uma solução. O Caso: Na primeira página do site dele, existe uma função que chama da base de dados todos os imóveis que estiverem marcados como “destaque”, e estes imóveis estão sendo organizados 3 por linha. O problema e quando na base de dados existem valores quebrados, ou seja valores pares, ai dá erro. O caso é que mais ou menos consegui encontrar um solução, porem, voltei a esbarar em problemas, já que quando não tem imóveis para exibir, ele até completa com colunas em branco, porem bagunça tudo por não estar funcionando o código “For Contador = 1 To ImagensPorLinha”. ImagensPorLinha = 3
Set exe_destaques = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM imoveis WHERE destaque = on ORDER BY id DESC"
exe_destaques.Open sql, banco, adOpenStatic, adLockReadOnly
<%
categoria = exe_destaques("categoria")
exe_destaques.MoveFirst
Do Until exe_destaques.EOF
Response.Write "<tr>"
For Contador = 1 To ImagensPorLinha
if exe_destaques.EOF Then
Response.Write "<td> </td>"
Else
Response.Write "<td align=""center"" valign=""bottom""" & "bgcolor=""" & tit_fundo & """>"
Response.Write "<a href=""/mais.asp?categoria=" & exe_destaques.Fields ("categoria") & "&" & "id=" & exe_destaques.Fields ("id") & """ class=""fontesemlinha"">"
Response.Write "<img src=" & exe_destaques.Fields ("foto1") & " alt=" & exe_destaques.Fields ("desc1")
Response.Write " border=""none"" width=""143"" height=""131""></a></td>"
exe_destaques.MoveNext
End if
Next
Response.Write "</tr><tr>"
exe_destaques.Move -ImagensPorLinha
For Contador = 1 To ImagensPorLinha
if exe_destaques.EOF Then
Response.Write "<td> </td>"
Else
.MoveLast -ImagensPorLinha
Response.Write "<td align=""center"" valign=""bottom""" & "bgcolor=""" & tit_fundo & """>"
Response.Write "<a href=""/mais.asp?categoria=" & exe_destaques.Fields ("categoria") & "&" & "id=" & exe_destaques.Fields ("id") & """ class=""fontesemlinha"">"
Response.Write "<strong>" & fonte06 & exe_destaques.Fields ("bairro") & "</strong>"
Response.Write "</a></td>"
exe_destaques.MoveNext
End if
Next
Response.Write "</tr><tr>"
exe_destaques.Move -ImagensPorLinha
For Contador = 1 To ImagensPorLinha
if exe_destaques.EOF Then
Response.Write "<td> </td>"
Else
exe_destaques.MoveLast -ImagensPorLinha
Response.Write "<td align=""center"" valign=""bottom"">"
Response.Write "<a href=""/mais.asp?categoria=" & exe_destaques.Fields ("categoria") & "&" & "id=" & exe_destaques.Fields ("id") & """ class=""fontesemlinha"">"
Response.Write fonte01 & exe_destaques.Fields ("desc_destaque") & "..."
Response.Write "</a></td>"
exe_destaques.MoveNext
End if
Next
Response.Write "</tr><tr><td> </td></tr>"
Loop
%> Bom já tentei de tudo, não sei mais para onde correr. Se alguém puder me dar uma luz por favor, serei eternamente grato.
