Código funciona no IE mas não funciona no Firefox

Marcos Coelho2 · Julho 28, 2009

Tenho um site de downloads que é *****

já esta no ar mas estou fazendo uma mudanca para asp.

e fiz uma pagina de teste que esta dando erro no firefox e funciona perfeitamente no IE.

vo passar o link para que voces possam entender meu problema.

*****

abram no firefox e no IE para ver a diferenca

deem uma olhada no codigo por favor, ja tentei de tudo e nada faz funcionar nos dois.

<%

'Declarando variáveis
Dim adoCon, strCon
Dim caminho_banco
Dim gstrCaminhoFotos
Dim strSQLCaminhoFotos
Dim objConsCaminhoFotos

'Definindo caminho do banco
caminho_banco = Server.MapPath("ZonaDownload.mdb")
'caminho_banco = Server.MapPath("../../banco/livro.mdb")
'caminho_banco = Server.MapPath("../banco/livro.mdb")

'Definindo string de conexão
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto
Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Mode = 3

'Abrindo conexão
adoCon.Open strCon

''*****BUSCA O CAMINHO DAS FOTOS NA APLICAÇÃO
'strSQLCaminhoFotos = "SELECT DS_CAMINHO_FOTOS FROM CAD_PARAMETRO"

'Set objConsCaminhoFotos = Server.CreateObject("ADODB.Recordset")
'objConsCaminhoFotos.Open strSQLCaminhoFotos, AdoCon, 3, 3

'if not objConsCaminhoFotos.EOF then
'  gstrCaminhoFotos = objConsCaminhoFotos("DS_CAMINHO_FOTOS")
'end if

'gstrCaminhoFotos = Server.MapPath("../fotos")

'*****FIM

%>
 
 <%sqlstmt = "SELECT * FROM CAD_POST ORDER BY CAD_POST.DT_POSTAGEM DESC" %>

<%Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, AdoCon, 3, 3%>

<%'if rs.("CD_CATEGORIA") = 2 THEN %>			

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Zona Download - O seu site de Downloads</title>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
	<meta http-equiv="content-language" content="pt-br" />
	<meta name="author" content="Zona download - O seu site de download" />
	<meta name="classification" content="download" />
	<meta http-equiv="content-style-type" content="text/css" />
	<meta name="description" content="Zona download - O seu site de download" />
	<meta name="keywords" content="zonadownload, zona , www.zonadownload.com.br , Downlaod , Downloads, filmes download, series download, seu site de download, musicas downlod, baixar, baixar filmes, baixar series, baixar musicas, Download de programas, baixar programas, Download gratis, baixar gratis, faça downloads, baixe, filmes, series, musicas, programas, zona download, download zona, zona de download, x-men origens, x-men origens - Wolverine, Wolverine, wolwerine, x-men origins, x-men origins wolverine, x-men origens wolwerine" />
	<meta name="language" content="pt-br" />
	<meta name="resource-type" content="document" />
	<meta name="subject" content="ZonaDownload.com.br o seu site de downloads" />
	<meta name="title" content="Zona Download" />
	<meta name="robots" content="index,follow">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<link href="style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style2 {font-family: "Cooper Std Black"}
