<%
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