Söz ::: BURUK HASRET DOLU GECELERİ ÖLDÜRECEĞİM BİRGÜN BU AYRILIK ŞARKILARINI KURŞUNA DİZECEĞİM VE SENİ BENDEN AYIRDIĞI İÇİN KADERİMİ MAHKEMEYE VERECEĞİM.
Adı ::: Aynur tas
Söz ::: Dayanacak gücüm kalmadı artık bu ayrılığa Senden uzakta olmak kastediyor canıma Sen olmazsan çoktan küserdim bu hayata Unutamam seni aramızda yollar olsa da UNUTAMAM ASLA.
Adı ::: emrah gülşen
Söz ::: Hani bir kelebek yakalarsın avucunun içinde sonra bakmak,görmek istersin yaşıyormu diye baksan kaçacak sımsıkı tutsan ölecek böyle birşey SEVMEK
Adı ::: ßerdu$
Söz ::: Sen ßenDen AyrıLmaya Karar VereCek Kadar KüçüLdüySen ... ßen Senin UğrunDa ÖLümü Göze ALaCak Kadar ßüyüDüm Demek†ir...
Adı ::: Memleketspor
Söz ::: Cümlelerim Bir Ağacın Yaprakları gibi döküldüğü zaman anladım Seni ne çok Sevdiğimi. Ama düşüncelerim karşı çıktığı zaman anladım seni ne çok İncittiğimi.
Adı ::: Bayburt Güzeli
Söz ::: Mesafelerin ayrilik oldugunu söylerler... Yalan ayrilan bedendir oysa... Yürekler hepberaberdir... Bir seyleri paylasmak icin yüregim her zaman seninle Bitanem...
Adı ::: mustafaxts
Söz ::: Herkesin kendine has özel günler için veya gerektiği zaman gerektiği yerde kullanabilecek sözleri vardır
Adı ::: serseri_lalin
Söz ::: kimseye veremedim yüreğimi ne zaman baksalar içime yüreğim kırık aynasında kendilerinin değil senin yüzünün aksini gördüler hep. sessizce çekip gittiler fark etmedim bile gittiklerini ve peki sende bırakıp gidecekmisin sessizce!!!aşkım
Adı ::: umut
Söz ::: BU GECENİN GÜZELİĞİNİ GÖRDÜKÇE ESKİLERİ HATIRLIYORUM UYKUSUZ KAÇ GECE GEÇMİŞTİ SAYMAYI BİLE AKIL EDEMEDİM BU GECEDE YİNE SENDEN HABERSİZ SENİ SENİ DÜŞÜNÜYORUM GALİBA BU GECEDE UYKUSUZ GEÇECEK BİLİYORMUSUN TEK BİR İSTEĞİM OLACAK BU GECEDE SENİ SON DEFA RÜYADADA OLSUN GÖREYİM VE O MASUM GÖZLERİNE BAKIP SENİ SEVİYORUM HEMDE DELİCESİNE DİYE BİLEYİM AMA RÜYALAR BİLE SENDEN YANA BEN İSE YİNE SENSİZ VE YİNE YANLIZIM BU GECEDE BRİNDAR(YARALI)
Adı ::: yalan_dunya_13( at )hotmail.com
Söz ::: FEDAKAR OLAN İNSAN GÖNÜLDEN SEVENDİR YÜREKLİ İNSAN YAŞAMAYI BİLENDİR UNUTMAYAN BİR ARKADAŞ BİR ÖMRE BEDELDİR
Adı ::: BURCU
Söz ::: UZUN BİR UÇURUMUN TAM KENARINDAYIM.YUKARIDA HAYALLERİM AŞAĞIDA SEN VARSIN.ŞİMDİ SANA SORUYORUM SEN BENİM YERİMDE OLSAN HANGİSİNİ SEÇERDİN...........
Adı ::: özge
Söz ::: GÜNEŞİN BATIŞINI İZLERKEN SAHİLLERİ , KUMLARI , MARTILARI GÖRÜRKEN UNUTMA YUKARIDAKİ BİR YILDIZ HEP SENİ SEVECEK!
Adı ::: AHMET
Söz ::: Yalnızlığımı Dünyaya Haykırdım Duymadılar..Yalnızlığımı Duvarlara Yazdım Görmediler..Yalnızlığımı Yalnızlıklara Anlattım GÖZYAŞI Döktüler...
Adı ::: yalcın
Söz ::: Nezaman sen gelsen aklıma, Acı bir tebessüm Gelip oturuyor dudaklarıma. Notası kırılmış melodilerin Buruk sesi geliyor kulaklarıma. Bir kuş düşüyor Daldaki yuvasından / çırpınarak Sıcak avuçlarıma. Nezaman seni düşünsem, Nezaman sen gelsen aklıma, Kaldıramayacağım bir ağırlık Çöküyor yapraklarıma. Umutlara taş basıyor yokluğun Kar düşüyor Henüz tomurcuk umutlarıma
Adı ::: buket
Söz ::: Ağıtla silinmez gözde hayalin Ellerin olsanda unutamamki Aşığın değil,kölenim senin Bir kötü sözünle yıkılamamki. Şiirler senin,şarkılar senin Hazanda solmayan gülümsün benim
Adı ::: M.Levent ÖZGEÇ
Söz ::: KISSADAN HİSSE Yalan olmuş artık bütün gerçekler Riyakar insanlar sarmış dünyayı! Menfeat uğruna secde edersen Kabul etmez adın insan olmayı! M.Levent ÖZGEÇ Mısralar da ağlar kitabından
Adı ::: M.Levent ÖZGEÇ
Söz ::: SORDUN mu HİÇ Kendine. İnsanım diyerek yola çıktım da Bastığım toprağı incittim mi ki. Gönül bahçesinde güller derdim de Kestiğim yaprağı incittim mi ki. M Levent ÖZGEÇ Gönül Pınarı Kitabından
Adı ::: M.Levent ÖZGEÇ
Söz ::: Dikensiz gül olmaz diyordum amma İstediğim gül de diken olsaydın! Uğruna ömrümü verirdim amma Benimle boynunu büken olsaydın! M Levent ÖZGEÇ Mısralar da ağlar kitabından
Adı ::: M.Levent ÖZGEÇ
Söz ::: Şair gönlüm karar verdi bu gece Bu aşkı bir daha yazmayacağım! Dolansa dilime binlerce hece Ettiğim yemini bozmayacağım..! M.Levent ÖZGEÇ Mısralar da ağlar kitabından
>
Bugün 21 ziyaretçi (25 klik) kişi burdaydı!
<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
'----------------setup------------------
Const UserTiemout = 5 ' mins for user's timeout
Const Title = "ASLAN Chat v.2.5" 'title of web page
'----------------/setup------------------
Select Case Request("event")
Case "login"
If Request("login") = "" Then
Response.Redirect "index.asp"
End If
If ConnectUser(HTMLFormat(Request("login"))) = False Then
Response.Redirect "index.asp?error=1&username=" & request("login")
End If
For ln =20 to 2 Step -1
Application(ln)=Application(ln-1)
Next
Application("1")=""& Request("login") & " Sohbete Katıldı"
Response.Redirect "chat.asp"
' Show ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case "show"
Response.Write ""
Response.Write ""
Response.Write ""
For f=1 to 20
Response.Write Application(f) & " "
Next
' Post ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case "post"
For ln =20 to 2 Step -1
Application(ln)=Application(ln-1)
Next
' Smiles are here
ChatText = HTMLFormat(Request("text"))
ChatText = Replace(ChatText, ":)", "")
ChatText = Replace(ChatText, ":D", "")
ChatText = Replace(ChatText, ":o","")
ChatText = Replace(ChatText, ":(", "")
ChatText = Replace(ChatText, ";)", "")
ChatText = Replace(ChatText, ":p", "")
ChatText = Replace(ChatText, "8)", "")
ChatText = Replace(ChatText, ":[", "")
ChatText = Replace(ChatText, ":kill:", "")
ChatCommand = Lcase(Mid(ChatText, 1, InstrRev(ChatText,":")))
Select Case ChatCommand
Case "/clear:"
For t=1 to 20
Application(t) = ""
Next
Case Else
CurrentNickName = "" & Session("nickname") & ""
Application("1")="" & Session("nickname") & ": "& ChatText
End Select
x= SetUserSettings(Session("nickname"),"timer",Timer)
Response.Redirect "chat.asp?event=form"
' Logout ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case "logout"
For ln =20 to 2 Step -1
Application(ln)=Application(ln-1)
Next
Application("1")=""& Session("nickname") & " Sohbetten çıktı"
x = DisconnectUser (Session("nickname"))
Response.Redirect"../default.asp"
' List Users ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case "listusers"
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ListUsers
tmpBuf = tmpBuf &""
Response.Write tmpBuf
' Setup ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case "setup"
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & "Ayarlama Bölümü"
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & "
"
tmpBuf = tmpBuf & ""
Response.Write tmpBuf
' Anything Else ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case Else
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ""
Response.Write tmpBuf
End Select
Function ListUsers()
Dim UsersBuf
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//users/*"
Set UsersList = XMLDOC.SelectNodes(XPath)
If UsersList.Length = 0 Then
ListUsers = "Oda boş"
Else
For Each UserName In UsersList
ThisUserTimeout = GetUserSettings(UserName.GetAttribute ("nick"), "timer") + (UserTiemout * 100)
If Timer > ThisUserTimeout Then
DisconnectUser(UserName.GetAttribute ("nick"))
Exit For
End If
UsersBuf = UsersBuf & UserName.GetAttribute ("nick") & " " '" (" & FormatNumber((ThisUserTimeout - Timer)/100,2) & ")" & " "
Next
ListUsers = UsersBuf
End IF
End Function
Function ConnectUser (NickName)
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set RegisteredUser = XMLDOC.SelectSingleNode(XPath)
If RegisteredUser Is Nothing Then
XPath = "//users"
Set UsersList = XMLDOC.SelectSingleNode(XPath)
Set NewUser = XMLDOC.CreateElement("user")
NewUser.SetAttribute "nick", NickName
NewUser.SetAttribute "timer", Timer
UsersList.AppendChild NewUser
Application("xmldoc") = XMLDOC.xml
Session("nickname") = NickName
Session("refresh") = 5
ConnectUser = True
Else
ConnectUser = False
End If
End Function
Function DisconnectUser(NickName)
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set UserList = XMLDOC.SelectNodes(XPath)
If UserList Is Nothing Then
DisconnectUser = False
Else
For Each Node In UserList
Node.parentNode.removeChild Node
Next
Application("xmldoc") = XMLDoc.xml
DisconnectUser = True
End If
End Function
Function GetUserSettings(LoginName, PropertyName)
If LoginName = "" then Exit Function
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & LoginName & "']"
Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
If SelectedUser Is Nothing Then
GetUserSettings = ""
Else
If Len(SelectedUser.GetAttribute(PropertyName)) = 0 Then
GetUserSettings = ""
Else
GetUserSettings = SelectedUser.GetAttribute(PropertyName)
End If
End If
End Function
Function SetUserSettings(NickName,UserProperty,PropertyInfo) ' As Boolean
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
If SelectedUser Is Nothing Then
SetUserSettings = False
Else
SelectedUser.SetAttribute UserProperty, PropertyInfo
Application("xmldoc") = XMLDOC.XML
SetUserSettings = True
End If
End Function
Function HTMLFormat(sInput)
Dim sAns
Dim sIIIStart, sIIIEnd
sAns = Replace(sInput, " ", " ")
sAns = Replace(sAns, Chr(34), """)
sIllStart = "<" & Chr(37)
sIllEnd = Chr(37) & ">"
If InStr(sAns, sIllStart) > 0 Or InStr(sAns, sIllEnd) > 0 Then
sAns = Replace(sAns, "<" & Chr(37), "")
sAns = Replace(sAns, Chr(37) & ">", "")
End If
sAns = Replace(sAns, ">", ">")
sAns = Replace(sAns, "<", "<")
sAns = Replace(sAns, vbCrLf, " ")
sAns = Replace(sAns, "[b]", "")
sAns = Replace(sAns, "[/b]", "")
sAns = Replace(sAns, "[i]", "")
sAns = Replace(sAns, "[/i]", "")
HTMLFormat = sAns
End Function
%>
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
