Erro "Service Unavailable"

[danlopes 0]

Estou pondo um site no ar, e esta dando "Service Unavailable" sempre que acesso o site.

Funciona normalmente ate eu acessar.

Entrei em contato com o servidor de hospedagem e disse que pode ser má conexao com o db. Mas nao achei problema algum no sistema.

 

Alguem poderia me ajudar? Desde já agradeço.

 

CODE

<%

servidor = "localhost"

base_de_dados = "musicshop2"

login_bd = "musicshop2"

senha_bd = "15544"

 

ON ERROR RESUME NEXT

dim conexao

function Conectar

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "driver={MySQL ODBC 3.51 Driver}; server=" & servidor & "; uid=" & login_bd & "; pwd=" & senha_bd & ";database=" & base_de_dados

end function

function Desconectar

conexao.close

set conexao= nothing

end function

 

dim cnx

function Cn_cep

Set cnx = Server.CreateObject("ADODB.Connection")

cnx.Open "driver={MySQL ODBC 3.51 Driver}; server=" & servidor & "; uid=" & login_bd & "; pwd=" & senha_bd & ";database=" & base_de_dados

end function

function Des_cep

cnx.close

set cnx= nothing

end function

%>

[Ted k' 126]

servidor = "localhost"

quando você envia o arquivo para o ftp, você muda essa linha?