<% gel = "default.asp" gorev=request.querystring("gorev") If gorev<>"emailekle" then %>
EMAİL LİSTESİ

<% End If If gorev="emailekle" then if request.form("adi")="" Or request.form("adi")="Adınız" or request.form("email")="" then Response.Write "" Response.Write "" Response.End end if if emailkontrol(Request.Form ("email"))=false then Response.Write "" Response.Write "" Response.End end If email=temizle(Request.Form ("email")) sor = "Select * from emaillistesi where email='"&email&"' " efkan.Open sor,sur,1,3 adet=efkan.recordcount efkan.close If adet<>0 Then response.redirect gel else sor = "Select * from emaillistesi" efkan.Open sor,sur,1,3 efkan.AddNew efkan("tarih") = Trim(Request.Form ("tarih")) efkan("adi") =temizle(Request.Form ("adi")) efkan("email") =temizle(Request.Form ("email")) efkan.Update efkan.close response.redirect gel End If end if %>