sev ama sevılme


slm arkadaslar ben oguz size tafsiyem sevın ama seızı sevenı sevın

Ana Sayfa | Profilim | Arşiv | Arkadaşlarım

iste serefsizlik

Tarih: 08:24 on 6/5/2006

Yorum (yok) | Yorum yaz! | Bağlantı

__;_?;__?;?_oguz;__;_?;?;_?_;_

Tarih: 08:16 on 6/5/2006

Bir yağmur damlası seni seviyorum anlamı taşısaydı ve sen bana seni ne kadar sevdiğimi soracak olsaydın, inan ki birtanem her gün yağmur yağardı.                                  

 

 

Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!

 

 

İnsanlar tanıdım yıldızlar gibiydi, hepsi parlıyordu, hepsi gökteydi. Ama ben seni, güneşi seçtim, bir güneş için bin yıldızdan vazgeçtim?

 

 

Bir gül olmak isterdim! Neden mi? Beni koparıp kokladığında vücudunun derinliklerine girip bir daha oradan çıkmamak için?

 

Seni bulmaktan çok aramak isterim! Seni sevmeden önce anlamak isterim! Seni bir ömür boyu bitirmek değil de sana hep yeniden başlamak isterim.

 

Hani gözler vardır sözleri anlatır, hani sözler vardır gözleri anlatır, bir de aşk vardır seni anlatır...

 

 

Beyaz bir güvercin yolluyorum sana; kanatlarında mutluluk, yüreğinde sevgi ve sadakat, karbeyaz tüylerinde umut ve gagasında iyi geceler öpücüğü, yanağını uzat.

 

Dün gece sen uyurken kızıla boyadım denizleri, uçurumdan attım sessizliği, haber saldım rüzgarlara, fısıldasınlar kulağına seni ne kadar çok özlediğimi...

 

Sana doğru bir kelebek uçurdum, dağları denizleri aştı seni buldu, yanağına ufacık bir öpücük kondurdu. Hissettin mi?

 

Uykudan uyanınca insanı uyandığına pişman eden, geri dönmek isteyip de dönemeyince çaresizlikten delirten, hayatta bir defa görülebilen harika bir rüyasın!..

 

 

Ağırdır sevmelerim her yürek taşıyamaz, büyüktür umutlarım her omuz kaldıramaz, her şey olur da şu kalbim, bir tek sensiz olamaz.

 

 

Mürekkepten denizler, kağıttan gemiler yaptım. Sonra ismini her yere yazdım. İsmini yazınca seni sevdiğimi sandın, ben seni sevmedim sana taptım!..

 

Seni her düşündüğümde kalbime bir yıldız çiziyorum. Benim şimdi kaç yıldızım var biliyor musun? Benim artık bir gökyüzüm var..

 

 

 

Bugün her zamankinden farklı bir şey yapayım dedim olmadı yine sana defalarca aşık olup seni düşündüm...

 

Yedi ayrı iklimden yedi çesit arı getirseler yedi çesit arı yedi ayrı çiçeği dolaşsa yedi ayrı çiçekten bal yapsa senin kadar tatlı olamaz...

 

Yedi ayrı iklimden yedi çesit arı getirseler yedi çesit arı yedi ayrı çiçeği dolaşsa yedi ayrı çiçekten bal yapsa senin kadar tatlı olamaz...

 

 

Ben seni dün sevmedim çünkü dün geride kaldı, ben seni bugün de sevmeyeceğim çünkü bugün de bitecek; ben seni yarın seveceğim çünkü yarınlar hiç bitmeyecek!

 

Bugün yeni bir meyhane keşfettim mezarlığın karşısında. Bir gün beni arar da bulamazsan ya meyhanedeyim ya da tam karşısında.

 

Duyuyorum sana dokunamamanın ezikliğini yaşıyorum aşkın rezilliğini,inan bitanem yanımdayken çekiyorum en çok hasretini..

 

