В отговор на:

---

.. докато не отворя в друг browser URL-то.. горния код гърми с грешка.

---

<%

  '*****************************************

  ' inside.asp

  '*****************************************

  On Error Resume Next

  Response.Buffer = True

  Function getURLResponse(aUrl)

       Dim objXMLHTTP, xml, urlResponse

       Set xml = Server.CreateObject("Microsoft.XMLHTTP")

       If Err.Number <> 0 Then

            Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")

       End If

       xml.Open "GET", aUrl  , False

       xml.Send

       urlResponse=xml.responseText

       Set xml = Nothing

       getURLResponse=urlResponse 

  End Function 

  Dim urlResponse , URL  

  URL="http://clubs.dir.bg/"

  urlResponse=getURLResponse(URL)

  Response.Write "The HTML Output"

  Response.Write urlResponse

%>