<%else
set rsDefter=Server.CreateObject("ADODB.RecordSet")
rsDefter.open "ZDefteri",conn,1,3
rsDefter.AddNew
rsDefter.Fields("isim")=Temizle(Request.Form("Adi"))
rsDefter.Fields("soyisim")=Temizle(Request.Form("Soy"))
rsDefter.Fields("mail")=Temizle(Request.Form("Maili"))
rsDefter.Fields("sehir")=Temizle(Request.Form("Sehiri"))
rsDefter.Fields("web")=Temizle(Request.Form("WebSitesi"))
msg=Trim(Request.Form("Mesaji"))
msg=Temizle(msg)
msg=Trim(msg)
rsDefter.Fields("mesaj")=msg
rsDefter.Fields("tarih")=date()
rsDefter.Update
%>
a
Sevgili <%=Request.Form("Adi")%>,
İlgin için teşekkür ederim.
Mesajın Başarıyla Gönderildi.
Fakat, Onaylandıktan Sonra Defterde Yayınlanacak...
<%end if%> |