<% q=Request.Querystring("q") if q="" or q="oku" then call oku elseif q="yaz" then call yaz end if sub oku Dim db, rs, i, bg Dim kayit_destesi, sayfadaki_deste_sayisi, toplam_kayit_sayisi, sayfa, sayfa_max_adet Dim konu, mesaj, tarih kayit_destesi = 10 'Sayfadaki kayıt sayısı sayfadaki_deste_sayisi = 10 'Destelenecek sayfa sayısı set baglanti=server.createobject("adodb.connection") baglanti.open="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("db/dbdefter.mdb") &";" set kd=server.createobject("adodb.recordset") sql="select * from mesajlar order by tarih desc" kd.open sql, baglanti, 1, 3 If kd.eof Then toplam_kayit_sayisi = 0 %> <% Else toplam_kayit_sayisi = kd.recordcount If Len(request("sayfa")) > 0 Then sayfa = cdbl(request("sayfa")) kd.move sayfa * kayit_destesi Else sayfa = 0 End if For i = 1 To kayit_destesi If kd.eof Then Exit For If i Mod 2 Then bg = "#FFFFFF" Else bg = "#F7F7F7" End If Dim saat, dakika, saniye, gun, ay, yil, hafta saat = DatePart("h", kd("tarih")) dakika = DatePart("n", kd("tarih")) saniye = DatePart("s", kd("tarih")) gun = DatePart("d", kd("tarih")) ay = DatePart("m", kd("tarih")) yil = DatePart("yyyy", kd("tarih")) hafta = DatePart("ww", kd("tarih")) if len(saat)<2 then saat="0" & saat end if if len(dakika)<2 then dakika="0" & dakika end if if len(gun)<2 then gun="0" & gun end if if len(ay)<2 then ay="0" & ay end if simdi=gun & "." & ay & "." & yil & " / " & saat & ":" & dakika %> <% kd.movenext next end if %>
DEFTERE YAZ | KAYITLAR
Henüz Kayıt Yok
Gönderen:
<%=kd("ad")%>

Tarih:
<%=simdi%>

<% metin = kd("mesaj") metin = Replace(metin, chr(13), "
", 1, -1, 1) metin = Replace(metin, vbcrlf, "
", 1, -1, 1) Response.Write metin %>
Yukarı <% if kd("mail")="" then Response.Write "" else Response.Write "" end if Response.Write " " if kd("web")="" then Response.Write "" else Response.Write "" end if Response.Write " " if kd("msn")="" then Response.Write "" else Response.Write "" end if Response.Write " " if kd("yahoo")="" then Response.Write "" else Response.Write "" end if Response.Write " " if kd("icq")="" then Response.Write "" else Response.Write "" end if %>

<% if toplam_kayit_sayisi / kayit_destesi = int(toplam_kayit_sayisi / kayit_destesi) then sayfa_max_adet = toplam_kayit_sayisi / kayit_destesi else sayfa_max_adet = int(toplam_kayit_sayisi / kayit_destesi) + 1 end if If Not toplam_kayit_sayisi = 0 Then %> <% End If %>
Toplam Kayıt Sayısı: <% = toplam_kayit_sayisi %> Toplam <%=sayfa_max_adet%> Sayfa Listelenecek

<% end sub sub yaz %>
ZİYARETÇİ DEFTERİ KAYIT FORMU Ad:* Web-Site: E-Mail: MSN: Yahoo!: Icq: Mesaj:*   <% end sub %>
Ana Sayfa