Newsletter - ASP para PHP
Olá Galera, to com um script de Newsletter em asp que captura os e-mails e salva em um arquivo de bloco de notas .txt
o meu servidor é em PHP e não roda asp.
Quero saber se tem como eu transforma o script em php.
abaixo segue o <form:
<form name="form1" method="post" action="ProcLista.asp">
<div align="center">
<input type="text" name="NovoEmail" size="24">
<br /><br />
<input type="submit" name="Submit" value="OK" onClick="FDK_AddEmailValidation('form1','document.form1.NovoEmail',true,true,'\'Você deve digitar um e-mail correto !\'');FDK_Validate('form1',true,false,'<< % ALERTA DE E-MAIL % >>\n\n');return document.MM_returnValue">
</div>
</form>esse acima é o form onde coloco no site.
abaixo que o script em asp ProcLista.asp :
<%
'Variáveis e ambiente global...
Option Explicit
Response.Expires = -1600 'controle de cache no cliente
Response.CacheControl = "Private" 'controle de cache na rede
Dim lista,objLista,objFSO,NovoEmail,msg,gravar,email
NovoEmail = Request("NovoEmail")
If NovoEmail <> "" then
lista = Server.MapPath("lista.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'verificação do e-mail...
Set objLista = objFSO.OpenTextFile(lista,1)
If objLista.AtEndofStream = False then
Do While Not objLista.AtEndofStream
email = objLista.ReadLine
If email = NovoEmail then
gravar = false
msg = "Seu e-mail não foi cadastrado , pois o mesmo já se encontra em nosso banco de dados."
Exit Do
Else
gravar = true
msg = "teste no true"
End If
Loop
Else
gravar = true
End If
objLista.Close()
Set objLista = Nothing
If gravar = true then
'gravação do e-mail...
Set objLista = objFSO.OpenTextFile(lista, 8)
objLista.WriteLine(NovoEmail)
objLista.Close()
Set objLista = Nothing
Set objFSO = Nothing
msg = "Obrigado, a partir de hoje você estará recebendo nossos informativos!"
End If
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=msg%> </font></p>
<p><a href="../default.asp"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">voltar</font>
</a>
</p>
</body>
</html>e o arquivo chamdo de lista.txt onde todo os endereços de e-mail fica armazenados..
um código bem simples mais é em asp e quero em php,
tem como ?
Obrigado!
Discussão (1)
Carregando comentários...