Sevmiyorum şu saatin sesini,akmasın dursun zaman.herşeyin bir öncesi ve sonrası vardır derler ya; YALAN. senden önce vardım belki ama aşkım senden sonra olmayacağım inan.

 

Birgün Yağmura Yakalanırsan Benden Kaçtığın Gibi Yağmurdanda Kaç. Çünkü Bulutların Arkasında Kaybolan Aşkı İçin Ağlayan Benim.

 

?_=_=_?=?_=??_=?oGuZ_?=_?=)_=_?_=?_==__?

Yorum (1) | Yorum yaz! | Bağlantı

benım sevgılım olamaz cunku sevdıgım var

Tarih: 05:56 on 6/5/2006

Yorum (3) | Yorum yaz! | Bağlantı

Tarih: 11:54 on 6/5/2006

buyrun hosgeldiniz

Yorum (yok) | Yorum yaz! | Bağlantı

Tarih: 11:32 on 6/5/2006

Yorum (yok) | Yorum yaz! | Bağlantı



<- | Sonraki Sayfa ->
İlk önce bir sayfa açrak onu .asp ye donusturun. Benim vereceğim kodları yazın... <% Response.Buffer = True %> <%on error resume next%> <% Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") dk_g = getValues("A_TIMEOUT") recordNo = getValues("A_LINK_RECORD") nRecordNo = getValues("A_NEWS_RECORD") lcid = getValues("A_LCID") Session.LCID = lcid titleAdd = getValues("A_SITE_NAME") msgLimit = getValues("A_MSG_LIMIT") msgTimeout = getValues("A_MSG_TIMEOUT") bannedIPs = getValues("A_BANNED_IPS") passRemind = getValues("A_PASS_REMIND") siteAddr = getValues("A_SITE_ADDR") siteMail = getValues("A_SITE_EMAIL") mailServer = getValues("A_MAIL_SERVER") uyeMetod = getValues("U_METOD") uExp = getValues("U_EXPIRE") mailBil = getValues("A_MAIL_BIL") clientIP = Request.ServerVariables("REMOTE_ADDR") If InStr(1, bannedIPs, clientIP, 1) <> 0 Then Response.Write "BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!..." Response.END End If %> Şifre Hatırlatma Sistemi - © NB Studios 2002 <% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %>
<% Sub hataYaz(str) Response.write "
" & str & "
Geri


" End Sub If Request.Form("xp") = "xp" Then If InStr(1, Request.Form("uye_adi"), "'", 1) <> 0 OR InStr(1, Request.Form("sifre"), "'", 1) <> 0 Then Response.write "
Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın
Geri


