tamam arkadaşım çözdüm çok teşekkür ederim
genede yararlanmak isteyenler olabilir örnek olarak bu sayfayı çektim buyrun

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

On error resume next
site = "https://www.r10.net/asp/112001-asp-tear-kullanimi.html"

Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
  HTTP.Open "Get" , site, False
  HTTP.SEnd
Sayfa_Al = BinaryToString(HTTP.ResponseBody)
Set HTTP = Nothing


if err then

 response.write "HATA: "&err.description

 else
  Basla = InStr(1,Sayfa_Al, "<title>" , 1) + Len("<title>" )
  Bitir = InStr(Basla, Sayfa_Al, "</title>" , 1) - Basla
  Title = Mid(Sayfa_Al, Basla, Bitir)
  response.write Title &"<br /><br />"
  
  Basla = InStr(1,Sayfa_Al, "<meta name=""keywords"" content=""" , 1) + Len("<meta name=""keywords"" content=""" )
  Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla 
  Keyws = Mid(Sayfa_Al, Basla, Bitir)
  response.write Keyws &"<br /><br />"  
  
  Basla = InStr(1,Sayfa_Al, "<meta name=""description"" content=""" , 1) + Len("<meta name=""description"" content=""" )
  Bitir = InStr(Basla, Sayfa_Al, ">" , 1) - Basla 
  Descs = Mid(Sayfa_Al, Basla, Bitir)
  response.write Descs &"<br /><br />"    
  
  Basla = InStr(1,Sayfa_Al, "<div id=""post_message_1245650"">" , 1) + Len("<div id=""post_message_1245650"">" )
  Bitir = InStr(Basla, Sayfa_Al, "</div>" , 1) - Basla 
  Yaz = Mid(Sayfa_Al, Basla, Bitir)
  response.write Yaz &"<br /><br />"    
 end if
 
%>