Konu Başlığı: XMLHTTP Türkçe Karakter Sorunu

@arsende verdiğin kod için teşekkürler çalışıyor. Karakter sorun oluşturmadan çekebiliiyor.
ben JavaScript kullandım.

HTML Kodu:

<script lianguage="vbscript">
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
</script>

<button onclick="alert(BinaryToString(xmlhttp.ResponseBody))">Kaynağı getir.</button> 

Denemeye çalıştığım tam kod da bu:

HTML Kodu:

<script>
function getElement(psID) { 
   if(document.all) { 
      return document.all[psID]; 
   } else { 
      return document.getElementById(psID); 
   } 
}
var xmlhttp;

function icerikYukle(adres,parametre)
{
frames["icerik"].document.body.innerHTML="<h1>Yükleniyor...<\/h1>"
var adres, zaman1, zaman2;
zaman1 = new Date();
xmlhttp=null
// code for Mozilla, etc.
if (window.XMLHttpRequest)
  {
  xmlhttp=new XMLHttpRequest()
  }
// code for IE
else if (window.ActiveXObject)
  {
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP")
  }
if (xmlhttp!=null)
  {
  xmlhttp.onreadystatechange=state_Change;
  xmlhttp.open("GET",adres,false)
  xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=iso-8859-9");
  xmlhttp.setRequestHeader("User-Agent", "MyCustomUser"); 

  xmlhttp.send(parametre)
  }
else
  {
  alert("Your browser does not support XMLHTTP.")
  }
zaman2=new Date();
getElement('zaman').innerHTML=window.status = zaman2.getMilliseconds()-zaman1.getMilliseconds() + " ms yüklendi.";
}
say=1;
function state_Change()
{
// if xmlhttp shows "loaded"
//frames["icerik"].document.body.innerHTML=xmlhttp.readyState+'\n'+xmlhttp.status;
if (xmlhttp.readyState==4)
  {
  // if "OK"
  if (xmlhttp.status==200)
    {
    }
  else
    {
    frames["icerik"].document.body.innerHTML+="<h1><br>Durum:"+xmlhttp.status+"<br>"+say+".deneme: XML verisini aktarırken sorun oluştu</h1><br>";say++;
    }
    frames["icerik"].document.body.innerHTML=BinaryToString(xmlhttp.ResponseBody)
    getElement("tarea").value=frames["icerik"].document.body.innerHTML;
    getElement("arama").value=xmlhttp.getAllResponseHeaders()
  }
    
}



function handleError() {
	alert("hata var")
	return true;

}

window.onerror = handleError;

</script>
<script language="vbscript">
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
</script>
<table width="100%">
<tr>
<td><input id="adrese" style="border:solid 1 green;" value="http://www.yahoo.com" style="width:400"></td>
<td><button onclick="icerikYukle(getElement('adrese').value,'')">Sayfayı Getir</button>
<button onclick="getElement('tarea').value=BinaryToString(xmlhttp.ResponseBody)">Kaynağı Aktar</button>
<button onclick="getElement('tarea').value=frames['icerik'].document.body.innerText">Sayfadaki Metni al</button>
<span id="zaman"></span>
</td>
</tr>
<tr><td><textarea id="tarea" style="width:450;height:450;overflow:auto"></textarea></td>
<td>
<iframe name="icerik" style="width:500;height:450;"></iframe>
</td></tr>
</table>