<%
LanguageID=Request("LanguageID")
m=(request.QueryString("m"))
select case m
case ""
%>
<%case "mailekle"
%>
<%
EMail=(Request.Form("EMail"))
if EMail="" Then
response.Redirect("default.asp")
else
Set Varmi=conn.Execute("Select * From MailList where EMail Like '"& EMail &"'")
if not Varmi.eof then
response.Write("Bu mail adresi daha önceden sistemimize kaydedilmiştir.")
else
conn.execute("insert into MailList (EMail) values ('"& EMail &"')")
response.Write("Mail adresiniz başarılı bir şekilde eklenmiştir.")
End IF
Varmi.Close
End If
%>
<%end select%>