Mc Erdem Online - Ziyaretçi Defteri

<% @ Language = "VBScript" %> <% 'Copyright (c) 2006 | Burak Cakmak 'Gangster Ziyaretci Defteri... 'Burak Çakmak Tarafindan Kodlanmistir... 'burakcak87@hotmail.com 'FullArsiv.Com | Turkiyenin En Yeni Download Arsivi ... 'ihracatmallari.Com | Ihracat Mallari .. Set burak = Server.CreateObject("ADODB.Recordset") sql_burak="select * from defter order by id desc" burak.open sql_burak,gangster,1,3 IF burak.EOF THEN RESPONSE.WRITE "Kayit bulunamadi" else git= Request.QueryString("git") if git="" then git=1 end if %> Mc Erdem Online - Ziyaretçi Defteri Bir sayfada toplam 10 mesaj yer almaktadır... Mesaj yazmak için en alttaki formu doldurunuz... <% burak.pagesize = 10 burak.absolutepage = git sayfa = burak.pagecount for i=1 to burak.pagesize if burak.eof or burak.bof then exit for %>

İsim : <%=burak("ad")%>

Mesaj : <%=burak("mesaj")%>

Yaş : <%=burak("email")%>
Şehir : <%=burak("sehir")%>

<%=burak("tarih")%>

<% burak.movenext next %>

Sayfalar : <% for y=1 to sayfa if git=y then response.write y else response.write " ["&y&"]" end if next %> <% end if %>

Deftere mesaj yazmak için alttaki formu doldurunuz.
E-Mail yada msn adreslerini bırakan üyelerin mesajları silinecektir.
İletişim için : erdem@erdemtuncer.net adresini kullanabilirsiniz.