<% '// 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=0 do while not kd.eof If kd("firmakodu")=cint(fkodu) then Toplam=Toplam+1 end if kd.movenext loop 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 kd("firmakodu")=cint(fkodu) then If kd("admin") = True Then bg = strAdminMesaj Response.Write ("" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & "") end if kd.Movenext Next End If kd.Close Set kd = Nothing %>
"& Kelime33 &"
" & _ vbCrLf & "
" & _ vbCrLf & " "& Kelime34 &"
 " & _ vbCrLf & " "& kd("ad")&"
" & _ vbCrLf & " "& kd("tel")&"" & _ vbCrLf & "

"& Kelime35 &"
 " & _ vbCrLf & " "& kd("yer")&"" & _ vbCrLf & "

" & _ vbCrLf & " Başlık : " & _ vbCrLf & " "& kd("yorumturu")&"" & _ vbCrLf & " " & _ vbCrLf & "
" & _ vbCrLf & MesajFormatla(kd("mesaj")) & _ vbCrLf & " " & _ vbCrLf & "
" & _ vbCrLf & "
"& Kelime38 &"
" & _ vbCrLf & "

"& Kelime36 &": " & _ vbCrLf & " "& TarihFormatla(kd("tarih")) &" "& SaatFormatla(kd("tarih")) &"" & _ vbCrLf & "

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