[Resolvido] Newsletter

Sergio P A Monteiro · Novembro 10, 2008

Olá galera, baixei um newsletter no http://www.plugmasters.com.br/downloads/ar...ewsletter-V1.0/ . Está funcionando quase tudo. está dando um erro no livroemail.asp . Acredito q este arquivo seja a lista de emails q a gente cadastra. Alguém poderia me ajudar a resolver este erro. Ou teriam uma newsletter bem completinha pra me indicarem. Muito obrigado.

hargon · Novembro 10, 2008

Poste a mensagem de erro e a parte do código que está com erro.

xanburzum · Novembro 10, 2008

Dá uma olhada nessa news

<head>
<script src="ajaxnews.js" type="text/javascript"></script>
</head>

<body>
<h3> Escreva a newsletter
 </h3>
<p> Digite seu endereço de e-mail para subscrever a nossa newsletter<br />
<form action="java script:subscribe(document.myform.email.value);" name="myform" id="myform">
<input type="text" name="email" id="email" />
<input type="submit" name="button" id="button" value="Submit" />
</form>
<div id="nlmsg"></div>
</p>
</body>

Agora que nós temos nosso formulário, necessitamos chamar o script do ajax quando o usuário submete o formulário. Criar uma página nova chamada “ajaxnews.js” e colar o seguinte var objXMLHttp

function subscribe(str) {
 var regEx = /^[\w\.\+-]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,6}$/;
 if (!regEx.test(str)) {
   document.getElementById('nlmsg').innerHTML = 'Email Invalido';
   alert(' Email Invalido!');
   return false;
 }

 objXMLHttp=createXmlHttpObject()
 
 if (objXMLHttp==null) {
   alert ('Seu browser não suporta o objeto XMLHttpRequest!');
   return;
 }
 
 var url='dosubscribe.asp?eml=' + str + '&sid=' + Math.random(); // prevent caching
 objXMLHttp.onreadystatechange = stateChanged;
 objXMLHttp.open('GET',url,true); // GET method
 objXMLHttp.send(null); // always use null for GET method
}
 
function createXmlHttpObject() {
 var req = null;
 try {
   req = new XMLHttpRequest(); //ie7, ff, safari
 }
 catch (e) {
   try {
	 req = new ActiveXObject("Msxml2.XMLHTTP"); //later ie
   }
   catch (e) {
	 try {
	   req = new ActiveXObject("Microsoft.XMLHTTP") // earlier ie
	 }
	 catch (e) {
	   // could not create XMLHttpRequest object
	   return false;
	 }
   }
 }
 return req;
}

function stateChanged()
{
 if (objXMLHttp.readyState == 0)  {
   document.getElementById("nlmsg").innerHTML = " Processando..."; //uninitialized
 }
 else if(objXMLHttp.readyState == 1)  {
   document.getElementById("nlmsg").innerHTML = " Processando..."; //loading
 }
 else if(objXMLHttp.readyState == 2)  {
   document.getElementById("nlmsg").innerHTML = " Processando..."; //loaded
 }
 else if(objXMLHttp.readyState == 3)  {
   document.getElementById("nlmsg").innerHTML = "Processando..."; //interactive
 }
 else if (objXMLHttp.readyState == 4 || objXMLHttp.readyState == "complete") {
   document.getElementById("nlmsg").innerHTML=objXMLHttp.responseText // completed
 }
}

A página final é a página do ASP que faz realmente a inserção em sua base de dados. E para ilustrar como trabalha, aqui um exemplo simples de uma indicação dinâmica da INSERÇÃO que você poderia usar como um guideline para a página de dosubscribe.asp:

<!-- #include file="sua_conexao.asp" -->
<%
' adicione o server side validation aqui
eml = Request.QueryString("eml")

sql="INSERT INTO tblSubscribers (fldEmail) VALUES '" & eml & "'"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
objConn.Execute(sql)
objConn.Close: Set objConn = Nothing
Response.Write("Obrigado!")
%>

