<% If Session("Admin")="Girdi" Then If ms = "sil" Then fldID=Request.QueryString("fldID") Vt.Execute("Delete From tblMesajlar Where fldID Like '"&fldID&"'") Response.Redirect Request.ServerVariables ("HTTP_REFERER") End If If ms = "onayla" Then fldID=Request.QueryString("fldID") Vt.Execute("Update tblMesajlar Set fldOnay = '0' Where fldID Like '"&fldID&"'") Response.Redirect Request.ServerVariables ("HTTP_REFERER") End If If ms = "cikis" Then Session("Admin")="" Session.Abandon Response.Redirect "default.asp" End If End If %> <%=defteradi%>

<% If Session("Admin")="Girdi" Then %>

Admin Oturumunu Kapat

<% Rs.Open "Select * From tblMesajlar Order By fldID DESC" , Vt , 1 , 3 Else Rs.Open "Select * From tblMesajlar Where fldOnay = 0 Order By fldID DESC" , Vt , 1 , 3 End If 'Session kontrol Toplam = Rs.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 Response.Write "

Kayıtlı mesaj yok




" Else intGecerliSayfa = Request.QueryString("Sayfa") If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 Rs.PageSize = sayfasayisi intSayfaSayisi = Rs.PageCount Rs.AbsolutePage = intGecerliSayfa %>
MESAJLAR
<% For m = 1 To sayfasayisi If Rs.EOF Then Exit For If Rs("fldOnay") = "0" Then TabloRenk = tabloarka Else TabloRenk = tabloonay End If %>
<%=Rs("fldAdi")%>" width="100" height="100"> <%=editor(Rs("fldMesaj"))%>
<%=FormatDateTime(Rs("fldTarih"),0)%> <% If Session("Admin")="Girdi" Then %>
IP: <%=Rs("fldIP")%>
">Sil <% If Rs("fldOnay")="1" Then %> - ">Onayla <% End If End If %>
<% If Not Rs("fldEposta")="" Then %> "> <% Else %> <% End If %> <% If Not Rs("fldMsn")="" Then %> "> <% Else %> <% End If %> <% If Not Rs("fldYahoo")="" Then %> "> <% Else %> <% End If %> <% If Not Rs("fldICQ")="" Then %> "> <% Else %> <% End If %> <% If Not Rs("fldWeb")="" Then %> " target="_blank"> <% Else %> <% End If %>

<% Rs.MoveNext Next %> " Response.Write "" Response.Write "" End If 'Eof Bitiş Rs.Close : Set Rs = NoThing Vt.Close : Set Vt = NoThing Response.Write "
Toplam <%=intSayfaSayisi%> sayfada <%=Toplam%> kayıt listeleniyor. <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 If intGecerliSayfa >1 Then %> [««] [«]<% End If For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write ". . ." For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write ". . ." For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " " Else %> <% End If Response.Write i &"." Next If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %> [»] [»»]<% End If Response.Write "
CopyRight © 2006 - " & defteradi & "MS-Ziyaretçi Defteri v1.0

- Admin Giriş -

" %>