 |
<%
elistad=request("elistad")
elistmail=request("elistmail")
TARIH=request("TARIH")
listeye=request("listeye")
if elistad="" or elistmail="" then%>
Bilgilerinizde Eksiklik Var.
Geri Dönüp Tekrar Deneyiniz...
<%
else
if listeye="ekle" then
%>
<%
set mailrs=server.createobject("ADODB.RECORDSET")
mailsql="SELECT * from EMAIL where EMAIL='"&elistmail&"'"
set mailrs=conn.execute(mailsql)
if mailrs.BOF or mailrs.EOF then
set eklers=server.createobject("ADODB.RECORDSET")
eklesql="insert into EMAIL (ADSOYAD,EMAIL,TARIH) values('"&elistad&"','"& elistmail&"','"& TARIH&"')"
set eklers=conn.execute(eklesql)
%>
| Sayın <%=elistad%> |
| <%=elistmail%> |
Mail listemize eklenmiştir.
İlginiz İçin teşekkür ederiz.
<%=siteadi%> Yönetimi Adına
<%=siteyetkili%>
|
<%
else
%>
| Sayın <%=elistad%> |
| <%=elistmail%> |
Daha önce mail listemize eklenmiştir.
Teşekkür Ederiz.
<%=siteadi%> Yönetimi Adına
<%=siteyetkili%>
|
<%
end if
%>
<%
elseif listeye="cikar" then
silsql="delete from EMAIL where EMAIL='"&elistmail&"'"
conn.Execute(silsql)
%>
| Sayın <%=elistad%> |
| <%=elistmail%> |
Mail Listemizden silinmiştir.
<%=siteadi%> Yönetimi Adına
<%=siteyetkili%>
|
<%
end if
end if
%>
|
 |
