%
gel = "default.asp"
gorev=request.querystring("gorev")
If gorev<>"emailekle" then %>
<%
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 %>