5 replies to this topic

[Allan]

eae galera blz entao eu postei um topico sobre Newsletter ja mais me mandarao proucurar na pesquino do forum, eu nao achei nenhum topido falando algo de concreto sobre Newsletter alguem poderia me dizer como faz ?

obrigado um abraço a todos

[Luis Otávio]

vc quer a lógica ou o código?

pois bem, vai um código pronto ai:

pagina MAIL.asp

<Table width="166" cellspacing=0 cellpading=0>

<tr>
	<form method="POST" action="../news/cod.asp">
  <td width="43" height="39" valign="top">
   <span class="style2">E-mail</span> :  </td>
  <td valign="top">

      <input name="mail" MaxLength="50" type="text" id="mail" style="font-family : Verdana; font-size : 10px; background : White; border : 1px solid #000000; color : Black; width : 80px;">
      <input name="imagem" type="image" src="../../imgs/ok.gif" alt="OK" align="middle">
   
   </p> 	 </td>

    <tr>
    <td height="4"></td>
    
   <td width="113"></td>
    </tr>
    
</form>
</table>

Página COD.asp

<!--#include file="../connect/connectar.asp" -->
<title>Muito Obrigado</title><center>
<%
nome=request.form("nome")
mail=Request.Form("mail")
%>
<%
'FUNÇÃO QUE VALIDA O EMAIL
Function Valida_Email(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
Valida_Email = bIsValid
End Function
%>
<%
if Valida_Email(mail) = true then
response.write "Muito Obrigado, "
else
response.write "Você precisa digitar um e-mail válido para cadastro"
response.end
end if
%>
<%
Sql = "SELECT email FROM news WHERE email = '" & Request.form("mail")  & "'"
set Rs = DB.Execute(Sql)
If not Rs.Eof then
Response.write("Seu e-mail encontra-se cadastrados em nossos banco!")
response.end
else
'insere os dados
end if
%>   
<%
If (mail = "") then
 Response.write("Você deve digitar um e-mail para se cadastrar")
Else
set rs = DB.execute("INSERT INTO news (email,nome) Values('"&mail&"','"&nome&"')")
Response.write("E-mail adicionado com sucesso.")
End if
%>

troque a linha onde esta meu include para conexão com o banco de dados, com a sua conexão com o banco de dados... bem, este código esta pronto, e funcionando perfeitamente.... basta vc alterar de acordo com suas necessidades e configurações.

PS: No banco tem uma tabela chamada "news" com os campos "nome" e "email"
( para facilitar sua montagem )


espero ter ajudado.

[Allan]

puts ajudo muito velho valeu mesmo... mais eu queria saber como eu monto

abraços ate+

Edição feita por: Allan, 05/08/2004, 14:10.

[Luis Otávio]

vc quer saber a lójica?

bem, é bem simples...

vc tem uma pagina cadastro.html

que vai ter dois campos nome e email e um botão submit

pronto... e vai ter uma página codigo.asp

nesta página do código vc resgata o que foi digitado nos campos com o

request.form ("nome_do_campo")

intão fica

<%
nome = request.form ("nome_do_campo")
email = request.form ("nome_do_campo")
%>

depois de requisitado os dados que vc recuperou do form, é só vc inserir no banco com o comando insert into

depois, é claro, vc cria uma página de administração para enviar e-mail para quem está cadastrado.. mas dai ja ´´e outro assunto.. hehe

entendeu como funciona?

[Allan]

vixi to perdido velho nao vela a mau mais vc esta meio que falando em japones nao manjo nada disso tentei fazer e nao funcionou

e eu precisso de algum programa pra mecher com isso e asp ne
tem que ter algo instala soh nooob total nisso

eu to aprendendo agora a mecher com web

[Luis Otávio]

hehe, pq num falou antes....

vc ja leu este tópico? para iniciantes...

http://forum.wmonlin...showtopic=59377