В отговор на:
.. докато не отворя в друг 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
%>
От неизбежното се възмущава само този, който е неразумен.