<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Pentacle
<% function get_url (strURL)
on error resume next
set o_xmlhttp = Server.CreateObject ("Microsoft.XMLHTTP")
o_xmlhttp.open "GET", strURL ,False,"",""
o_xmlhttp.send
if Err.Number = 0 then
if o_xmlhttp.status = 200 then
get_url = o_xmlhttp.responsetext
else
get_url = "URL doesn't exist"
end if
else
get_url = Err.Description
end if
set o_xmlhttp = nothing
end function
%>
