<%=strSiteBasligi%> <%=Kelime20%>

<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' mydesign | ziyaretçi defteri ' W: http://www.mydesign.gen.tr ' @: mydesign@mydesign.gen.tr ' ' Mesajları Görüntüleme Sayfası Kodları ' Son Düzenleme: 26 Şubat 2007 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Sayfanın önbelleğe alınması engelleniyor Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Veritabanından mesajlar alınıyor SQL = "SELECT * FROM mesajlar" If blnAdminOnay Then SQL = SQL & " where onay=True" SQL = SQL & " ORDER BY tarih DESC, id DESC" kd.open SQL, baglanti, 1, 3 %> <%=strSiteBasligi%> <%=Kelime20%>

<% Toplam = kd.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 Response.Write "" Response.Write "" Response.Write "" Else intGecerliSayfa = YaziTemizle(Trim(Request.Querystring("sayfa"))) If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 kd.PageSize = intMesajSayisi intSayfaSayisi = kd.PageCount kd.AbsolutePage = intGecerliSayfa For m = 1 to intMesajSayisi If kd.Eof Then Exit For web = Trim(kd("web")) If Left(web,7) <> "http://" AND Len(web) > 8 Then web = "http://"&kd("web") Else web = Trim(kd("web")) End If If i Mod 2 Then bg = strMesajlarRenk1 Else bg = strMesajlarRenk2 End If If kd("admin") = True Then bg = strAdminMesajRengi Response.Write ("" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & "") kd.Movenext Next End If kd.Close Set kd = Nothing %>

<%=Kelime26%> \| <%=Kelime27%>
"& Kelime33 &"
" & _ vbCrLf & " " & _ vbCrLf & " "& Kelime34 &": " & _ vbCrLf & " "& kd("ad")&"" & _ vbCrLf & " "& Kelime35 &": " & _ vbCrLf & " "& kd("yer")&"" & _ vbCrLf & " "& Kelime36 &": " & _ vbCrLf & " "& TarihFormatla(kd("tarih")) &" "& SaatFormatla(kd("tarih")) &"" & _ vbCrLf & "	" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & MesajFormatla(kd("mesaj")) & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
"& Kelime38 &"	" & _ vbCrLf & " "& LinkFormatla(Trim(kd("Mail")),"Mail") &" " & _ vbCrLf & " "& LinkFormatla(Trim(kd("Web")),"Web") &" " & _ vbCrLf & " "& LinkFormatla(Trim(kd("msn")),"MSN") &" " & _ vbCrLf & " "& LinkFormatla(Trim(kd("yahoo")),"Yahoo") &" " & _ vbCrLf & " "& LinkFormatla(Trim(kd("icq")),"ICQ") &" " & _ vbCrLf & "

<%=Kelime39%>: <%=toplam%>

<%=Kelime40%>: <%=intSayfaSayisi%>

<% 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 %>

<%=strCopyright%>

<%=Copy()%>

ugg ale canada goose suomi moncler sale canada goose takki barbour takki moncler takki timberland suomi canada goose sale parajumpers takit canada goose trillium barbour tikkitakki canada goose ale barbour jacket parajumpers long bear moncler untuvatakki parajumpers takki

adidas superstar femme adidas stan smith adidas superstar adidas stan smith femme

belstaff motorcycle jackets woolrich canada moncler vancouver barbour jacket duvetica canada uggs canada peuterey jacket woolrich parka timberlands canada parajumpers gobi timberland boots women duvetica outlet parajumpers outlet moncler canada

canada goose italiaa ugg saldi woolrich uomo woolrich parka woolrich outlet moncler uomo scarpe timberland ugg stivali stivali ugg moncler milano timberland shoes canada goose outlet timberland scarpe moncler outlet canada goose zug in nederland hvor kjøpe generisk cialis på nett i Norge

moncler dames ugg ale uggs handschoenen moncler jas dames woolrich jas canada goose jas moncler heren parajumper jas dames barbour jackets barbour dublin timberland nederland timberland heren timberland boots moncler jas barbour wax moncler takki parajumper jas parajumpers sale in nederland hvor kjøpe generisk cialis på nett i Norge

canada goose pas cher doudoune moncler moncler outlet veste moncler timberland shoes timberland femme moncler veste moncler veste homme canada goose outlet veste barbour timberland chaussure timberland homme parajumpers pas cher canada goose montreal doudoune canada goose femme ugg soldes

parajumpers tilbud moncler jakke moncler jakke herre nike sneakers nike sko nike sb stefan janoski max nike sb janoski canada goose baby ugg boots canada goose danmark timberland boots parajumpers long bear canada goose trillium parka canada goose jakke parajumpers udsalg parajumpers jakke udsalg ugg hjemmesko timberland sko

Viagra with Dapoxetine kaufen Kamagra Fizzy Tabs viagra apotheke Viagra pour Femme Viagra Dapoxetine Viagra pour femme acheter du cialis Generika Testpakete Acquisto Cialis Super Active Cialis Daily Viagra kopen erectiepillen kopen Acheter Levitra cialis 20mg Comprare Propecia Acquisto Brand Viagra kamagra kaufen viagra voor vrouwen Kamagra France