Kogima Postado Julho 30, 2007 Denunciar Share Postado Julho 30, 2007 (editado) Ola pessoal, um colega mudou o site de servidor e no novo servidor ocorre esse erro, algupoderia me ajudar.Segue o site e o código que acusa o erro abaixo.www.recom.com.brO erro é mostrado no firefox....<%'Const dblTimer = Cstr(Timer())Public cnConn,strConnstrConn = Request.ServerVariables("APPL_PHYSICAL_PATH")If InStr(Request.ServerVariables("SERVER_NAME"),"digitalsi.local") = 0 Then strConn = Replace(strConn,"www","db") & "recom.mdb"Else strConn = Replace(strConn,"web","dados") & "recom.mdb"End IfstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strConn&";"'Response.Write(strConn)'**************************************************'' Funcao que abre a conexão como banco de dados ''**************************************************'Sub Conecta() If strConn <> "" Then Set cnConn = Server.CreateObject("ADODB.Connection") With cnConn .ConnectionTimeout = 15 .Mode = 3 .Open strConn End With End IfEnd Sub'**************************************************'' Funcao que Fecha a conexão como banco de dados ''**************************************************'Sub Desconecta() cnConn.Close set cnConn = NothingEnd Sub%> Editado Julho 30, 2007 por Kogima Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Raphael Teixiera Postado Julho 30, 2007 Denunciar Share Postado Julho 30, 2007 boa pessoal, dia 20/08/07 entrara no ar o mais novo portal asp, curso asp a distancia com professores ou melhor instrutores capacitados com experiencia online para tirar duvidas e explicar o conteudo.havera 2 turmassendo que aula serao 5 vezes na semana segunda a sexta - com uma prova no fim de semanaUma pela manha das 9:30 as 10:30Uma pela Tarde das 14:30 as16:00Terá uma central de atendimento ao aluno onde o aluno também tera atendimento exclusivo para tirar duvidas.Interessados enviar email para raphael.teixeira@MSN.com ou sistemadesign@gmail.comsite esra quasse todo pronto so falta o host para hospedar e arruamr algumas coisas. Conteúdo do Curso:BásicoIntrodução à Active Server Pages;Configuração do servidor Web: PWS / IISObjeto Response Trabalhando com o Objeto Err Formatando Dados Introdução sobre Formulários HTMLVariáveis Operadores ASP Objeto Request Fluxo de Programação Include Files Laços Cookies Objeto Server Funções e Procedimentos (Functions e Subs) Criação de Objetos no ServidorFunções do Browser / Browser Capabilities Bancos de DadosGlobal.AsaSessions e ApplicationsModelagem de Dados - Entidades, Normalização, Tipos de DadosStructured Query Language - Conceitos, Comandos, Sintaxe.Conexões com banco de dados O OBJETO RECORDSET Listando registros Inserção de dados em tabelas(insert, addmew)Excluindo registros de um banco de dados Procura em banco de dadosAtualizando dados Paginação de RecordSets Outros Objetos e ComponentesEnvio de Emails pelo CDONTS, ASPEmail e JMail;O Objeto Scripting ArraysFileSystemObject - Trabalhando com Arquivos e PastasEntre mais coisa mande um email que lhe enviarei o conteudo do Curso todo, o curso tera a duração de 2 meses obrigado.Atenção se Você já programa em ASp também pode fazer esse curso, n é so para usuarios Iniciantes também é para usuarios intermediarios.o curso tera certificado, mais o aluno tem que passar por uma avaliação online no final do curso.Interessados enviar email para raphael.teixeira@MSN.com ou sistemadesign@gmail.comGrato pelo Atençãonão PERCA ESSA OPORTUNIDADERaphael Teixeira Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Kogima
Ola pessoal, um colega mudou o site de servidor e no novo servidor ocorre esse erro, algupoderia me ajudar.
Segue o site e o código que acusa o erro abaixo.
www.recom.com.br
O erro é mostrado no firefox....
<%
'Const dblTimer = Cstr(Timer())
Public cnConn,strConn
strConn = Request.ServerVariables("APPL_PHYSICAL_PATH")
If InStr(Request.ServerVariables("SERVER_NAME"),"digitalsi.local") = 0 Then
strConn = Replace(strConn,"www","db") & "recom.mdb"
Else
strConn = Replace(strConn,"web","dados") & "recom.mdb"
End If
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&strConn&";"
'Response.Write(strConn)
'**************************************************'
' Funcao que abre a conexão como banco de dados '
'**************************************************'
Sub Conecta()
If strConn <> "" Then
Set cnConn = Server.CreateObject("ADODB.Connection")
With cnConn
.ConnectionTimeout = 15
.Mode = 3
.Open strConn
End With
End If
End Sub
'**************************************************'
' Funcao que Fecha a conexão como banco de dados '
'**************************************************'
Sub Desconecta()
cnConn.Close
set cnConn = Nothing
End Sub
%>
Editado por KogimaLink para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.