" Response.end End If acik = Replace(Request.Form("aciklama"), "<", "<") aciklama = Replace(acik, ">", ">") If Request.Form("mailg") = "on" Then mailgoster = true Else mailgoster = false End If If Mid(Request.Form("webadresi"), 1, 7) <> "http://" AND Request.Form("webadresi") <> "" Then address = Request.Form("webadresi") adres = Replace(address, address, "http://"&address) ElseIf Request.Form("webadresi") = "http://" OR Request.Form("webadresi") = "" Then adres = "" Else adres = Request.Form("webadresi") End If Set getType = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.Open "SELECT * FROM UYELER", objConn, 3, 3 Set nameCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"'") If Not nameCheck.EOF Then call hataYaz("Bu Kullanıcı Adı Sistemde Kayıtlı!...") Response.End End If email = Request.Form("email") bolge = InStr(1, email, "@", 1) If Mid(email, bolge+1, 1) = "." Then call hataYaz("Doğru bir e-mail adresi girin") Response.End Else bolge2 = InStr(bolge, email, ".", 1) If Mid(email, bolge2+1, 1) = "" Then call hataYaz("Doğru bir e-mail adresi girin") Response.End End If End If Set emailCheck = objConn.Execute("SELECT * FROM UYELER WHERE EMAIL='"&Request.Form("email")&"'") If Not emailCheck.EOF Then call hataYaz("Bu E-Mail Adresine Sahip Kullanıcı Mevcut!...") Response.End End If objRs.AddNew objRs("U_ADI") = Request.Form("uye_adi") objRs("U_SIFRE") = Request.Form("sifre") objRs("AD") = Request.Form("adsoyad") objRs("EMAIL") = Request.Form("email") objRs("H_SORU") = Request.Form("h_soru") objRs("H_CEVAP") = Request.Form("h_cevap") If Request.Form("icq") <> "" AND IsNumeric(Request.Form("icq")) Then objRs("ICQ") = Request.Form("icq") End If objRs("SEHIR") = Request.Form("sehir") objRs("MESLEK") = Request.Form("meslek") objRs("YAS") = Request.Form("yas") objRs("WEB") = adres objRs("ACIKLAMA") = aciklama objRs("MAILGOSTER") = mailgoster objRs("LOGIN_SAYISI") = 1 objRs("U_TARIHI") = Date() If getType("U_METOD") = 0 Then objRs("SON_TARIH") = Now() objRs("SEVIYE") = "0" objRs("M_NICKNAME") = Request.Form("uye_adi") objRs("OS") = os objRs("BROWSER") = browser If getType("U_METOD") = 1 Then objRs("ACTIVE") = "0" k = "0" Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) For I = 1 To objRs.RecordCount If sayi = objRs("ACTIVE_CODE") Then k = k + 1 Next If k > 0 Then Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 Else objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 End If ElseIf getType("U_METOD") = 0 Then objRs("ACTIVE") = "1" objRs("ONAY_BEKLE") = "0" ElseIf getType("U_METOD") = 2 Then objRs("ACTIVE") = "0" objRs("ONAY_BEKLE") = "1" tip = 2 Else Response.Write "Veritabanındaki bir hatadan dolayı kayıt yapılamıyor

" Response.End End If objRs.Update objRs.Close Set objRs = Nothing Set idAl = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '" & Request.Form("uye_adi") &"'") idNo = idAl("U_ID") Set expAl = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") expDur = expAl("U_EXPIRE") siteMail = expAl("A_SITE_EMAIL") mailServer = expAl("A_MAIL_SERVER") titleAdd = expAl("A_SITE_NAME") If tip = 1 Then konuA = "Aktivasyon Kodunuz" hostName = Request.ServerVariables("HTTP_HOST") urlCont = Request.ServerVariables("URL") charFoundSlash = InStrRev(urlCont, "/", -1, 1) stringAfterHost = Mid(urlCont, 1, charFoundSlash) lastString = "http://"& hostName & stringAfterHost pathAct = lastString & "activate.asp?RNDNO="& sayi &"&UID="&idNo&"" mesajA = "Aşağıdaki linke tıklayıp, üyeliğinizi aktif hale getirebilirsiniz." & vbCrLf & vbCrLf & pathAct If mailBil = "CDONTS" Then yolla = CDONTS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "PERSITS" Then yolla = PERSITS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "JMAIL" Then yolla = JMAIL (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Else Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Response.Redirect "default.asp?ISN=354763" ElseIf tip = 2 Then Response.Redirect "default.asp?ISN=354986" ElseIf tip = 0 Then Set objRst = Server.CreateObject("ADODB.RecordSet") objRst.Open "SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"' AND U_SIFRE='"&Request.Form("sifre")&"' AND ACTIVE = 1", objConn, 3, 3 If Not objRst.EOF Then Session("Oturum") = "Acik" Session("Uye_Adi") = objRst("U_ADI") Session("Uye_Id") = objRst("U_ID") Session("Uye_Sifre") = objRst("U_SIFRE") Session("Uye_Email") = objRst("EMAIL") Session("Uye_Login") = objRst("LOGIN_SAYISI") Response.Cookies("xp_uye")("mevcut") = "evet" Response.Cookies("xp_uye")("kullanici") = objRst("U_ADI") Response.Cookies("xp_uye")("sifre") = objRst("U_SIFRE") Response.Cookies("xp_uye").Expires = Date() + 365 objRst.Close Set objRs = Nothing Response.Redirect "default.asp" End If End If %><% End If

