Pagina ASP erro ao abrir Window 7

TeixeiraRamos · Janeiro 10, 2014

Por favor, criei a primeira pagina em ASP no Windows 7. Não sei se é erro porque é Windows 7.

Criei a pagina db_conexao.asp em Access 2007 com o seguinte código:

<%
'Configuração Regionais
'146 é o padrão brasileiro de data e moeda
Session.LCID = 1046

conString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\inetpub\wwwroot\testecombancodedados\dados\bd_dadosparateste.accdb"

'Conexãso com Banco de Dados
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open ConnString
%>

Criei tambem a página mostrar_registros.asp com o seguinte código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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>
<!-- #INCLUDE FILE="db_conexao.asp"-->

<%
'Chama a sub de conexão database
Dim conexaoDatabase
'Abrir Conxão 
call AbreConexao


'Cria a rs
set rs=Server.CreateObject("ADODB.Recordset")
'Cria a SQL
SQL="SELECT tb_registros.nome, tb_registros.data FROM tb_registros"
rs.open SQL,conexaoDataBase,1,3

'Fechando a conexão
set conexaoDataBase = nothing
%>


<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Mostrar os registros</title>
</head>

<tbody>

<% rs.movenext
   wend
   Set rs=nothing
   Set conexaoDatabase=nothing
%>

<tbody>

	<tr>
    	<th>Nome</th>
        <th>Data</th>    
    </tr>
    
<%while not rs.eof%>
<tr>
	<td><%=rs("nome")%></td>
	<td><%=rs("data")%></td>
</tr>

<%rs.movenext
  wend
  Set rs=nothing
  Set conexaoDatabase=nothing
 %>

</tbody>
</html>

No endereço abaixo, ao abrir a página recebo a seguinte mensagem:

http://localhost/testecombancodedados/mostrar_registros.asp

Mensagem de erro:

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

Clicando em here abre uma página com o título:

Running Classic ASP Applications on IIS 7 and IIS 8

No windows 7, em "Painel de Controle", "Programas", "Ativar ou desativar recursos do Windows", marquei todas as opções em:

Serviços de Informações da Internet

Não consegui achar onde está o erro.

xanburzum · Janeiro 10, 2014

desabilite a opção de exibir mensagens de erros HTPP amigáveis no browser, para assim podermos ver o erro real, se for o erro 80004005 é direitos administrativos (privilégios) no arquivo de bd e pasta , daí de permissão de gravação, escrita e leitura

TeixeiraRamos · Janeiro 10, 2014

Mesmo seguindo as suas orientações continua emitindo a mesma mensagem.

Gilberto Jr · Janeiro 10, 2014

Você tirou a mensagem amigavel de erro do http?

Desabilitando o erro fica mais complexo e da pra entender melhor por qual motivo.

xanburzum · Janeiro 10, 2014

verifique se está desabilitado e poste o número do erro

Gilberto Jr · Janeiro 10, 2014

Usando esse topico vai te ajudar a desabilitar essas mensagens amigáveis do navegador.

http://forum.imasters.com.br/topic/490884-erro-amigavel-do-navegador/

Att;

xanburzum · Janeiro 10, 2014

vc esta testando no localhost

TeixeiraRamos · Janeiro 10, 2014

Sim, xanburzum o caminho http://localhost/tes...r_registros.asp

Gilberto Jr · Janeiro 10, 2014

O IIS esta funcionando?

Se você rodar uma pagina com o código asp sem pegar o banco de dados ela funciona?

Att;

xanburzum · Janeiro 10, 2014

veja as permissões na pasta e nos arquivos incluindo o bd

TeixeiraRamos · Janeiro 10, 2014

Sim, Gilberto funciona.

Fiz o seguinte. Gravai as pastas em outro computador com o Dw CS3, mas Windows XP, onde tudo funciona muito bem, abri a página e já me apontou um erro na linha 35 - que é um wend.

