Hakan ŞEN Kişisel Günce - Etiket : ms / http://www.hakansen.com

Mevlana - Duydum ki Bizi Bırakmaya (Etme)

21 Ocak 2009

Dikkat ettiyseniz sağ menüde dinlenesi diye bir şey ekledim, Orada dinleyeceğiniz şiir Hz. Mevlana`nın bir şiiridir. Ben çok sevdim ve haz aldım, sizinde dinlemenizi tavsiye ederim.

Devamı Var ...

Devamı
Yorumlar (7)
Tarih : 21 Ocak 2009 Çarşamba Saat: 17:50:13
Kategoriler : Muzik & Video
Etiketler : mevlana, şems, etme, duydum ki bizi bırakmaya, şiir, yılmaz erdoğan

Kısaca

14 Ağustos 2008

1. Bu dünyada uğrunda ölebileceğin en az iki kişi vardır.
2. En azından 15 kişi öyle ya da böyle seni seviyordur.
3. Herhangi birinin senden nefret edebilmesinin tek sebebei, aslında sadece senin gibi olmak istemesidir.
4. Senden gelecek bir gülümseme bazılarına mutluluk getirebilir, o senden hoşlanmasa bile.
5. Her gece, birisi uykuya dalmadan önce seni düşünüyor.
6. Birisi için dünyalara bedelsin.
7. Çok özel ve teksin.
8. Varlığını bile bilmediğin biri seni seviyor.
9. Hayatındaki en büyük hatayı yaptığın zamanda bile, ondan hayırlı birşey çıkar.
10. Ne zaman dünya sana sırtını dönmüş gibi hissedersen, dön ve bir daha bak.
11. Her zaman aldığın iltifatları hatırla. Kaba sözlerin hepsini unut.

Devamı
Yorumlar (0)
Tarih : 14 Ağustos 2008 Perşembe Saat: 15:31:53
Kategoriler : Hayata Dair
Etiketler : kısaca, seni, beni, hepimizi, seven, sayan, gülümseme

Ben TÜRK`üm Ya Siz kimsiniz.

23 Ekim 2007



Ben Bir TÜRKÜM !...

Ben;
Orta Asya`dan Türeyen, Anadolu`da Büyüyen, Avrupa İçlerine Yürüyen TÜRK`üm !

Ben;
Dağlarda Gemi Gezdiren, Taşlara Destanlar Kazdıran, Tarihi Baştan Yazdıran, TÜRK`üm !

Ben;
Adalete, Ben Mertliğe Örnekler Veren, Ölüm - Kalım Savaşına Gülerek Giden, Yeryüzünde Her Murada Eren TÜRK`üm !

Ben;
Sancaklara, Tuğlara Baş Eğdiren, Beylere, Paşalara Hil`at Giydiren, Kılıcını Üç Kıt`ada Gezdiren TÜRK`üm !

Ben;
Atilla`yı, Yavuz`u, Fatih`i Var Eden, Kralları, İmparatorları Kendisine Yar Eden, Düşmanına Dünyasını Dar Eden TÜRK`üm !

Ben;
Şahları, Sultanları Kul Edinen, Altınları, Elmasları Pul Edinen, İncili Kaftanları Çul Edinen TÜRK`üm !

Ben;
Zafer Rüyasını Görenlere Saç Yolduran, Hezimete Uğratıp, Ümitleri Solduran, Müzelerde Baş köşeleri Dolduran TÜRK`üm !

Ben;
Damarlarında Asil Kanın Aktığı Irkım, Benden Bahseder Destanım, Ağıtım, TÜRK`üm, Ben TÜRK`üm, Taa İliklerime Kadar TÜRK`üm


Ya Siz Kimsiniz ???


ALLAH TÜRK`Ü KORUSUN!!!

Devamı
Yorumlar (1)
Tarih : 23 Ekim 2007 Salı Saat: 12:04:55
Kategoriler : Hayata Dair, Kendimden
Etiketler : siz, kimsiniz, türküm, tük

XML Servislerinden Veri Almak

18 Ekim 2007

XML`in çeşitli kullanımları ile ilgili örnek yazılar yazmıştım, fakat bu sefer farklı bir yöntem izleyeceğiz msxml2.DOMDocument ile veri almak işlemini yapıcaz fakat biraz değişik bir yol ile.

Öncelikle uygulamayı kendi sitemde denemek için bir xml servisi oluşturdum. Bu serviste www.hakansen.com adresinde ki tüm yazı ve yorumların sayısını başka bir sitede nasıl gösterileceğini göstermek istedim.

www.hakansen.com/kod/stats.asp adresinden başlayalım.

Kod:
- <istatistik>

  <ToplamKonu>145</ToplamKonu> 

  <ToplamYorum>142</ToplamYorum> 

  </istatistik>


şeklinde bir servis oluşturdum içerisindeki veriler veritabanındakilere göre otomatik olarak değişiyor.

Peki bunu başka bir sitede nasıl alıp kullanabilirim.

Bunun için ise verileri alma fonksiyonumuzu hazırlayalım.

Kod:
Function GetStats(Veri,url)

     Set xObj=Server.CreateObject("msxml2.DOMDocument")

     xobj.async=False

     xobj.setProperty "ServerHTTPRequest",True

     xobj.load(url)

     

     If (xObj.parseError.errorCode <> 0) Then

         GetStats =  xObj.parseError.reason

     Else

         Set sonuc=xobj.getElementsByTagName("istatistik")

         GetStats = (sonuc.Item(0).childnodes.Item(Veri).text)

     End If

End Function

şeklinde fonksiyonumuzu belirledik, Bu fonksiyonu biraz açıklamak gerekirse.

GetStats fonksiyonunu tanımlarken Url kısmına çekilecek verinin adresini belirtiyoruz.
Veri kısmına ise <istatistik> alt dizisinde bulunan verilerin sırasını giriyoruz bu sıra aynı Array nesnesi gibi 0,1,2,3,4... şeklinde gidecek yani 0 dan başlayacak.

Buraya kadar anlaşıldıysa uygulamaya da geçelim
Kod:
www.hakansen.com sitesinde şuan itibariyle Toplam <b><%=GetStats(0,"http://www.hakansen.com/kod/stats.asp")%> Konu</b> ve <b><%=GetStats(1,"http://www.hakansen.com/kod/stats.asp")%> Yorum</b> bulunmaktadır.

yazdığınız zaman
www.hakansen.com sitesinde şuan itibariyle Toplam 145 Konu ve 142 Yorum bulunmaktadır.
şeklinde bir cevap ile karşılaşacaksınız ve xmldeki verileri almış olacaksınız.

Devamı
Yorumlar (1)
Tarih : 18 Ekim 2007 Perşembe Saat: 13:50:29
Kategoriler : Programlama
Etiketler : xml, DOMDocument, msxml2, istatistik, veri almak

İller ve İlçeler Veritabanı (MS Access & Mysql)

7 Ağustos 2007

Hazıylayacağım bir site için iller ve ilçelerin bulunacağı bir veritabanına ihtiyaç duydum, ve araştırmalarım sonucunda bir veritabanı oluşturdum.

Veritabanını http://www.hakansen.com/Kod/il-ilce-veritabani.asp adresinde bulabilrisiniz.

Hem Mysql hemde mdb mersiyonu mevcuttur.

Devamı
Yorumlar (14)
Tarih : 7 Ağustos 2007 Salı Saat: 01:32:07
Kategoriler : Referanslar, Makale, Programlama, Diğer
Etiketler : ms access, mysql, türkiye, iller, il, ilçeler, ilçe, veritabanı


eXTReMe Tracker