existem vários ótimos exemplos para serem implemantados tb...

Sergio P A Monteiro · Novembro 10, 2008

Quando a gente clica em livroemail aparece a página:

O site não pode exibir a página

HTTP 500

Causas prováveis:

O site está em manutenção.

O site tem um erro de programação.

Você pode tentar:

Atualizar a página.

Voltar para a página anterior.

Mais informações

Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web.

Para obter mais informações sobre erros de HTTP, consulte a Ajuda.

Na verdade eu preciso desta newsletter pra enviar emails para clientes meus de meus produtos. Pra não ser necessário usar esse programas tipo "carteiro". Preciso enviar emails com conteúdo html e na verdade não tenho muito conhecimento de programação. Sou designer gráfico e faço alguns lay outs tb. Obrigado por sua ajuda.

xanburzum · Novembro 11, 2008

tira a opção do browser de exibir mensagens de erro amigavelmente

Vagner Bucioli Scala · Novembro 11, 2008

Olá Sérgio, em seu Explorer vai em Ferramentas >> Opções de Internet >> Aba Avançadas, e ache um box "Mostrar mensagens de Erros Http amigáveis" e a desabilita. Dê aplicar e novamente simule o erro.

Desta vez você poderá notar que virá a mensagem de erro mais específica ao invés desta padrão que você acabou de postar, daí é só postar o erro pra gente te ajudar ok?

Sergio P A Monteiro · Novembro 11, 2008

Obrigado pelas dicas amigos. a mensagem de erro é a seguinte:

Active Server Pages error 'ASP 0126'

Include file not found

/news/livroemail.asp, line 4

The include file '/include/adovbs.inc' was not found.

Vagner Bucioli Scala · Novembro 11, 2008

O seu arquivo livroemail.asp tem um include na linha 4 referenciando um outro arquivo, o adovbc.inc, que provavelmente deve conter alguma bibioteca responsável do sistema funcionar!

o código de erro está se queixando que não conseguiu achar este arquivo conforme indicado na linha 4, ou seja, na pasta "/include"

Dentro de onde se encontra o arquivo livroemail.asp, crie uma pastinha include e suba o arquivo adovbs.inc lá pra dentro e faça um novo teste!

Sergio P A Monteiro · Novembro 11, 2008

Já existe a pasta include onde está o arquivo livroemail.asp e dentro da pasta include está o arquivo adovbs.inc

Vagner Bucioli Scala · Novembro 11, 2008

tem como você postar pra gente uma parte do código na integra da sua livroemail.asp? principalmente nesta parte do include?

Sergio P A Monteiro · Novembro 11, 2008

<!-- #include file="Config.asp"-->

<%

'-------------------------------------------------------------

'Arquivo: livroemail.asp

'Descrição: Relaciona os emails cadastrados

'Criado dia 14/06/02 - por Flavio Cardoso

'http://www.codigolivre.com.br

'-------------------------------------------------------------

strSQL = "SELECT * From Lista order by id DESC"

Contar = "select count(*) as total from Lista"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorLocation = adUseClient

rs.Open strSQL, ConnStr, adOpenStatic, adLockReadOnly, adCmdText

RegistrosPorPagina = 15

If Request.QueryString("PaginaAtual") = "" Then

PaginaAtual = 1

Else

PaginaAtual = CInt(Request.QueryString("PaginaAtual"))

End If

set Contar = ConnStr.execute(Contar)

Total = Contar("total")

rs.PageSize = RegistrosPorPagina

rs.CacheSize = RegistrosPorPagina

TotalDePaginas = rs.PageCount

If PaginaAtual > TotalDePaginas Then PaginaAtual = TotalDePaginas end if

If PaginaAtual < 1 Then PaginaAtual = 1 end if

If rs.EOF Then

Response.write "<DIV ALIGN=""center"">"

Response.write "<BR><BR>"

