<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
theType = request.form("type")
theSiteKey = request.form("siteKey")
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
select case theType
	case "map"
		xmlhttp.open "GET", "http://whos.amung.us/statspages/recent.php?k="+theSiteKey, false 
		xmlhttp.send "" 
		Response.write xmlhttp.responseText 
	case else
		xmlhttp.open "GET", "http://whos.amung.us/statspages/readers.php?k="+theSiteKey, false 
		xmlhttp.send "" 
		Response.write xmlhttp.responseText 
end select
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
set xmlhttp = nothing 

%>