[Resolvido] Função não executa

[angelnikz 0]

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
					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
				    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 alguem puder me dar uma luz por favor, serei eternamente grato.

[angelnikz 0]

Valeu já resolvi.

 

Segue código resolvido:

 

<%
					
			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>"
					ImagensPorLinha = ImagensPorLinha -1
					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
					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
					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
			
			%>