Ir para conteúdo
Fórum Script Brasil
  • 0

Dando Erro No Codigo


crucifier

Pergunta

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

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...