Ir para conteúdo

POWERED BY:

Arquivado

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

kania

[Resolvido] Erro com conexão do BD

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Olá pessoal, estou com um probelma totalmente estranho.

 

Tenho os seguintes códigos, só para entenderem que estou usando as mesmas linhas de comando e abertura do BD, o que deveria funcionar para todas as paginas de forma igual, porem para esta esta dando o erro como se a tabela em questão "AGENDA" não existice ou estive escrita errada.

 

Lista_agenda.asp

<!--#include file="verificando_login.asp"-->
<!--#include file="../conexao/conexao.asp"-->
<%
 Dim ip
ip = Request.ServerVariables("REMOTE_ADDR") 
loga = session("logar")
nivel=session("nivel")

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from usuarios_admin where login='"&loga&"'"
RS.Open SQL,Conn,3,3

nome=RS("Nome")



   %>
<html>
<head>
<title>.:: Ação & Sucesso | Seu Crescimento Profíssional Começa Aqui!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../estilo/estilo.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="761" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td height="80"  class="Form2">
<!--'#include file="topo_logado.asp"-->
</td>
  </tr>
  <tr>
	<td valign="top" class="Form2"> 
	  <table width="100%" border="0" cellspacing="5" cellpadding="0">
		<tr>
		  <td width="200" valign="top"><table width="100%" border="0" cellspacing="5" cellpadding="0">
			  <tr>
				<td><!--'#include file="menu_esq.asp"--></td>
			  </tr>
			</table></td>
		  <td>
		  <table width="100%" border="0" cellspacing="5" cellpadding="0">
			  <tr> 
				<td class="textoData">  </td>
				<td><span class="Tahoma12Cinza">Eventos já cadastrados:</span><br> 
				  <span class="textoData"> para editar ou excluir um evento clique 
				  nos ícones correspondentes ao evento</span></td>
			  </tr>
			  <tr>
				<td class="textoData"> </td>
				<td height="5"></td>
			  </tr>
			  <tr>
				<td class="textoData"> </td>
				<td height="30" class="botao"><div align="center">Clique <a href="cad_evento.asp">aqui</a> 
					para cadastrar um novo evento</div></td>
			  </tr>
			  <tr> 
				<td height="104">  </td>
				<td> <div align="center">
					<%

		
Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from agenda order by mes desc, dia, cidade" 
RS.Open SQL,Conn,3,3
IF RS.EOF then %>
					<span class="Tahoma20vermelho">Nenhum evento cadastrado<br>
					Clique <a href="cad_evento.asp">aqui</a> para cadastrar um 
					novo evento</span> 
					<%Response.End 'paramos o programa
		ELSE
total = rs.recordcount
   x = 0
   do while x < total
dest=Rs("destaque")
   %>
				  </div>
				  <table width="100%" border="0" cellspacing="3" cellpadding="0">
					<tr> 
					  <td width="10%" rowspan="2" class="Tahoma12CinzaItalico"> 
						<table width="64" border="0" cellspacing="5" cellpadding="0">
						  <tr class="botao"> 
							<td> <div align="center">Editar</div></td>
							<td> <div align="center">Excluir</div></td>
						  </tr>
						  <tr class="botao"> 
							<td><a href="edita_eventos.asp?id=<%=rs("id")%>"><img src="imagens/11.jpg" width="32" height="32" border="0"></a></td>
							<td><a href="deleta_evento.asp?id=<%=rs("id")%>"><img src="imagens/proibido.jpg" width="32" height="32" border="0"></a></td>
						  </tr>
						</table></td>
					  <td width="10%" class="Tahoma12CinzaItalico">Evento:</td>
					  <td colspan="3" class="Tahoma11Cinza"><a href="/mostra_evento.asp?id=<%=Rs("id")%>" target="_blank"><%=Rs("tipo")%> em <%=Rs("cidade")%></a> </td>
					  <td width="55%" rowspan="2" class="Tahoma11Cinza"><div align="center"><a href="envia_e-mail_evento.asp?idAgenda=<%=Rs("id")%>"><img src="imagens/envia_email.png" width="64" height="64" border="0"></a></div></td>
					</tr>
					<tr> 
					  <td class="Tahoma12CinzaItalico">Data:</td>
					  <td width="24%" class="Tahoma11Cinza"><%=RS("dia")%> de <%=RS("mes")%> de <%=RS("ano")%></td>
					  <td width="11%" class="Tahoma12CinzaItalico">Hora:</td>
					  <td width="55%" class="Tahoma11Cinza"><%=RS("hora")%></td>
					</tr>
					<tr> 
					  <td colspan="6" class="Tahoma12CinzaItalico"><hr></td>
					  <%
  x = x + 1
  rs.movenext
  loop
  end if
  rs.close
