<%
durum=Request.QueryString("durum")
if durum="yes" then%>
<%
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM ilahiler"
kset.open sql, bag, 1, 3
kset.addnew
kset("ilahi_ad")=Request.form("ilahi_ad")
kset("ilahi")=Request.form("ilahi")
kset("gufte")=Request.form("gufte")
kset.update
Set kset = Nothing
bag.Close
Set bag = Nothing
%>
ŞİİR EKLENDİ...
Eklemiş olduğunuz şiir Yönetici tarafından onaylandıktan sonra Sayfada yer alacaktır.
İlginiz için teşekkür ederiz...
[ ŞİİR KÖŞESİ ANA SAYFA]
<%else%>
<%end if%>