Estou agora tentando descobrir porque desse erro na linha 35:

/testecombancodedados/mostrar_registros.asp, line 35
wend

Em todos as minhas páginas tem o código:

<% rs.movenext
   wend
   Set rs=nothing
   Set conexaoDatabase=nothing
%>

Só se o erro é em outro local e aponta para "wend".

Que situação. Não é falta de interesse se não visualizar agora. Terei que dar uma saída.

Mas hoje ainda eu volto aqui. Valeu até já.

Muito calor no RJ, em casa está 35 lá fora com sol muito mais....

xanburzum · Janeiro 10, 2014

qual o número do erro ?

Fernando C · Janeiro 11, 2014

amigo.. não me leve a mal, mas seu código está com varios bugs..
no arquivo de conexão observe que tem um "n" errado:

conString="Provider= etc..
Conn.Open ConnString

na outra pg, tente assim:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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>
<!-- #INCLUDE FILE="db_conexao.asp"-->

<%
Dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=connString
rs.Source="SELECT * FROM tb_registros"
rs.open()
%>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Mostrar os registros</title>
</head>
<body>

<%while not rs.eof
response.write rs.Fields("nome")&" - "
response.write rs.Fields("data")&"<br />"
rs.movenext
wend
  Set rs=nothing
  Set connString=nothing
%>
</body>
</html>

obs1: código ok c/ Windows 7 ultimate, IIS 7.5

obs2: não é por nada não, mas eu prefiro evitar a palavra "data"

xanburzum · Janeiro 11, 2014

faz assim, crie arquivo que contem uma sub que é invocada no código para realizar a conexão:

arquivo - Conexao1.asp

<% ‘———————-

‘ este arq. serve para estabelecer a conexao com o BD em Access
‘ de nome quaddra.mdb
sub abreconexao
constring=”provider=microsoft.JET.OLEDB.4.0;Data Source=” & Server.MapPath(“db/quaddra.mdb”)
Set conexao=Server.CreateObject(“ADODB.Connection”)
conexao.open constring
end sub


sub fechaconexao
set conexao=nothing
end sub
%>

e chame ele atraves de um include

<!–#include file=”conn/conexao1.asp”–>

<%
call abreconexao

TeixeiraRamos · Janeiro 11, 2014

Ok, está funcionando tanto no Windows XP como no Windows 7.

Deletei tudo refiz as páginas de db_conexão.asp e mostrar_registros.asp. Esse teste foi no Windows XP com Access 2003 e Access 2003 com Windows 7. Agora vou testar Windows 7 com Access 2007.

Realmente o código estava muito buguento.

Mas valeu que me fez rever algumas coisas.

Obrigado e sucesso a todos.

xanburzum · Janeiro 11, 2014

aconselho a usar assim: ”provider=microsoft.JET.OLEDB.4.0;Data Source=” & Server.MapPath(“sua_pasta/seu_bd.mdb”) para Access 2007/2010, ao invés de usar o OLEDB.4.0

e para Access 2013 use o ACE.OLEDB:

”provider=microsoft.ACE.OLEDB.12.0;Data Source=” & Server.MapPath(“sua_pasta/seu_bd.mdb”), ao invés de usar o OLEDB.4.0

Fernando C · Janeiro 13, 2014

só 1 esclarecimento: o código (ou página) que postei tbem serve p/ Windows XP/Access 2003;

o que precisa é apenas adaptar o driver do Access no arquivo de conexão conforme a versão do Access, ok?

TeixeiraRamos · Janeiro 13, 2014

OK, Fernando,

Valeu!!!

xanburzum · Janeiro 13, 2014

daí use conforme o post #16

Gilberto Jr · Janeiro 21, 2014

Se o tópico foi resolvido coloque como resolvido.

Att;

Arquivado

Pagina ASP erro ao abrir Window 7

Recommended Posts

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fernando C 128

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fernando C 128

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26