%>
					</tr>
				  </table></td>
			  </tr>
			  <tr> 
				<td colspan="2"> </td>
			  </tr>
			</table></td>
		</tr>
	  </table> 
	  
	
	</td>
  </tr>
  <tr>
	<td height="25"  class="Form2"><div align="center">Painel Controle - Versão 
		2.0 </div></td>
  </tr>
</table>
</body>
</html>

envia_e-mail_evento.asp

<!--#include file="../conexao/conexao.asp"-->
<!--#include file="../conexao/conexao2.asp"-->
<!-- #include file="../newsletter/Config.asp"-->
<%
'email=request.Form("email")
idEvento= request.QueryString("idAgenda")
response.Write (""&idEvento&"") aqui coloquei somente para ver se o idEvento estava conseguindo retornar o valor correto

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from agenda where id="&idEvento
RS.Open SQL,Conn,3,3

tipo=Rs("tipo")
hora=RS("hora")
dia=Rs("dia")
mes=Rs("mes")
ano=Rs("ano")
contato=Rs("contato")
inserido=Rs("inserido")
telefone=Rs("telefone")
endereco=Rs("endereco")
cidade=Rs("cidade")
estado=Rs("estado")
local=Rs("local")
custo=Rs("custo")
obs=Rs("obs")


Set RS2 = Server.CreateObject("adodb.recordset")
SQL = "select * from lista"
RS2.Open SQL,Conn,3,3

email=Rs2("email")

'response.Write("ok")

'response.Redirect("envia_email_senha.asp?nome="&nome&"&email="&email&"&login="&login&"&senha="&senha&"")
   
Set Mail = Server.CreateObject("Persits.MailSender") 

'Servidor de SMTP 
Mail.Host = "localhost" 

'E-mail do remetente 
Mail.From = "suporte@acaoesucesso.com.br"

'Configura e-mail de retorno
Mail.MailFrom = "suporte@acaoesucesso.com.br"

'Remetente 
Mail.FromName = "Suporte Ação e Sucesso" 

'Destinatario 
Mail.AddAddress ""&email&"" 

'Com Copia
'Mail.AddCC "cc1@dominio.com.br", "Nome"
'Mail.AddCC "cc2@dominio.com.br", "Nome"
'Mail.AddCC "cc3@dominio.com.br", "Nome"

'Assunto da mensagem 
Mail.Subject = ""&tipo&"" 

'Corpo da mensagem 
'Mail.Body = "Olá!, "&nome&"" & Chr(13) & Chr(10) & "Estes são os dados solicitados através do nosso site" & Chr(13) & Chr(13) &_
'"Nome: "&nome&"" & Chr(13) & "E-Mail: "&email&"" & Chr(13) & "Login: "&login&"" & Chr(13) & "Senha: "&senha&""& Chr(13) & Chr(13) &_
'"Obrigado por utilizar nossos Serviços."& Chr(13) &"Suporte Ação & Sucesso"& Chr(13) &"www.acaoesucesso.com.br"& Chr(13) & Chr(13) &_
'Chr(13) & Chr(13) & Chr(13) & Chr(13) &""


Mail.Body = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>Evento: </b>" & tipo &_
"<br><b>Custo: </b>" & custo & "<br><b>Data: </b>" & dia & " de " & mes & " de " & ano & " - <b>Hora: </b>" & hora &_
"</font></p><br><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>Local:</b>" & local &_
"<br><b>Endereço: </b>" & endereco &_
"<br><b>Cidade: </b>" & cidade &"<br><b>Estado: </b>" & estado &_
"<br><br><b>Dados para Contato:<br> Respon´savel: </b>" & contato & "<br><b>Telefone: </b>" & Telefone & _
"<br><b>Observações: </b>" & obs & "</font></p>" _
& "</body>" _
& "</html>"




On Error Resume Next 
Mail.Send 
If Err <> 0 Then 
Response.Write "Error encountered: " & Err.Description 
else
response.write "<script>location = ""lista_agenda.asp"";alert(""E-Mail's enviados com sucesso!"")</script>"
End If 
Set Mail = Nothing

rs.close 
rs2.close 
   %>

o erro ocorrer no blocco da pagina envia_e-mail_evento.asp

 

Set RS = Server.CreateObject("adodb.recordset")
SQL = "select * from agenda where id="&idEvento
RS.Open SQL,Conn,3,3

Agora alguém consegue me dizer o porque ele esta colocando o erro?

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'agenda'. Make sure it exists and that its name is spelled correctly.

/p_controle/envia_e-mail_evento.asp, line 11

Sendo que a conexão que uso na pagina envia_e-mail_evento.asp e´o mesmo que uso na pagina Lista_agenda.asp e esta esta funcioanndo direitinho, bem como todas as outras?

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