Response.write "<B>" & Msg_NenhumEmail & "</B>"

Response.write "</DIV>"

Else

rs.AbsolutePage = PaginaAtual

RegistroAtual = 0

if (PaginaAtual*10) <= Total then

RegistroF = (PaginaAtual*10)

else

RegistroF = Total

end if

if RegistroAtual > 0 then

RegistroI = ((PaginaAtual*10) - 10)

else

RegistroI = 1

end if

Response.write "<TABLE BORDER=""0"" CELLPADDING=""1"" CELLSPACING=""0"" WIDTH=""100%"" ALIGN=""center"">"

Response.write "<TR>"

Response.write "<TD WIDTH=""300"" BGCOLOR=""#C0C0C0"" STYLE=""border: 2px outset #ffffff""> <font face=""Arial"" size=""2"">Enviado Email: </font> <IMG SRC=""images/setabaixo.gif"" BORDER=""0"" width=""12"" height=""6""></TD>"

Response.write "<TD WIDTH=""300"" BGCOLOR=""#C0C0C0"" STYLE=""border: 2px outset #ffffff""> <font face=""Arial"" size=""2"">Adicionado dia: </font> <IMG SRC=""images/setabaixo.gif"" BORDER=""0"" width=""12"" height=""6""></TD></TR>"

BCol = "#ECECEC"

Do While RegistroAtual < RegistrosPorPagina And Not rs.EOF

If BCol = "#ECECEC" Then

BCol = "#FFFFFF"

Else

BCol = "#ECECEC"

End If

Response.write "<TR><TD BGCOLOR=""" & BCol & """>"

Response.write " <A title=""Editar Email !"" href=""editar.asp?id=" & rs("id") & """><img src=""images/editar.gif"" border=""0""></a> "

Response.write "<A title=""Deletar Email !"" href=""deletar.asp?id=" & rs("id") & "&Serial=" & rs("SerialNumber") & "&modo=Email""><img src=""images/deletar.gif"" border=""0""></a> <font face=""Arial"" size=""2"">" & rs("Email") & "</font></TD>"

Response.write "<TD BGCOLOR=""" & BCol & """> <font face=""Arial"" size=""2"">" & rs("DataCriado") & "</font></TD></TR>"

RegistroAtual = RegistroAtual + 1

rs.MoveNext

Loop

Response.write "</TABLE>"

Response.write "<br><small> " & Total & " registros encontrados</small>"

If TotaldePaginas = 1 then

else

Response.write "<br><small> "

If PaginaAtual > 1 Then

Response.write " «« <a HREF=""livroemail.asp?PaginaAtual=" & PaginaAtual - 1 & """>Anterior</a> | "

else

end if

For I=1 to TotaldePaginas

if I = PaginaAtual then

Response.write "<font color=red>" & I & "</font> | "

else

Response.write "<a href=""livroemail.asp?PaginaAtual=" & I & """>" & I & "</a> | "

end if

Response.write "<a HREF=""livroemail.asp?PaginaAtual=" & PaginaAtual + 1 & """>Proxima</a> »» "

else

End if

set rs=Nothing

%>

Vagner Bucioli Scala · Novembro 11, 2008

estranho...era pra funcionar, aparentemente o include está normal!

tente ao invés de:

<!-- #include virtual="/include/adovbs.inc" -->

use:

<!-- #include file="include/adovbs.inc" -->

vamos ver o que acontece!

Sergio P A Monteiro · Novembro 11, 2008

Perfeito. Ficou certinho. Muito obrigado amigo. valew mwsmo as dicas e o tempo q dispensou comigo. Grande abraço

Arquivado

[Resolvido] Newsletter

Recommended Posts

Sergio P A Monteiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sergio P A Monteiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sergio P A Monteiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sergio P A Monteiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sergio P A Monteiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Bucioli Scala 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Sergio P A Monteiro 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

Fóruns

Tempo Real

Informação importante