XMLHTTP de 0x80004005 hatası lütfen yardım

<%
Function DirekSite(strAdres)
Set objSite = Server.CreateObject("Microsoft.XMLHTTP" )
objSite.Open "GET" , strAdres, FALSE
objSite.sEnd
DirekSite = BinaryToString(objSite.ResponseBody)
Set DirekSite = nothing
End Function

Function SiteSahibi(strSite)
strKodlar = DirekSite(strSite)
Baslangic	=	InStr(1,strKodlar,"<meta name=author content=")
if Baslangic= 0 then
Response.Write "//Site Sahibi Belirlenemedi!//"
Exit Function
End If
Bitis		=	InStr(Baslangic,strKodlar,">")
SiteSahibi	=	Mid(strKodlar,Baslangic,Bitis-Baslangic)
BasSil		=	Len("<meta name=author content=")+1
SiteSahibi	=	Mid(SiteSahibi,BasSil,99999)
End Function
%>

hatayı --> objSite.Open "GET" , strAdres, FALSE
bu satırda verio tam hata şu :
(0x80004005)
Belirtilmemiş hata

Lütfen Yardım edin... hata çözümüne baktım veritabanı yolunu kontrol edin diyor ama veri tabanı filan yok :S

cevap burda:
http://classicasp.aspfaq.com/general...05-errors.html

(xmlhttp kısmına bak, kabaca şöyle diyo: url doğru düzgün girilmiş olsun, http ve https kısmını unutmayın, 2083 karakterden azsa, querystringi doğru dürüst url encode yapın, ve url de ikiden fazla boşluk karakteri olmasın vs... )