<%
'önce forma girilen bilgileri değişkenlere atıyoruz
adsoy2=request.Form("adsoy")
tel2=request.Form("tel")
mail2=request.Form("mail")
konu2=request.Form("konu")
mesaj2=request.Form("mesaj")

'veri tabanına bağlanıyoruz
set baglanti=server.CreateObject("ADODB.Connection")
baglanti.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.MapPath("data/veri1.mdb")

'veri tabanındaki tablo1 isimli tabloya bağlanıyoruz.
set tablo=server.CreateObject("ADODB.Recordset")
SQL=("Select * from Tablo1 where id")
tablo.open SQL,baglanti,1,3

'yeni kayıt ekleyip forma yazılan bilgileri tabloya atıyoruz
tablo.addnew
tablo("adsoy")=adsoy2
tablo("telefon")=tel2
tablo("e-posta")=mail2
tablo("konu")=konu2
tablo("mesaj")=mesaj2
tablo.update
tablo.close
Response.Write("Kayitlar basariyla veritabanina kaydedilmistir.")
%>