Hakan Şen

xmlHTTP Kullanarak sorgulanmak istenen URL`nin var olup olmadığını kontrol etmek mümkündür.

kayit.kisaltiyor.us adresinde kısaltılacak urller girildiğinde öyle bir adresin var olup olmadığını kontrol etmek için kullanıyordum, bir yerlerde işinize yarayabilir.

    Function GETHTTP(adres)

               On Error Resume Next 

          Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 

               StrHTTP.Open "GET" , adres, False 

               StrHTTP.sEnd 

                    If Err.Number = -2147012889 Then 

                    Mesaj =   "<font style=""color:red;"">DNS Yanıt vermiyor, Siteye ulaşılamadı</font>"

                    ElseIf Err.Number = -2147012867 Then 

                    Mesaj =   "<font style=""color:red;"">Url Bulunamadı</font>"

                    Else

                    Mesaj = "Url Bulundu Çalışıyor"

                    End If

               GETHTTP = Mesaj 

          Set StrHTTP = Nothing 

     End Function 





strUrl = Request("url")

If strUrl = "" Then strUrl = "www.hakansen.com"

If Mid(strUrl,1,7) <> "http://" Then strUrl = "http://"&strUrl



Veri = GETHTTP(strUrl)

Response.Write Veri

Ohh be şahane hayat.

TTNet ADSL TARİFELERİ YENİLENDİ

TTNet, 2 megabit ADSL ücretini 69, 1 megabiti 49 YTL`ye indirdi   
ADSL 4 kat hızlandı fiyatlar düştü. TTNet, Türk Telekom`un yeni toptan ADSL fiyatlandırmasına paralel olarak Tüm Türkiye`de son zamanların en büyük indirimini gerçekleştirdi. Yeni indirimlerden sonra limitsiz ADSL fiyatlarında yüzde 50`ye varan oranlarda indirim gerçekleşti: 1 megabit limitsiz ADSL bağlantısı 49, 2 megabit 69, 4 megabit ise 89 YTL`ye son kullanıcıya ulaşacak!

Türk Telekom`un 1 Ağustos 2007 tarihinden itibaren geçerli olan yeni toptan ADSL fiyatlarına paralel olarak TTNet, yeni ADSL tarife ve indirimlerini aynı tarihten itibaren geçerli olacak şekilde hayata geçirdi.

Yeni tarifelerle TTNet ADSL 4 kat hızlandı. 256 kilobit limitsiz tarife mevcut 49 YTL`lik ücretinde herhangi bir artış olmadan 1 megabite çıkarılırken; 512 limitsiz ADSL internet bağlantısının hızı 2 megabite getirildi ve aylık ücreti 79 YTL`den 69 YTL`ye indi.

Yeni tarifede en çok göze çarpan şüphesiz ülkemizdeki internet kullanıcılarına ilk kez sunulan 4 megabitlik ADSL erişim paketi oldu. Çalışmaların tamamlanmasının ardından Türkiye`de ilk kez 4 megabit bağlantı kullanıma sunuldu. 4 megabit genişbant limitsiz internet bağlantısı için kullanıcılar ayda yalnızca 89 YTL ödeyecek.

Yine TTNet`in yeni internet paketlerinden birini de 2 megabit hızında ve 6 gigabyte limitli ADSL bağlantısı oluşturuyor. TTNet, 1 megabit hızında 4 ve 6 gigabyte limitli paketlerinin fiyatını korurken 1 megabit hızında 9 gigabyte limitli paketini otomatik olarak 1 megabit limitsize çevirdi.

Otomatik olarak geçilecek

TTNet müşterilerinin indirimli ücretleri 1 Ağustos 2007 tarihinden itibaren geçerli olacak. Yeni tarifeler ile paketler arası geçişler ise 6 Ağustos 2007 tarihinde otomatik olarak gerçekleştirilecek. Özellikle 256, 512 kilobit ve 1 megabit limitsiz bağlantılar 4 kat hızlanacak; 256 kilobit müşterileri 1 megabit limitsiz tarifeye, 512 kilobit müşterileri 2 megabit limitsiz tarifeye ve 1 megabit limitsiz müşterileri ise 4 megabit limitsiz tarifeye transfer olacak. 2 megabit limitsiz müşterileri ise 4 megabit limitsiz tarifeye taşınacak. Aynı şekilde 1 megabit hızında 9 gigabyte limitli paket yine 1 megabit limitsiz pakete otomatik şekilde transfer olacak.

Aylık ücretlerin dışında, statik IP ve bağlantı ücretlerinde herhangi bir değişiklik yapılmadı. Bu arada Yaz Fırtınası Kampanyası`ndan faydalanan kullanıcılar, yeni tarife ile yeni paketlerine otomatik olarak taşınacak ve bu aboneler mevcut kampanya kapsamındaki indirimlerinden faydalanmaya devam edebilecek.

Fenerbahçe Spor Klübünün resmi yayın organı olan Fenerbahçe Gazetesinin web sitesinde bir kaç güncelleme yapıldı.

Kodlaması 2006 yılı sonlarında tarafımdan yapılan www.fenerbahcegazetesi.com sitesinde gelen istek üzerine haberler kısmında birkaç değişiklik ve güncelleme yapıldı.

Binary verileri stringlere çevirmeye yarayan bir fonksiyon, xmlHTTP ile veri çektiğimizde gelen binary verileri süzmemize yarayacaktır.

Private  Function BinaryToString(Binary) 

     Dim  cl1, cl2, cl3, pl1, pl2, pl3 

     Dim  L 

        cl1 = 1 

        cl2 = 1 

        cl3 = 1 

        L = LenB(Binary) 

 

     Do  While cl1<=L 

          pl3 = pl3 &  Chr(AscB(MidB(Binary,cl1,1))) 

          cl1 = cl1 + 1 

          cl3 = cl3 + 1 

          If  cl3>300  Then 

                     pl2 = pl2 & pl3 

                     pl3 = "" 

                     cl3 = 1 

                     cl2 = cl2 + 1 

                      If  cl2>200  Then 

                             pl1 = pl1 & pl2 

                              pl2 = "" 

                              cl2 = 1 

                      End  If 

                  End If 

     Loop 

     BinaryToString = pl1 & pl2 & pl3 

 End Function

Kendi kendini kaydedebilen dinamik bağlantı kitaplığı (DLL) veya ActiveX Denetimi (OCX) dosyaları gibi nesne bağlama ve katıştırma (OLE) denetimlerini kaydettirmek veya kaydını silmek için Regsvr32 aracını (Regsvr32.exe) kullanabilirsiniz. Bu işlem Windows, Microsoft Internet Explorer veya diğer programlarda sorun giderme için gerekli olabilir.

Regsvr32.exe Kullanımı
RegSvr32.exe`de aşağıdaki komut satırı seçenekleri bulunmaktadır:

Regsvr32  [/n] [/i[:komut_satırı]] dll_adı



   /u - Sunucu kaydını kaldır<BR/>

   /i - DllInstall'u isteğe bağlı [komut_satırı] geçirerek çağır;

        /u ile kullanıldığında DllUninstall'u çağırır

   /n - DllRegisterServer'ı çağırma; bu seçenek

        /i ile birlikte kullanılmalıdır