Erro ao conectar com BD no servidor..

Nando Leads · Julho 2, 2007

tenho uma tabela que seleciona dados de um banco envia um email....quando tento enviar o mesmo acontece esse erro... Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xfe4 Thread 0x9a0 DBC 0xda09024 Jet'. /Fernando/Teste/contato_envia.asp, line 11alguem por ae sabe oq acontesse?

Rodrigo1 · Julho 2, 2007

poe a linha 11 ae !!!!e a parte do select e tal!

Nando Leads · Julho 2, 2007

ae esta a parte do select...a linha 11 é a conexão...Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb") set rsquery = conn.execute("select * from Email") varEmail = rsquery("Email") DIM Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = TrueMail.Host = "www.leadsnet.com.br"Mail.From = Request.Form("txtEmail") Mail.FromName = Request.Form("txtNome") Mail.AddAddress varEmailgostaria de adaptar esse codigo para mandar varios email ao mesmo tempo, para email fixos no codigo, sem BD, fazendo um loop...ou seja, envia um email e depois envia o outro...

Ivan.Teles · Julho 2, 2007

seu banco não esta aberto por outro programa não?

Nando Leads · Julho 2, 2007

<%		varTelefone = Request("txtFone")	varDuvidas  = Request("txtTipo")	varMsg      = Request("txtObservacoes")	varTel      = "Telefone: "				DIM Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = TrueMail.Host = "www.teste.com.br"Mail.From = Request.Form("txtEmail") Mail.FromName = Request.Form("txtNome") Mail.AddAddress  "teste@teste.com"Mail.Subject = varDuvidas 		Set objFSO = CreateObject("Scripting.FileSystemObject")    	Set objHTML = objFSO.OpenTextFile( server.MapPath(".") & "\contato.html", 1, True, 0)Mail.Body =  objHTML.ReadAllOn Error Resume Next Mail.Send If Err <> 0 Then    Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><!-- saved from url=(0027)http://www.promatre.com.br/ --><HTML><HEAD><TITLE>LEADS - Transporte Executivo</TITLE><META http-equiv=Content-Type content="text/html; charset=iso-8859-1"><STYLE type=text/css>BODY {	MARGIN: 0px;	background-color: #F2FFF3;}A:link {	COLOR: #666666; TEXT-DECORATION: none}A:visited {	COLOR: #666666; TEXT-DECORATION: none}A:hover {	COLOR: #999999; TEXT-DECORATION: underline}A:active {	COLOR: #666666; TEXT-DECORATION: none}.style4 {	FONT-SIZE: 9px; COLOR: #006600; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}.style5 {	font-family: Tahoma;	font-size: 16px;}</STYLE><META content="MSHTML 6.00.6000.16386" name=GENERATOR></HEAD><BODY><TABLE cellSpacing=0 cellPadding=0 width=779 align=center bgColor=#F2FFF3 border=0>  <TBODY>  <TR>    <TD></TR>  <TR>    <TD colSpan=2><img src="http://www.leadsnet.com.br/Fernando/Teste/Menu_Principal.jpg" width="778" height="26" border="0" usemap="#Map"></TD>    <TD><IMG height=25 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD colSpan=2><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="779" height="192">      <param name="movie" value="http://www.leadsnet.com.br/Fernando/Teste/Movimento.swf">      <param name="quality" value="high">      <embed src="http://www.leadsnet.com.br/Fernando/Teste/Movimento.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="779" height="192"></embed>    </object></TD>    <TD><IMG height=192 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD rowSpan=2 bgcolor="#C1FFC6"><img src="http://www.leadsnet.com.br/Fernando/Teste/Menu_Informa.jpg" width="227" height="79"></TD>    <TD><img src="http://www.leadsnet.com.br/Fernando/Teste/Menu_Veiculos.jpg" width="551" height="26" border="0" usemap="#Map2"></TD>    <TD><IMG height=27 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD rowSpan=5 valign="bottom"><div align="center">      <p class="style5">	 			<%	  			If Err = 0 Then 	 			%>	  <img src="http://www.leadsnet.com.br/Fernando/Teste/contato_envia.jpg" width="536" height="377">	  			<%	  			End If 				Set Mail = Nothing 	  			%>	  </p>      </div></TD>    <TD><IMG height=52 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD bgcolor="#C1FFC6"> </TD>    <TD><IMG height=26 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD     rowSpan=2 bgcolor="#C1FFC6" MATRE - FEITO PARA VOCÊ!!!_arquivos/index_r6_c1.jpg> </TD>    <TD><IMG height=90 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD><IMG height=96 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD rowSpan=2 bgcolor="#C1FFC6"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="227" height="187">      <param name="movie" value="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/acesso_restrito.swf">      <param name="quality" value="high">      <embed src="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/acesso_restrito.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="227" height="187"></embed>    </object></TD>    <TD><IMG height=108 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD><div align="center"><img src="http://www.leadsnet.com.br/Fernando/Teste/Menu_3.jpg" width="536" height="66"></div></TD>    <TD><IMG height=79 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD colSpan=2><img src="http://www.leadsnet.com.br/Fernando/Teste/Menu_Rodape.jpg" width="778" height="22"></TD>    <TD><IMG height=22 alt=""       src="file:///C|/Users/Leandro/Desktop/PRO MATRE - FEITO PARA VOCÊ!!!_arquivos/spacer.gif" width=1       border=0></TD></TR>  <TR>    <TD colSpan=2>      <DIV align=right class=style4>Desenvolvido por L12 Comunicação </DIV></TD>    <TD> </TD></TR></TBODY></TABLE><map name="Map">  <area shape="rect" coords="20,2,95,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/index.html"><area shape="rect" coords="132,2,203,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/eventos.html"><area shape="rect" coords="241,2,314,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/seguros.html"><area shape="rect" coords="349,2,427,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/orcamento.html"><area shape="rect" coords="456,2,531,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/servicos.html"><area shape="rect" coords="563,0,643,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/localizacao.html"><area shape="rect" coords="685,1,753,26" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/contato.html"></map><map name="Map2">  <area shape="rect" coords="27,2,95,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/onibus.html">  <area shape="rect" coords="118,2,216,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/micro.html"><area shape="rect" coords="236,2,313,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/vans.html"><area shape="rect" coords="342,2,432,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/executivos.html"><area shape="rect" coords="452,2,538,24" href="Projeto Site Leads/Sistema/Leads email/html/Enviar Html/blindados.html"></map></BODY></HTML><%Conn.Close%>

