Ir para conteúdo
Fórum Script Brasil
  • 0

Erro no "Includes/conexao.asp" RESOLVIDO

manogaucho

Perguntado por manogaucho,

 Share

Pergunta

manogaucho

manogaucho

Postado
Postado (editado)

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. ----------------------------------------------- 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!

Editado por manogaucho
Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0
Romero Dias

Romero Dias

Postado
Postado (editado)

Amigo,

O erro retornado, já fala o que houve de errado, diz que a pagina possui comandos repetidos, então para resolver, faça o seguinte, no arquivo de conexão coloque o seguinte.

Arquivo: conexao.asp

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

o erro ocore porq o comando <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> foi incerido duas vezes, e o asp, aceita somente uma linha de comando dessa, por pagina.

Faça o teste ai..

Abraço

Editado por Romero Dias
Link para o comentário
Compartilhar em outros sites
  • 0
manogaucho

manogaucho

Postado
  • Autor
Postado

Mudei o conexao.asp como pediu, so deixei assim, o resto deletei:

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 apresenta este erro: 
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 de permissão.

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

a mensagem de erro te retorna os 2 possiveis poblemas... use o tradutor do google, ou copie e cole o erro no google que é mais rapido de resolver.....

Data source name not found and no default driver specified

banco de dados não encontrado, especifique um endereço válido para seu banco.

Link para o comentário
Compartilhar em outros sites
  • 0
manogaucho

manogaucho

Postado
  • Autor
Postado (editado)

Eu utilizo já uma conexão so que não desta maneira, o endereço do banco esta correto, tentei colocar com www, http://, http://www, na frete do endereço, mas não funcionou, podera ser outro erro, ou o driver errado, de uma olhada no jeito que utilizo para conectar ao meu banco, o problema que toda select, que faço tem que criar esta conexão, meu host é da UOL, não sei se ajuda.

'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 pelo ajuda!!!

Editado por manogaucho
Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

já tentou localhost !!...

Local database

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;
Remote database
Driver={MySQL ODBC 3.51 Driver};Server=myServerAddress;Database=myDataBase;User=myUsername; Password=myPassword;Option=3;

Link para o comentário
Compartilhar em outros sites
  • 0
manogaucho

manogaucho

Postado
  • Autor
Postado
já tentou localhost !!...

Local database

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;
Remote database
Driver={MySQL ODBC 3.51 Driver};Server=myServerAddress;Database=myDataBase;User=myUsername; Password=myPassword;Option=3;

Mudei deu mesmo erro

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

Teste com essa conexão

dim cnn
sub abre_conectar
set cnn=server.CreateObject("adodb.connection")
'Abrimos uma conexão com o banco de dados 
cnn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=enderecodobancodedados;PORT=3306;DATABASE=nomedobancodedados;USER=usuariodobanco;PASSWORD=senhadobanco;OPTION=3;") 
end sub
sub fecha_conectar
     cnn.close
     Set cnn = nothing
end sub
Qd você usar a conexão é só chamar a sub .... exemplo 
<!--#include file="conexao.asp"-->
<%
call abre_conectar
%>

Link para o comentário
Compartilhar em outros sites
  • 0
manogaucho

manogaucho

Postado
  • Autor
Postado

Fiz e respondeu assim, onde tem xxxxxx eras meus dados que apareciam, apaguei por segurança.

Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

/Includes/conexao.asp, line 6

cnn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=XXXXXXX;DATABASE=XXXXXX;USER
--------------------------------------------------------------------------------------------------^

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...