Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Fala pessoal blza?
Estou com um pequeno problema com ASP.
É o seguinte, estou seguindo passo a passo de um livro chamado 'Crie um E-Commerce com ASP' e cheguei na parte do include file. Fiz o arquivo conforme está lá e o inclui no arquivo chamado 'select1.asp'. Digitei linha por linha e coloquei o arquivo chamado 'bib_conexao.asp' dentro de uma pasta chamada Conn, sendo que está devidamente configurado na Fonte de Dados ODBC (painel de controle do Windows XP) até dar esse erro, qdo teclo f12:
Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /eCommerce/Conn/bib_conexao.asp, line 4
Eis a sub rotina do arquivo 'bib_conexao.asp' :
<%
sub abre_conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=c:\inetpub\wwwroot\eCommerce\Loja.mdb;Driver={Microsoft Access Driver(*.mdb)}"
end sub
sub fecha_conexao
Conexao.Close
set Conexao = Nothing
end sub
%>
Esse arquivo 'bib_conexao.asp' tem que estar dentro de uma pasta qualquer ou pode ser dentro da pasta 'eCommerce' (que é meu caso)?
Já configurei de tudo q é tipo e nada funciona. Estou usando o Microsoft Access 2007 (com versão para 2002-2003) e o 'include file' está assim: <!--#include file="Conn\bib_conexao.asp"--> e apresenta o erro acima em azul.
Como que configura a Fonte de Dados ODBC (painel de controle do Windows XP)?
Alguém pode me ajudar???
Só para desencargo de consciência, o codigo do 'select1.asp'
<!--#include file="Conn\bib_conexao.asp"-->
<%
Dim Conexao, rsClientes, strSQL
strSQL = "SELECT * FROM Clientes"
Call abre_conexao
Set rsClientes = Conexao.Execute(strSQL)
%>
<html>
<head>
<title>Clientes</title>
<style type="text/css">.style1 {
color: #FFFFFF;
font-weight: bold;
}</style>
</head>
<body>
<table width="596" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><strong>Nome</strong></div></td>
<td><div align="center"><strong>CNPJ/CPF</strong></div></td>
<td><div align="center"><strong>Endereço</strong></div></td>
<td><div align="center"><strong>Cidade</strong></div></td>
<td><div align="center"><strong>UF</strong></div></td>
<td><div align="center"><strong>Telefone</strong></div></td>
</tr>
<%
While Not rsClientes.EOF
%>
<tr bgcolor="#FFFFFF">
<td><%= rsClientes("Cliente") %></td>
<td><%= rsClientes("CGC_CPF") %></td>
<td><%= rsClientes("Endereco") %></td>
<td><%= rsClientes("Cidade") %></td>
<td><%= rsClientes("UF") %></td>
<td><%= rsClientes("Telefone") %></td>
</tr>
<%rsClientes.MoveNext
Wend
Call fecha_conexao
Set rsClientes = Nothing
%>
</table>
</body>
</html>Isso é muito urgente pra mim!!!
Aguardo respostas!!!
Abs!!!!
Carregando comentários...