Tavsiye v 1.0

<% Dim objCDONTS Dim strFromName Dim strFromEmail, strToEmail Dim strSubject, strBody Dim strThisPage Dim strReferringPage Dim bValidInput strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "Check out ASP 101!" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.veritabanim.com", 1) = 0 Then strBody = "" strBody = strBody & "Bu site harika bir site.Mutlaka gez..." & vbCrLf strBody = strBody & vbCrLf strBody = strBody & " http://www.veritabanim.com" & vbCrLf Else strBody = "" strBody = strBody & "Bu siteyi mutlaka gezmelisin" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & " " & strReferringPage & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Lutfen bos alan birakmayin.Mail adreslerini dogru yazin" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>
BENDENIZ FUN CLUB Üyelik Formu

Adınız ve soyadınız, diğer üyelere gösterilmez..
Ana sayfa

..:: | Üye Adı * Bu nedir?
..:: | Şifre * Bu nedir?
..:: | Şifre Tekrarı * Bu nedir?
..:: | E-Mail Adresi * Bu nedir?
..:: | Ad Soyad * Bu nedir?
..:: | Hatırlatma Sorusu * Bu nedir?
..:: | Cevabı * Bu nedir?
..:: | ICQ Bu nedir?
..:: | Şehir Bu nedir?
..:: | Meslek Bu nedir?
..:: | Yaş Aralığı Bu nedir?
..:: | Web Adresi Bu nedir?
..:: | Açıklama Bu nedir?
..:: | E-Mail adresim
diğer üyelere görünsün
Bu nedir?
Kaydete tıklayınca kuralları kabul etmiş sayılacaksınız Kurallar nedir?
Adiniz:
Sizin Mailiniz:
Arkadasinizin Maili:
Mesaj:
<% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>

<% End Sub %>

Bu testin amacı aşk hakkında ne düşündüğünüzü öğrenmek. Kendinize en yakın şıkkı işaretleyin sonra bunun ne anlama geldiğini öğrenin.

1. Dünyanın sonu geliyor. Sadece bir hayvan neslini kurtarma şansınız olsaydı hangisini seçerdiniz?
A. Tavşan
B. Koyun
C. Geyik
D. At

2. Afrika'ya gittiniz. Ziyaret ettiğiniz kabile, hatıra olarak yanınızda bir hayvan götürmeniz konusunda çok ısrarlı. Hangi hayvanı götürürdünüz?
A. Maymun
B. Aslan
C. Yılan
D. Zürafa

3. Çok kötü bir sey yaptınız. Tanrı sizi cezalandırdı, siz artık insan değil bir hayvansınız. Hangisi?
A. Köpek
B. Kedi
C. At
D. Yılan

4. Eğer bir türü sonsuza dek yok etme şansınız olsaydı bu hangisi olurdu?
A. Aslan
B. Yılan
C. Timsah
D. Köpekbalığı

5. Şakır şakır Türkçe konuşan bir hayvana rastladınız. Hangisi olması hoşunuza giderdi?
A. Koyun
B. At
C. Tavsan
D. Kus

6. Issız bir adada, size arkadaşlık edecek sadece bir hayvan var. Hangisini isterdiniz?
A. Insan
B. Domuz
C. İnek
D. Kuş

7. Tüm hayvanları evcileştirmek gibi bir süper yeteneğiniz olsaydı hangisini ev hayvanı olarak alırdınız?
A. Dinozor
B. Beyaz kaplan
C. Kutup ayısı
D. Leopar

8. 5 dakikalığına bir hayvan olmanız gerekse hangisi olurdunuz?
A. Aslan
B. Kedi
C. At
D. Güvercin

Sıra geldi yukarıdaki soruların gerçek anlamlarını ve
verdiğiniz cevapların aşka bakışınızı nasıl ele verdiğini öğrenmeye
.


www.horozz.net Tasarımıdır. // By HoRoZz