%
if request.form("buton")="Gönder" then
s1=request.form("s1")
s2=request.form("s2")
s3=request.form("s3")
s4=request.form("s4")
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cgi-bin/ituDB.mdb"))
SQLce = "SELECT * FROM Bilgi_Al "
Set kaydet = server.CreateObject("ADODB.Recordset")
kaydet.Open "Bilgi_Al", Baglanti, 1 , 3 '
kaydet.AddNew
kaydet("s1")=s1
kaydet("s2")=s2
kaydet("s3")=s3
kaydet("s4")=s4
kaydet.Update
session("msj")="
Mesajınız tarafımıza iletilmiştir.
İlginize teşekkür ederiz.
"
response.redirect("iletisim.asp")
end if
%>
:: İTÜ TENİS KULÜBÜ ::