%
Set redkod = server.CreateObject("Adodb.Recordset")
sql = "Select * from iletisim "
redkod.open sql,conn,1,3
redkod.AddNew
redkod("adsoyad") = SQL_Koru(Request.Form("adsoyad"))
redkod("email") = SQL_Koru(Request.Form("email"))
redkod("firma") = SQL_Koru(Request.Form("firma"))
redkod("tel") = SQL_Koru(Request.Form("tel"))
redkod("mesaji") = SQL_Koru(Request.Form("mesaji"))
redkod("tarih") = Now()
redkod.Update
Response.Write ""
Response.Write ""
%>