Ir para conteúdo

POWERED BY:

Arquivado

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

Mimizinha

[Resolvido] Erro no SELECT

Por , em ASP Clássico

Recommended Posts

Mimizinha    0

Mimizinha
Postado

Pessoal!

 

Preciso da ajuda dos colegas.

Tenho uma página que envia campanhas de emails, estou tentando criar um, mas estou tendo erros no SELECT abaixo:

 

ERRO SQL:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e10'
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.
/enviar.asp, linha 12

CODIGO COMPLETO:

<!--#include file="conexao.asp" -->
<!--#include file="datahora.asp" -->
<%
 RESPONSE.BUFFER = TRUE
    QtdeMails = 1
     IF Request.QueryString("PagAtualEnvio") = "" OR Request.QueryString("PagAtualEnvio") = "0" THEN
    PagAtualEnvio = 1
            ELSE
    PagAtualEnvio = Request("PagAtualEnvio")
 END IF

 SQL = "SELECT * FROM News WHERE NewsCateg = "& Request.Form("codcategoria")
 response.write sql
 response.end
 SET BuscaContatos = Server.CreateObject("ADODB.Recordset")
     BuscaContatos.CursorLocation  = 3
     BuscaContatos.CursorType      = 2
     BuscaContatos.LockType        = 1
     BuscaContatos.Open              SQL, ObjCX
     BuscaContatos.PageSize        = QtdeMails
                     status        = ""

 IF NOT BuscaContatos.EOF THEN
        BuscaContatos.AbsolutePage = PagAtualEnvio
                   TotPag = BuscaContatos.PageCount
               StatusSend = StatusSend & Fix((PagAtualEnvio*100)/TotPag) & "%"
 FOR CONT = 1 TO BuscaContatos.PageSize
	 
 SET meuMail = Server.CreateObject("CDONTS.NewMail") 
     meuMail.From       = "emaildoremetente <email@remetente.com.br>"  
     meuMail.To         =  BuscaContatos("NewsEmail") 
     meuMail.Subject    = "nomedoremetente"
	 meuMail.Importance = 2
     meuMail.BodyFormat = 0 
     meuMail.MailFormat = 0 
     meuMail.Body       = "TESTE DE NEWSLETTER, PARA VER SE FUNCIONA REALMENTE...."

  IF meuMail.Send THEN            
			      Response.Write ""
                       ELSE 
				  Response.Write ""
                  END IF 
 SET meuMail = NOTHING 
 
 BuscaContatos.MoveNext 
 NEXT
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
 <%
IF Int(PagAtualEnvio) < Int(TotPag) THEN
%>
<table width="100%" height="100%" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td><table width="207" border="0" align="center" cellpadding="2" cellspacing="2">
        <tr>
          <td><div align="center" >Porcentagem de Mensagens Enviadas</div></td>
        </tr>
        <tr>
          <td bgcolor="#000000"><div style="background-color: #0066CC; width: <%=StatusSend%>;"><div align="center"><%=StatusSend%></div></div></td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table>
     </td>
    </tr>
  </table>
  <script LANGUAGE="javascript">function atualiza(){document.location.href="<%=Request.ServerVariables("SCRIPT_NAME")%>?PagAtualEnvio=<%=PagAtualEnvio+1%>"}setTimeout("atualiza()",20000);</script> 
<%
ELSE
%>
  <table width="100%" height="100%" border="0" cellpadding="2" cellspacing="2">
    <tr>
      <td><table width="207" border="0" align="center" cellpadding="2" cellspacing="2">
        <tr>
          <td><div align="center">Processo Finalizado</div></td>
        </tr>
        <tr>
          <td bgcolor="#000000"><div style="background-color: #CC0000; width: 100%;"><div align="center">100%</div>
          </div></td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table></td>
    </tr>
  </table>
  <script LANGUAGE="javascript">function redireciona(){document.location.href="emails.asp"}setTimeout("redireciona()",15000);</script> 
<%
END IF
END IF
%>
</BODY>
</HTML>
<%
 SET BuscaContatos = Nothing
     ObjCX.CLOSE
 SET ObjCX = Nothing
%>

Meu problema é que tenho um banco com emails, e eles estão categorizados por categoria.

Portanto notem lá no select, que estou recebendo um valor de uma página anterior, que DEVERIA SELECIONAR só os emails da CATEGORIA escolhida, e seja enviada pela paginação deste script COMPLETO.

 

Obrigado amigos, pois não estou conseguindo saber porque está dando erro no select.

Podem me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Antunes    0

Felipe Antunes
Postado

Eu teria que conhecer melhor o seu DB mas acredito que o erro seja nessa linha?

SQL = "SELECT * FROM News WHERE NewsCateg = "& Request.Form("codcategoria")

 

 

não estaria faltando uma aspas simples aqui?

SQL = "SELECT * FROM News WHERE NewsCateg = '"& Request.Form("codcategoria") &"'" ?

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