O que devo fazer?

[paulofbc 0]

Olá pessoal,

 

tenho uma enquete em asp e numa pagina tem um tal código que ta dando pau na hora que vou visualizar na internet, a pagina que está com problema é a conecta.asp

 

O que mudo neste código para que a enquete funcione?

 

ASP [/tr][tr]<%

local=Request.ServerVariables("SERVER_NAME")

 

if local="www.registranet.com.br" or local="registranet.com.br" then

conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inetpub\clientes\alfastation.com.br\data\bd.mdb;Persist Security Info=False"

endereco_virtual="http://"&local&"/victor"

endereco_fisico="D:\inetpub\clientes\alfastation.com.br\victor"

end if

 

if local="victor-vick" or local="localhost" or local="alfa" then

conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\modulares\enquete2\bd.mdb;Persist Security Info=False"

endereco_virtual="http://"&local&"/modulares/enquete2"

endereco_fisico="C:\Inetpub\wwwroot\modulares\enquete2\"

end if

 

set conn = Server.CreateObject("adodb.connection")

conn.open conexao

%>

[/tr]

[Salgado 4]

Traduza o "dá pau" para o código de erro que exibe ou uma descrição do erro que fica mais fácil de ajudar.

[paulofbc 0]

Fala Salgado, beleza?

 

seguinte, o erro que a pagina gera é esse:

Microsoft OLE DB Provider for ODBC Drivers erro '80004005' [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /enquete/conecta.asp, line 17

Acredito que possa ser o caminho do DB, mas sei lá.....

 

e a linha que ta apontando o erro é essa:

ASP [/tr][tr]conn.open conexao[/tr]

um abraço!

 

Paulo Cardoso

[paulofbc 0]

ah!a pagina que se encontra a enquete é www.registranet.com.br/enquete/enquete.aspObs: esta pagina conecta.asp do mesmo jeito que eu baxei o código eu passei para o FTP, portanto eu não modifiquei nada no código.um abraço!

[Salgado 4]

você deve verificar o endereço fisico de seu site.

[paulofbc 0]

você deve verificar o endereço fisico de seu site.

Como assim?

[Salgado 4]

Essa enquete, você pegou pronta?

<%

local=Request.ServerVariables("SERVER_NAME")

 

conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("data/bd.mdb") &";Persist Security Info=False"

endereco_virtual="http://"&local&"/victor"

 

set conn = Server.CreateObject("adodb.connection")

conn.open conexao

%>

[/tr]

Troque o seu arquivo de conexão por esse e teste.

[paulofbc 0]

Essa enquete, você pegou pronta?

Sim! eu peguei ela deste tal victor

[paulofbc 0]

Olá Salgado, eu troquei o meu código por este que voce me passou e deu certo, só que a pagina de enquete.asp ficou a pagina em branco.

 

daí eu entrei na pagina http://www.registranet.com.br/enquete/programa e deu o seguinte erro do script:

 

Microsoft JET Database Engine erro '80004005' Não foi possível encontrar o arquivo 'd:\web\registranet\www\enquete\programa\bd.mdb'. /enquete/conecta.asp, line 8

[paulofbc 0]

Salgado???