ActiveServerPageでプログラム中からデータを所定のURLにPOSTする方法を教えてください。

未確認ですが、このようになるかと思います。

Dim xmlHttp
Dim strPostData

Set xmlHttp = Server.CreateObject("Msxml2.XMLHTTP")
strPostData = "usr=xxxx&pwd=yyyy"

xmlHttp.Open "POST", "http://end/login.asp", False '非同期実行の場合はTrue
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "Referer", "http://end/index.asp"
xmlHttp.Send strPostData

Response.Write xmlHttp.responseText