dando erro no codigo

[crucifier 0]

gente...por mais que eu tentei achar o erro nao consigui...primeramente keru agradecer a voces por estarem me ajudando tanto...nao sei o q seria dos meus sisteminhas sem voces=]bom..vamos para outra ajuda=Djuntei 2 codigos...peguei um pronto de paginacao no aspbrasil e eu jah tinha o de colocar registros em colunas...certo vamos lah...ta dando um erro que fikei umas 4 horas encrencado nesse mesmo erro...tentei substituir e talz..troca aki poe ali otro ali e por aih vai..e sempre danu erro...se nao eh um eh otro..daih resolvi parar onde esta e pedir uma ajuda..o erro dado foi:

Error Type:Microsoft VBScript compilation (0x800A0400)Expected statement/portfolio/paginacao_aspbrasil.asp, line 86

na linha 86 tem um end ifvo posta o codigo pra voces(vo posta intero porq com certeza esse erro que ta dando nao eh nessa linha....eh em otro lugar..):

<!--#include file="sistema/conexao.asp" --><% urlsis = "sistema/" %><%'Definição de VariáveisDim ObjConnDim ObjRecSetDim StrQueryDim Pag'-----------------------------------------------------------'Controles de Paginaçãopag = Request.QueryString("pagina")If pag = "" Thenpag = 1End if'Conexão com o banco de dadosSet ObjConn = Server.CreateObject("ADODB.Connection")ObjConn.ConnectionString = "Driver=MySQL ODBC 3.51 Driver; Server=servidor; Uid=filth; Pwd=senha; Database=filth"ObjConn.CursorLocation = 3 '<- Cursor de conexãoObjConn.Open '<- Abre a conexão'-----------------------------------------------------------'Criação de RecordSetSet ObjRecSet = Server.CreateObject("ADODB.RecordSet")'-----------------------------------------------------------'Conexão AtivaSet ObjRecSet.ActiveConnection = ObjConn'-----------------------------------------------------------'Select na tabela do bancoStrQuery = " SELECT * FROM sites ORDER BY id DESC"'-----------------------------------------------------------ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSetObjRecSet.PageSize = 8 'Qtde de registros a serem exibidosObjRecSet.Open StrQuery '<- Executa o Select'-----------------------------------------------------------'Se nao existir dados cadastradosIf ObjRecSet.Eof ThenResponse.Write("<b>Não Existem Dados cadastrados!</b>")ElseObjRecSet.AbsolutePage = pag'Tazemos todos os dados da tabelaWhile Not ObjRecSet.Eof and i < ObjRecSet.PageSizei = i + 1'-----------------------------------------------------------colunas = 3response.write "<table width=660 border=0 cellspacing=8 width=100% cellpadding=0 >"while NOT ObjRecSet.EOFresponse.write "<tr>"for x = 1 to Colunas 'nº de colunasif ObjRecSet.EOF = True then  logo = ""  id = ""  url = ""  nome = ""  cidade = ""  estado = ""	imagem = "<td align=center valign=middle></td>"Else  logo = ObjRecSet("logo")  id = ObjRecSet("id")  url = ObjRecSet("url")  nome = ObjRecSet("nome")  cidade = ObjRecSet("cidade")  estado = ObjRecSet("estado")  imagem = "<td><table width=100% border=0 cellspacing=0 cellpadding=8><tr><td align=center valign=middle><a href="&url&" target=_blank border=0><img src="&urlsis&logo&" border=0/></a></td></tr><tr><td align=center valign=middle><a href="&url&" target=_blank border=0><strong> "&nome&" </strong></a><br />"&cidade&" - "&estado&" </td></tr></table></td>"  	rs.MoveNextend if  response.write ""&imagem&""nextresponse.write "</tr>"Wendresponse.write "</table>"end if'----------------------------------------------------------'Numero de páginas (Paginação) criação de links para a navegaçãoWith Response.Write("<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">") & Vbcrlf.Write("<tr><td colspan=""2"" height=""2""></td></tr>")& Vbcrlf.Write("<tr><td align=""center"" class=""texto"">[ -") & VbcrlfFor i = 1 to ObjRecSet.PagecountIf i = Cint(pag) then.Write("<b>"& i &"</b> ")Else.Write("<a href='" & Request.ServerVariables("Script_Name") & "?pagina=" & i & "'>" & i & "</a> ")End ifNext.Write("- ]</b></td></tr><br>")& Vbcrlf.Write("</table>")& VbcrlfEnd With%>

espero que voces consigam me ajudar=]obrigado

[crucifier 0]

vixi..nenhuma resposta..ta na segunda pagina meu topico...nao vai mais te resposta=(

[Mário Monteiro 179]

qual o end if em questão?? tem varios

[crucifier 0]

ta nessa parte:[/code]

response.write ""&imagem&""nextresponse.write "</tr>"Wendresponse.write "</table>"end if'----------------------------------------------------------'Numero de páginas (Paginação) criação de links para a navegaçãoWith Response.Write("<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""2"" border=""0"">") & Vbcrlf.Write("<tr><td colspan=""2"" height=""2""></td></tr>")& Vbcrlf