Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

_Fábio_

com o BD

Por , em ASP Clássico

Recommended Posts

_Fábio_    0

_Fábio_
Postado

Estou com o problema abaixo e não sei o que está ocasionando isso, eu já dei permissão no diretorio, no arquivo, já verifiquei o endereço diversas vezes, será que alguem pode me dar uma luz?Tipo de erro:Provider (0x80004005)Erro não especificado/propag/FUNCOES/bib_conexao.asp, line 4

Compartilhar este post

Link para o post
Compartilhar em outros sites

_Fábio_    0

_Fábio_
Postado 
<!--Bib Conexao.asp--><%sub abre_conexao  Set Conexao = Server.CreateObject("ADODB.Connection")  Conexao.Open "DBQ=D:\WEB\PROPAG\DADOS\BD_PROPAG.mdb;Driver={Microsoft Access Driver (*.mdb)}"end subsub fecha_conexao	 Conexao.close	 Set Conexao = nothingend sub %><!--pagina que estava rodando --> <!--#include file="../FUNCOES/Fc_Visual.asp"--><!--#include file="../FUNCOES/Fc_Conexao.asp"--><!--#include file="../FUNCOES/Bib_Conexao.asp"--><%   Session("usuario")= Session("usuario")	 Session("senha")= Session("senha")	    	 codigo_setor = Session("codigo_setor") Dim Conexao, variavelConexaoBloqueia = 0sql_seleciona = "SELECT CICLO_VENDEDOR_SETOR.codigo_setor, PROJETO_MEMBROS.nome_guerra FROM PROJETO_MEMBROS INNER JOIN CICLO_VENDEDOR_SETOR ON PROJETO_MEMBROS.codigo_funcionario = CICLO_VENDEDOR_SETOR.codigo_funcionario GROUP BY CICLO_VENDEDOR_SETOR.codigo_setor, PROJETO_MEMBROS.nome_guerra HAVING CICLO_VENDEDOR_SETOR.codigo_setor = " & codigo_setor call abre_conexaoSet tab_seleciona = Conexao.Execute(sql_seleciona)codigo_setor = tab_seleciona("codigo_setor")sql_setor = "select nome_setor from PROJETO_SETORES_VENDAS where codigo_setor = "& codigo_setor & ""Set tab_setor = Conexao.Execute(sql_setor)nome_setor = tab_setor("nome_setor")nome_guerra = tab_seleciona("nome_guerra")'************************************** FIM IDENTIFICAÇÃO ************************************sql_ultimo = " select max(data_inicio) as ultimo_registro from PROJETO_ITINERARIO where codigo_setor = "& codigo_setor &""set tab_ultimo = Conexao.Execute(sql_ultimo)ultimo_registro = tab_ultimo("ultimo_registro")ultimo_registro_form = month(ultimo_registro) & "/" & day(ultimo_registro) & "/" & year(ultimo_registro)ultimo_registro_memo = ultimo_registroultimo_registro = ultimo_registro_formsql_semana = "SELECT PROJETO_ITINERARIO.codigo_itinerario, PROJETO_ITINERARIO.codigo_setor, PROJETO_ITINERARIO.codigo_regiao, PROJETO_ITINERARIO.codigo_projeto, PROJETO_ITINERARIO.data_inicio, PROJETO_ITINERARIO.data_fim FROM PROJETO_ITINERARIO WHERE (((PROJETO_ITINERARIO.codigo_setor)= "& codigo_setor &") AND ((PROJETO_ITINERARIO.data_inicio)=#" & ultimo_registro& "#))"set tab_semana = Conexao.Execute(sql_semana)codigo_itinerario = tab_semana("codigo_itinerario")data_inicio = tab_semana("data_inicio")data_fim = tab_semana("data_fim")data_inicio_form = month(data_inicio) & "/" & day(data_inicio) & "/" & year(data_inicio)data_inicio_memo = data_iniciodata_inicio = data_inicio_formdata_fim_form = month(data_fim) & "/" & day(data_fim) & "/" & year(data_fim)data_fim_memo = data_fimdata_fim = data_fim_form%><html><head><title>SIM - Itinerário de Visitas</title><link rel="stylesheet" href="../CSS/gerencia.css" type="text/css" media="screen"></head><body><!--#include file="menu_superior_gerencia.htm"--><table cellspacing="0" cellPadding="0" width="778" border="1" bordercolorlight="#E9EAE5" bordercolordark="#FFFFFF">	<tr>		<td bgcolor="#E9EAE5" height="18" align="center" colspan="6"> <b>ITINERÁRIO DE VISITAS</b></td>	</tr></table><table cellspacing="0" cellPadding="2" width="778" border="1" bordercolorlight="#E9EAE5" bordercolordark="#FFFFFF">	<tr>		<td width="259" bgcolor="#F5F3F4" align="center"><b>Representante: </b><% = nome_guerra %></td>		<td width="259" bgcolor="#F5F3F4" align="center"><b> Setor: </b><% = nome_setor %></td>		<td width="260" bgcolor="#F5F3F4" align="center"><b>Semana: </b><% = data_inicio_memo %> a: <% = data_fim_memo %></td>	</tr></table><table cellspacing="0" cellPadding="2" width="778" border="1" bordercolorlight="#E9EAE5" bordercolordark="#FFFFFF">	<tr>		<td bgcolor="#F5F3F4" width="70"><b> Semana</b></td>		<td bgcolor="#F5F3F4" width="354" align="center"><b>8 horas</b></td>		<td bgcolor="#F5F3F4" width="354" align="center"><b>14 horas</b></td>	</tr>	<%	sql_itinerario = "select codigo_hospital from PROJETO_ITINERARIO_DETALHES where codigo_itinerario = "& codigo_itinerario& " order by dia, horario"	set tab_itinerario = conexao.execute(sql_itinerario)	dia_semana = 1	do while not tab_itinerario.EOF and contar < 10	dia_semana = dia_semana + 1	%>	<tr>		<td> <% call dbLabel("DIAS_SEMANAS", "id_semana",dia_semana, "dia_semana",variavelConexao) %></td>		<%			contar = 0			do while contar < 2 and NOT tab_itinerario.EOF		%>		<td><b>Local:</b> <% call dbLabel("HOSPITAL_CADASTRO", "codigo_hospital",tab_itinerario("codigo_hospital"), "nome_hospital",variavelConexao) %><br>		<b>Endereço:</b> <% call dbLabel("HOSPITAL_CADASTRO", "codigo_hospital",tab_itinerario("codigo_hospital"), "endereco",variavelConexao) %><br>		<b>Bairro:</b> <% call dbLabel("HOSPITAL_CADASTRO", "codigo_hospital",tab_itinerario("codigo_hospital"), "bairro",variavelConexao) %><br>		<b>Cidade:</b> <% call dbLabel("HOSPITAL_CADASTRO", "codigo_hospital",tab_itinerario("codigo_hospital"), "cidade",variavelConexao) %><br>		</td>					<%		 tab_itinerario.Movenext		 contar = contar + 1		 If contar=2 then		%>	</tr>	<% End If		 Loop	   Loop	%>	</tr></table><br><table border="0" width="200" align="center">	<tr>		<td align="center"><a href="javascript:history.go(-1)" onMouseOver="document.figura.src='../imagens/voltar_on.gif'" onMouseout="document.figura.src='../imagens/voltar_off.gif'"><img src="../imagens/voltar_off.gif" border="0" name="figura"></a></td>	</tr></table><br>

Compartilhar este post

Link para o post
Compartilhar em outros sites

os bacana    0

os bacana
Postado

o erro esta no<!--Bib Conexao.asp-->conferia o arquivo conexao.aspve se ele esta com a conexão do banco de dados corretocaso não funcione tente assim<!-- #include file=conexao.asp -->

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito