Acil Yardım FormMail

<% dim bag dim baglanti dim kayitdizi dim komutmetni dim sonuc dim yol on error resume next yol = Server.MapPath("/db/veritabanıadi.mdb") bag="DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & yol set baglanti=server.CreateObject ("adodb.connection") set kayitdizi=server.CreateObject ("adodb.recordset") baglanti.Open bag komutmetni="SELECT * from defter" kayitdizi.Open komutmetni,baglanti,2,2 sonuc=Request.querystring("islem") if sonuc=1 then satir="" do while not kayitdizi.EOF Response.Write""&kayitdizi.Fields ("mail")&"" Response.Write satir kayitdizi.MoveNext loop end if if sonuc=2 then mail=Request.Form("mail") tarih=date() kayitdizi.AddNew kayitdizi.Fields ("mail")=mail kayitdizi.Update Response.Write "<center>Eklendi.." End if kayitdizi.Close baglanti.Close set kayitdizi=nothing set baglanti=nothing%>