tbt

<%
Function BinaryToString(Binary)
 IF isNull(Binary)=True Then Exit Function
 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
'--------------------------------
cekimalani="http://www.ntv.com.tr"
yazimalani="dosyam.html"
'--------------------------------
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", cekimalani, False
xml.Send
IF xml.Status = 200 Then
  Set FSO=Server.CreateObject("Scripting.FileSystemObject")
   Set objTextStream = FSO.CreateTextFile(server.mappath(yazimalani),True,True)
    objTextStream.Write(BinaryToString(xml.responseBODY))
   objTextStream.Close:Set objTextStream = Nothing
  Set FSO=Nothing
  Response.Write("ne çektin be asp")
ELSE
 Response.Write("errör")
END IF
Set xml=Nothing
%>