Dando Erro No Codigo

[crucifier]

gente...por mais que eu tentei achar o erro não consigui...

primeramente keru agradecer a voces por estarem me ajudando tanto...não sei o q seria dos meus sisteminhas sem voces=]

bom..vamos para outra ajuda=D

juntei 2 codigos...peguei um pronto de paginacao no aspbrasil e eu já tinha o de colocar registros em colunas...

certo vamos lá...

ta dando um erro que fiquei umas 4 horas encrencado nesse mesmo erro...tentei substituir e tal..troca aki poe ali otro ali e por aih vai..e sempre danu erro...se não é um é 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 if

vo posta o codigo pra voces(vo posta intero porq com certeza esse erro que ta dando não é nessa linha....é em otro lugar..):

<!--#include file="sistema/conexao.asp" -->
<% urlsis = "sistema/" %>
<%
'Definição de Variáveis
Dim ObjConn
Dim ObjRecSet
Dim StrQuery
Dim Pag
'-----------------------------------------------------------
'Controles de Paginação
pag = Request.QueryString("pagina")

If pag = "" Then
pag = 1
End if

'Conexão com o banco de dados
Set 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ão

ObjConn.Open '<- Abre a conexão
'-----------------------------------------------------------
'Criação de RecordSet
Set ObjRecSet = Server.CreateObject("ADODB.RecordSet")
'-----------------------------------------------------------
'Conexão Ativa
Set ObjRecSet.ActiveConnection = ObjConn
'-----------------------------------------------------------
'Select na tabela do banco
StrQuery = " SELECT * FROM sites ORDER BY id DESC"
'-----------------------------------------------------------
ObjRecSet.CursorType = 3 'Tipo do cursor do RecordSet
ObjRecSet.PageSize = 8 'Qtde de registros a serem exibidos
ObjRecSet.Open StrQuery '<- Executa o Select
'-----------------------------------------------------------
'Se não existir dados cadastrados
If ObjRecSet.Eof Then
Response.Write("<b>Não Existem Dados cadastrados!</b>")
Else
ObjRecSet.AbsolutePage = pag
'Tazemos todos os dados da tabela
While Not ObjRecSet.Eof and i < ObjRecSet.PageSize
i = i + 1
'-----------------------------------------------------------
colunas = 3
response.write "<table width=660 border=0 cellspacing=8 width=100% cellpadding=0 >"
while NOT ObjRecSet.EOF
response.write "<tr>"
for x = 1 to Colunas 'n&ordm; de colunas
if 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.MoveNext
end if
  
response.write ""&imagem&""
next
response.write "</tr>"
Wend
response.write "</table>"

end if
'----------------------------------------------------------
'Numero de páginas (Paginação) criação de links para a navegação
With 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"">[ -") & Vbcrlf
For i = 1 to ObjRecSet.Pagecount

If i = Cint(pag) then
.Write("<b>"& i &"</b>&nbsp;")
Else
.Write("<a href='" & Request.ServerVariables("Script_Name") & "?pagina=" & i & "'>" & i & "</a>&nbsp;")
End if

Next
.Write("- ]</b></td></tr><br>")& Vbcrlf
.Write("</table>")& Vbcrlf
End With

%>

espero que voces consigam me ajudar=]

se não entenderam ou acharo muito cansativo procura o erro e tenha alguma pergunta pode pergunta que eu entro todo dia pra ve aki..daih eu respondo

[JCMPJ]

O que é isso rs.MoveNext ???

Acerta ai, e veja se some o erro.

Tem mais uma coisa provavelmente essa paginação não vai funcionar. Procure aqui neste Forum por paginação MySQL.

[Guest Guest]

eu tentei pega só que não deu certo...junta os dois ta meio foda...

[crucifier]

eu arrumei o movenext mai continua dando erro...mesmo lugar...

(o guest ali sou eu viu)