<% 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Ü ::
 
 

ANA SAYFA

İ L E T İ Ş İ M
 

<%=session("msj")%>  

Aşağıdaki alanları doldurarak bize iletmek istediklerinizi ve düşüncelerinizi paylaşabilirsiniz.

Ad & Soyad
E-mail
Bize İletmek İstediğiniz:
 
   
Mail Grubu itu-tenis@yahoogroups.com
Mail Adresimiz itutenis@itu.edu.tr
 

© İTÜ TENİS KULÜBÜ creater

e-mail: itutenis@itu.edu.tr