Não mas do nada ele comessou a funcionar!!! Coisa de louco...agora to com dificuldade em criar o loop com emails pre determinado... oui seja...vou ter uma lista de email no codigo, emails fixos...para onde deverei mandar esse email...necessito de loop do codigo inteiro....ou seja, ele repete o codigo para cada email....o loop é facil... mas ñ estou conseguindo pensar em nada no momento...vou postar meu codigo ae para vcs entenderem melhor...

Nando Leads · Julho 3, 2007

Bom dia...Me desculpem por estar retomando esse assunto, mas ñ quero repetir o topico que sera fechado se eu fizer isso...Estou com problemas para fazer um loop com variaveis fixas no codigo.... ...consegui fazer oq eu quero com dados de um BD, emtao o loop esta certo...mas ñ consigo fazer com variaveis...vou postar o codigo e vcs entenderão melhor...:

<%	Dim Conn		Set Conn = Server.CreateObject("ADODB.Connection") 		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb") 		set rsquery = conn.execute("select * from Email")		varTelefone = Request("txtFone")	varDuvidas  = Request("txtTipo")	varMsg      = Request("txtObservacoes")	DIM Mail 	Set Mail = Server.CreateObject("Persits.MailSender") 	Mail.IsHTML = True	Mail.Host = "www.teste.com.br"	Mail.From = Request.Form("txtEmail") 	Mail.FromName = Request.Form("txtNome") 	while not rsquery.EOF 	varEmail = rsquery("Email")		Response.Write(varEmail)				Mail.AddAddress  varEmail		Mail.Subject = varDuvidas 			Set objFSO = CreateObject("Scripting.FileSystemObject")    		Set objHTML = objFSO.OpenTextFile( server.MapPath(".") & "\contato.html", 1, True, 0)		Mail.Body =  objHTML.ReadAll		rsquery.movenext	wend 	On Error Resume Next 	Mail.Send 				If Err <> 0 Then   	 	Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" 	End If <%	  			If Err = 0 Then 	 			%>	  <img src="http://www.teste.com.br/Fernando/Teste/contato_envia.jpg" width="536" height="377">	  			<%	  			End If															Set Mail = Nothing 					  			%>

preciso que esse codigo envie o mesmo email para esse 3 endereços por ex:var1 = "teste@teste.com"var2 = "teste2@teste.com"var3 = "teste3@teste.com"sendo q não posso repetir o comando: Mail.AddAddress varEmailpreciso realmente de um loop ou while....se puderem me ajudar agradesso,qualquer duvida post ae...

Entrar

Arquivado

Erro ao conectar com BD no servidor..

Recommended Posts

Nando Leads 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo1 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nando Leads 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ivan.Teles 23

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nando Leads 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nando Leads 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante