Designed By_Oğuzhan Nar
DESİGNED BY_OĞUZHAN NAR  
  ANA SAYFA
  İLETİŞİM
  ZİYARET DEFTERİ
  FORUM
  ÜYELİK
  GAZETELERİN 1. SAYFASI
  HABERLER
  GAZETE
  DİKKAT ŞAHAN ÇIKABİLİR!
  KASTAMONU FOTO GALERİ
  START OF SCRIPT
  SAYAÇ
  İBRETLİK VİDEOLAR
  GÜNÜN KOMİĞİ
  CANLI TV
  CHAT 2
  BASİT SOHBET
  CHAT
  KOMİKLER
  RAP MÜZİK DİNLE!!
  BEYİN JİMNASTİĞİ
  AŞKIZI ÖLÇÜN
  TÜRKİYE TANITIM
  Türkçe-İngilizce Sözlük
  OYUN
  HAVA DURUMU
  tiyatrolar
  ŞEHİRLER ARASI MESAFE HESAPLAYICI
  FIKRA
  ÇİZGİ FİLM
  BİLGİ YARIŞMASI
  FGERT
website stats
FORUM
<% '|====================================== '| Forum Kodları Fonksiyonu '| mydesign a.k.a doronty37 '| http://www.mydesign.gen.tr '| mydesign@mydesign.gen.tr '|====================================== Function MesajFormatla(strMesaj) strMesaj = Replace(strMesaj, "<", "<", 1, -1, 1) strMesaj = Replace(strMesaj, ">", ">", 1, -1, 1) strMesaj = Replace(strMesaj, Chr(10), "
", 1, -1, 1) strMesaj = Replace(strMesaj, "[B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/B]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/STRONG]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/U]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, "[/I]", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ";)", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":O", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":))", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":S", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":(", "", 1, -1, 1) strMesaj = Replace(strMesaj, ":'(", "", 1, -1, 1) Do While inStr(strMesaj, "[URL=") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL=", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "]", """ target=""_blank"">", 1, -1, 1) Else strGeciciMesaj = strGeciciMesaj & ">" End If strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[URL]") > 0 And inStr(strMesaj, "[/URL]") > 0 DeyimBaslangici = inStr(strMesaj, "[URL]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/URL]") + 6 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 6 strLink = trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici))) strGeciciMesaj = strLink strGeciciMesaj = Replace(strGeciciMesaj, "[URL]", "", 1, -1, 1) strGeciciMesaj = Replace(strGeciciMesaj, "[/URL]", "", 1, -1, 1) strGeciciMesaj = "" & strGeciciMesaj & "" strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1) Loop Do While inStr(strMesaj, "[QUOTE=") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(1, strMesaj, "[QUOTE=", 1) + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "]", 1) If DeyimBaslangici > 6 And DeyimSonu > 0 Then strYazan = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) End If DeyimBaslangici = DeyimBaslangici + Len(strYazan) + 1 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu - DeyimBaslangici =< 0 Then DeyimSonu = DeyimBaslangici + Len(strYazan) If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strYazan = Replace(strYazan, """", "", 1, -1, 1) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı Sahibi: " & strYazan & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE=") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]") + 8 If DeyimSonu - DeyimBaslangici =< 7 Then DeyimSonu = DeyimBaslangici + Len(strYazan) + 8 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop Do While inStr(strMesaj, "[QUOTE]") > 0 And inStr(strMesaj, "[/QUOTE]") > 0 DeyimBaslangici = inStr(strMesaj, "[QUOTE]") + 7 DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 If DeyimSonu > DeyimBaslangici Then strAlintiMesaji = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) strAlinti = "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "" strAlinti = strAlinti & vbCrLf & "
Alıntı:
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & " " strAlinti = strAlinti & vbCrLf & "
" & strAlintiMesaji & "
" End If DeyimBaslangici = inStr(strMesaj, "[QUOTE]") DeyimSonu = inStr(DeyimBaslangici, strMesaj, "[/QUOTE]", 1) + 8 If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7 strAsilMesaj = trim(Mid(strMesaj, DeyimBaslangici, DeyimSonu-DeyimBaslangici)) If strAlinti <> "" Then strMesaj = Replace(strMesaj, strAsilMesaj, strAlinti, 1, -1, 1) Else strMesaj = Replace(strMesaj, strAsilMesaj, Replace(strAsilMesaj, "[", "[", 1, -1, 1), 1, -1, 1) End If Loop MesajFormatla = strMesaj End Function %>
 
BUGÜN 5 ziyaretçiKİŞİ LOGİN OLDU.
Sık Kullanılanlara Ekle  
   
Ana sayfa yap  
 
TV'de Bugün
 

 
 
 
ARKADAŞINA TAVSİYE ET  
 

http://www.oguzhan-nar.tr.ggsrc="http://img401.imageshack.us/img401/198/tavsiyeet3pv.gif"

 
BURÇ  
 
Günlük Burç
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol