<% gorev=request("gorev") %>
<% if gorev="ekle" then %>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&mdbyolu&"")
Set efkan = Server.CreateObject("ADODB.Recordset")
sor = "Select * from emaillistesi"
efkan.Open sor,sur,1,3
if request.form("adi")="" or request.form("email")="" then
'Response.Write "
Tüm alanları doldurunuz...
"
Response.Write ""
Response.Write ""
Response.End
end if
kontrol1= InStr(request.form("email"),"@")
kontrol2= InStr(request.form("email"),".")
if kontrol1="0" or kontrol2="0" then
Response.Write ""
Response.Write ""
Response.End
end if
efkan.AddNew
efkan("tarih") = Trim(Request.Form ("tarih"))
efkan("adi") =temizle(Request.Form ("adi"))
efkan("soyadi") =temizle(Request.Form ("soyadi"))
efkan("email") =temizle(Request.Form ("email"))
efkan.Update
Response.Write ""
Response.Write ""
Response.end
efkan.close
%>
<% end if %>