<%
Set ServerAjax = Server.CreateObject("Microsoft.Xmlhttp")

' Passing url and send ServerAjax.open "Post","http://www.codeasearch.com",false
ServerAjax.send

'Get the values
Response.Write(ServerAjax.responseText)
%>