Erro Só No Servidor

[Henderson]

Aee...

Seguinte, baxei esse sistema de banner rotativo, já que não consigo dá jeito no meu, uahiuahuia

BannerSys

Só que, no meu pc funciona tudo normal e tal

Só que quando mando pro servidor, olha o que dá:

http://www.seusucesso.info/rotativo/Adm/Administracao.asp

Que isso?

Eu não sei, dá uns erros estranhos nesse servidor, deve ser porque ele é Linux rodando asp =\

Mas eu não sei o que fazer

Não tem como eu postar o código aqui porque ele tem quase 2000 linhas, uhaiuahuia

[.Andreia.]

então poste as linhas perto da 1639, que é onde aponta o erro.

[Henderson]

            If  Request.Form("Sim") = "" then ' Foi Form ou não ?
              Set BuscaDB = Dados.execute ("SELECT * FROM Banners WHERE ID="+Request.QueryString("ID"))
                        
                        if SID = "1" then %>
      <span class="font1">O Banner de ID n° 1 não pode ser deletado porque ele 
      é considerado o banner padrão, ele será mostrado<br>
      quando não houver banners para mostrar. você pode editá-lo mas não delete 
      este.</span> 
      <% else %>
      <form action="Administracao.asp?Area=BannerDel&ID=<%=SID%>" method="post" name="BannerDelete">
        <span class="font2">Tem certeza que deseja deletar <strong><%=transstr(BuscaDB("Nome"),"%27","'")%></strong> 
        ? <br>
        <br>
        <input name="Sim" type="submit" id="Sim" value="Sim">
        </span> 
      </form>
      <%end if%>
      <br> <br> <a href="java script:history.go('-1')">Voltar</a> 
      <% else
      SID = Request.QueryString("ID")
      Dados.execute ("DELETE * FROM Banners WHERE ID="+Cstr(Sid))
      Dados.execute ("DELETE * FROM Banners2Zonas WHERE BannerID="+Cstr(Sid))
        Dados.execute ("DELETE * FROM Banners2Contas WHERE BannerID="+Cstr(Sid))
        Dados2.execute ("DELETE * FROM Anos WHERE BannerID="+Cstr(Sid))
        Dados2.execute ("DELETE * FROM Meses WHERE BannerID="+Cstr(Sid))
        Dados2.execute ("DELETE * FROM Dias WHERE BannerID="+Cstr(Sid))
        Dados2.execute ("DELETE * FROM Horas WHERE BannerID="+Cstr(Sid))
        Dados2.execute ("DELETE * FROM Cliques WHERE BannerID="+Cstr(Sid))%>
      <span class="font2">Banner deletado com sucesso !!!</span> <br> <br> <a href="Administracao.asp">Voltar 
      ao menu principal</a> | <a href="Administracao.asp?Area=Banners">Voltar 
      para administra&ccedil;&atilde;o de Banners</a> 
      <% end if ' Foi Form ou não ?  '<--- Linha 1639

[Henderson]

pois é, acho que não tem solução...

o próprio host mandou eu procurar uma hospedagem windows porque eles não sabem o que acontece, que deve ser porque é executado em linux

acho que esse script não vai rodar mesmo =\

Alguém me indica um sistema rotativo de banners...

que seja bom como esse BannerSys, com administração de zonas e tudo mais???

[py2tz]

Henderson, o melhor banner que eu vi ate hoje foi o MPSbanner, testei v[arios e esse é o que mais controle tem dos banners. Deve ter aqui tambem no scriptbrasil, mas dei uma busca rápida no google e achei um link do prg.

http://www.codigolivre.com.br/scripts/php/...o/mpsbanner.zip

Muito bom, de 0 a 10 dou 9.

[Henderson]

Valeu, mas esse é PHP.

Eu queria ASP.

[victormartins]

posta o erro

[Henderson]

Só acessar o link que você vê o erro

mas, aqui está

Error Type:

Sun ONE ASP VBScript compilation (0x800A0401)

Syntax error, unexpected "Else ", expecting end of statement

/rotativo/Adm/Administracao.asp, line 1639, column 1

[py2tz]

Olá Henderson

O meu é em ASP, pode ser que o link que mandei é em PHP mas existem vários por ai mpsbanner em ASP, se não achar eu mando o meu full pra você.

73

Fausto

[alexmout]

Estou com um problema, instalei o Banner Sys Silver conforme o recomendado e ao acessar o admintracao.asp recebo a seguinte mensagem de erro:

Bem vindo(a) agora são exatamente : 15:03:13 (15/6/2008)

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/indoor/Adm/Administracao.asp, line 161

Alguém sabe qual seria o erro?

Grato