.style14 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 14px;
	color: #333333;
}
.style15 {
	font-size: 14px;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<div id="wrapper">
	<div id="header">
	  <div class="style2" id="title">
	    <p align="center"> </p>
	    <p align="center"> </p>
	    <p align="center"> </p>
	    <p align="center"> </p>
	    <p align="center"> </p>
	    <p align="center"> </p>
	  </div>
	</div>
  <div id="container">
    <div id="menu">
	<div class="menu">
	  <div align="center"><a href="http://www.zonadownload.com.br/zonadownload/">HOME</a></div>
	</div>
	<div class="menu">
	  <div align="center"><a href="contato">Contato</a></div>
	</div>
	<div class="menu">
	  <div align="center"><a href="anuncie">anuncie</a></div>
	</div>
	<div class="menu">
	  <div align="center"><a href="parceria">parceria</a></div>
	</div>
	<div class="menu">
	  <div align="center"><a href="http://www.orkut.com.br/Main#Community.aspx?cmm=91300184" target="_blank">Comunidade</a></div>
	</div>
</div>
 </span>
 <%
                  
        '############## paginacao Introdução #################
        
        '------- Coloque aqui a quantidade de registros que você deseja por página --------
        
        Const NumPorPage = 6
        
        'Verifica qual a página solicitada
        Dim PagAtual
        Dim TotalPages 'Pega o número total de páginas
        
        IF Request.QueryString("PagAtual") = "" Then
            IF NOT rs.EOF THEN
                PagAtual = 1 'Primeira página
            ELSE
                PagAtual = 0
            END IF
        Else
            PagAtual = Request.QueryString("PagAtual")
        End If
        
        rs.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros
        
        IF not rs.EOF THEN
            rs.MoveFirst 'Move o RecorSet para o início
         
            rs.PageSize = NumPorPage 'Coloca a quantidade de páginas
        
            TotalPages = rs.PageCount
        
            rs.AbsolutePage = PagAtual 'Configura a página atual
        ELSE
            TotalPages = 0
        END IF
        
        '############## paginacao Introdução - FIM #################          
        
        Count = 0 'Zera o contador
        i = 0 
        
        
        Dim intAux
        intAux = 0
        
        TotalRecs = rs.recordcount

        %>
	<span class="widget widget_archive">

	<div id="content">
	  <div align="center">
	    <%while not rs.EOF AND i < rs.PageSize %>
		<table width="441" border="0" align="center">
	      <tr>
	        <th colspan="2" scope="col"><div align="left">
	          <p><span class="style15"><a href="<%=rs("PASTA")%>"><%=rs("DS_TITULO")%></a></span><br />
	          </p>
	          </div></th>
          </tr>
	      <tr>
	        <td width="280"><div align="center"><img src="<%=rs("DS_FOTO")%>"></div></td>
            <td width="151"> </td>
          </tr>
        </table>
		
        <div align="left"><br />
          <p><a href="<%=rs("PASTA")%>" class="style15">   Expandir Postagem [+] </a></p>
          <p><br />
            <img src="linha.jpg" width="447" height="1" /><br />
            <br />
            <%i=i+1
			'if i<7 then
			rs.movenext
			'end if%>

            <%

					    wend
        		          'end if
						  'loop
						  'loop
        	          %>
          </p>
        </div></div>
	  <p align="center">
	    <br />
	  </p>
	  <div align="center"></div>
	  <p><%

'################## paginacao 01 #####################

'Coloca o Nº página atual / Nº Total de páginas

IF tipo = "" THEN

  Response.Write("<B><font color=""#000000"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 
  
  'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
  
  IF PagAtual > 1 THEN 
  
    'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
    Response.Write("<a href='teste.asp?PagAtual=" & 1 & "'>")
    Response.Write("Primeira") 
    Response.Write("</a></font></B> ")
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
    Response.Write("<a href='teste.asp?PagAtual=" & PagAtual - 1 & "'>")
    Response.Write("Anterior") 
    Response.Write("</a></font></B> ")
  
  Else
  
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
    Response.Write("Primeira") 
    Response.Write("</font></B> ")
    
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
    Response.Write("Anterior") 
    Response.Write("</font></B> ")
  
  
  End If

  '------------------- numero -------------------------
  '---------- Numero de numeros para ser mostrados ----
  max_n_mostrados = 10
  
  intervalo = Int(max_n_mostrados /2)
  inicio = PagAtual - intervalo
  final = PagAtual + intervalo
  
  If CInt(inicio) <1 Then 
    inicio = 1
    final = 10
  END IF
  If CInt(final) > CInt(TotalPages) Then final = TotalPages
  
    For i = inicio To final
      If CInt(i)=CInt(PagAtual) Then
        'Response.Write "<font color=""#660066"" size=""2"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "
        'Response.Write " <span style=""height:15;border:1px solid #000000;width:18;color:#ffff00;background-color:#336699;padding:3;font-family:arial;text-decoration:none;font-size:9;font-weight:bold"">"
        Response.Write " <span style=""font-weight:bold;color:#ffff00;background-color:#336699;padding:3"">"
        Response.Write i
        Response.Write "</span>"
      END IF
      If CInt(i) < CInt(PagAtual) Then
        Response.Write " <span style=""font-weight:bold;color:#ff0000;background-color:#f1f1f1;padding:3"">"
        Response.Write "<a href='teste.asp?PagAtual=" & i & "'>" & i & "</a>"
      END IF
      If CInt(i) > CInt(PagAtual) Then
        Response.Write " <span style=""font-weight:bold;color:#ff0000;background-color:#f1f1f1;padding:3"">"
        Response.Write "<a href='teste.asp?PagAtual=" & i & "'>" & i & "</a>"
      END IF
      Response.Write "</span> "
    Next

'------------------------------------------------------

  IF CInt(PagAtual) <> CInt(TotalPages) THEN 
  
    'Se estiver na última página, mostra apenas o botão Anterior e Primeira
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
    Response.Write("<a href='teste.asp?PagAtual=" & PagAtual + 1 & "'>")
    Response.Write("Próxima")
    Response.Write("</a></font></B> ") 
    
    Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
    Response.Write("<a href='teste.asp?PagAtual=" & TotalPages & "'>")
    Response.Write("Última")
    Response.Write("</a></font></B> ") 
    
    Else
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
    Response.Write("Próxima") 
    Response.Write("</font></B> ")
    
    Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
    Response.Write("Última") 
    Response.Write("</font></B> ")
  End If
End If

'End If




%> </p>
	  <p align="center"> </p>
	  <p align="center"> </p>
	  <p align="center"> </p>
	  <p align="center"> </p>
	  <p align="center"> </p>
	</div>
		<div align="center">

        </div>
	<div id="right">
	    <h2 align="right">
	      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="150" height="200">
            <param name="movie" value="menu.swf" />
            <param name="quality" value="high" />
            <embed src="menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="150" height="200"></embed>
          </object>
	    </h2>
    </div>
  </div>
	<div id="footer">
	  <div align="center"><br />
        <br />
      </div>
  </div>
  <%rs.close%>
</div>
</body>
</html>

hargon · Julho 28, 2009

Especifique o erro que ocorre, ou poste em uma URL que não seja a do seu site, já que ele oferece download de produtos "piratas".

Tópico movido.

Origem: Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

Ted k' · Julho 30, 2009

qual é a descrição do erro que dar?

Entrar

Arquivado

Código funciona no IE mas não funciona no Firefox

Recommended Posts

Marcos Coelho2 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante