Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
manogaucho

[AJUDA] Erro no "Includes/conexao.asp"

Recommended Posts

Tudo bem!

Queria criar uma conexão com banco de dados SQL em asp

criei o arquivo conexao.asp dentro da pasta Includes, ficou assim

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>O SITE DA NOSSA TERRA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
strConexao = "driver=MySQL ODBC 5.1 Driver;server=xxxxxx;uid=xxxxxxx;pwd=xxxxxx;_database=xxxxxx"
Conexao.Open strConexao
%>

<body>
</body>
</html>
chamei ele com este arquivo teste.asp, ficou assim:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Includes/conexao.asp"-->
<html>
<head>
<title>O SITE DA NOSSA TERRA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

</body>
</html>
Mas quando tento abrir a pagina da este erro:
Active Server Pages error 'ASP 0141'

Page Command Repeated

/Includes/conexao.asp, line 1

The @ command can only be used once within the Active Server Page.
Qual será este erro. ----------------- Resolvido 06/05/2009 Depois de muita ajuda, foi possivel criar a conexão sem erros, vamos la no arquivo conexao.asp ficou assim:
<%

strDataSoure = "xxxxxxxxx" 
strDataBase ="xxxxxxxxx" 
strUser = "xxxxxxxx" 
strPWD = "xxxxxxxxxxx" 
    
strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure
strConexao = strConexao & "; DATABASE=" & strDataBase
strConexao = strConexao & ";Uid="& strUser
strConexao = strConexao & ";Pwd="& strPWD


%>
e arquivo para chamar ficou assim ( exemplo ) testeconexao.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="Includes/config.asp" -->
<html>
<head>
<title>CONEX&Atilde;O</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
strQuery = "select cat_geral from categoria where cat_categoria = 'mercearia' ORDER BY RAND()"
set objConn = server.CreateObject("ADODB.Connection")
objConn.open strConexao
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open strQuery, strConexao
do until rs.EOF
for each x in rs.Fields
Response.Write(CStr(x.Value)) & " "
next
Response.Write "<br>"
rs.MoveNext
loop

objConn.close
set rs = nothing
set objConn = nothing
%>

Agradeço a todos que ajudaram.

Demais Muito Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá!

Este erro aparece porque você está repetindo a mesma instrução 2x.

Como você já colocou no cabeçalho do arquivo de conexão a instrução "<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>" não precisa repetir no outro arquivo.

Remova esta linha da página teste que deve funcionar...

Até mais...

Danilo

Compartilhar este post


Link para o post
Compartilhar em outros sites

mudei o arquivo conexao.asp ficou assim:

1 <%
2 Set Conexao = Server.CreateObject("ADODB.Connection")
3 strConexao = "driver=MySQL ODBC 5.1 Driver;server=http://endereço.com;uid=login;pwd=senha;_database=nomebanco"
4 Conexao.Open strConexao
5 %>
Agora da este erro quando acesso a pagina teste:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/Includes/conexao.asp, line 4
Acredito que seja do caminho do localhost, mas ta certo, pois utilizava um sistema diferente para conexão, Exemplo para cada select do sql, eu utilizava este codigo para abrir conexão:
Variáveis com os valores de sua base de dados.
strDataSoure = "xxxxxxxxxxx"
strDataBase ="xxxxxxxxxxx"
strUser = "xxxxxxxxxxx"
strPWD = "xxxxxxxxxx"

'Geramos a query SQL que irá acessar os dados na base de dados
'Conforme alteração 1
' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50))
strQuery = "select id_geral from topo "
    

' Definir String de conexao para base MySQL
strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure
strConexao = strConexao & "; DATABASE=" & strDataBase
strConexao = strConexao & ";Uid="& strUser
strConexao = strConexao & ";Pwd="& strPWD

Obrigado pela sua ajuda, mas tens alguma outra ideia

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

Você tentou o contrário, ao invés de apagar no arquivo conexão, apagar no arquivo teste?

Não testei, mas acho que a página conexão precisa da instrução que apagou.

Acho que a duplicidade acontecia na página teste.asp, pois a página conexão é carregada na página teste, entendeu? :blink:

´

Acho que me enrolei.... :P

Até mais..

Danilo :ph34r:

Compartilhar este post


Link para o post
Compartilhar em outros sites
Olá,

Você tentou o contrário, ao invés de apagar no arquivo conexão, apagar no arquivo teste?

Não testei, mas acho que a página conexão precisa da instrução que apagou.

Acho que a duplicidade acontecia na página teste.asp, pois a página conexão é carregada na página teste, entendeu? :blink:

´

Acho que me enrolei.... :P

Até mais..

Danilo :ph34r:

TENTEI MAS TB NÂO FUNCIONOU

Compartilhar este post


Link para o post
Compartilhar em outros sites

06/05/2009

Depois de muita ajuda, foi possivel criar a conexão sem erros, vamos la

no arquivo conexao.asp ficou assim:

<%

strDataSoure = "xxxxxxxxx" 
strDataBase ="xxxxxxxxx" 
strUser = "xxxxxxxx" 
strPWD = "xxxxxxxxxxx" 
    
strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure
strConexao = strConexao & "; DATABASE=" & strDataBase
strConexao = strConexao & ";Uid="& strUser
strConexao = strConexao & ";Pwd="& strPWD


%>
e arquivo para chamar ficou assim ( exemplo ) testeconexao.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="Includes/config.asp" -->
<html>
<head>
<title>CONEX&Atilde;O</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
strQuery = "select cat_geral from categoria where cat_categoria = 'mercearia' ORDER BY RAND()"
set objConn = server.CreateObject("ADODB.Connection")
objConn.open strConexao
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open strQuery, strConexao
do until rs.EOF
for each x in rs.Fields
Response.Write(CStr(x.Value)) & " "
next
Response.Write "<br>"
rs.MoveNext
loop

objConn.close
set rs = nothing
set objConn = nothing
%>

Agradeço a todos que ajudaram.

Demais Muito Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...