Deftere Yaz
Firma Adı:
Gsm:
Sabit Telefon:
E-mail:
Mesajınız:

 

 

 

 

 

 

<% end sub %> <% sub kayit %> <% Set Tech = Server.CreateObject("ADODB.Connection") Tech.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani/zd.mdb") ad = Request.Form ("firma adı") gsm = Request.Form ("gsm") sabit telefon = Request.Form ("sabit telefon") email = Request.Form ("email") mesaj = Request.Form ("mesaj") Set Rs = Server.CreateObject ("ADODB.RecordSet") StrSql = "Select * from zd" Rs.Open StrSql, Tech, 1, 3 'doldurulmamis form kutucuklarini doldurulmasini istiyoruz Rs.AddNew Rs("firma adı")=firma adı Rs("gsm")=gsm Rs("sabit telefon")=sabit telefon Rs("email")=email Rs("mesaj")=mesaj Rs.Update Response.Write"Mesajınız başarılı bir şekilde gönderildi ! ! !" Rs.close Set Rs = Nothing Response.Redirect "default.asp" %> <% end sub %>