àéé ñ÷ðø  ñøé÷ú îñîëéí âí áàúø äì÷åç àéé ñ÷ðø îáöòú ñøé÷ä âí ááéú äòñ÷ òô"é îéåï îå÷ãí åñéãåøå.

<%
Function AsciiToUnicode(ByRef pstrAscii)
            For llngIndex = 1 To LenB(pstrAscii)
                        lstrUnicode = lstrUnicode & Chr(AscB(MidB(pstrAscii, llngIndex,1)))
            Next
            AsciiToUnicode = lstrUnicode
End function

  Response.Buffer = True
  Dim objXMLHTTP, xml
  sPath = Request.QueryString
  sUrl = "http://isralink.inl.co.il/cat.aspx"
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", sUrl, False
  xml.Send
  Dim strData : strData = AsciiToUnicode(xml.responseBody)
    Response.Write strData
  Set xml = Nothing
%>