<%
strURL = "https://login.facebook.com/login.php?login_attempt=1"
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "POST" , strURL , false

objXmlHttp.send "email=epostan@gmail.com&pass=sifren&checked=none& persindent=0&input=login"

strHTML = objXmlHttp.ResponseText
Set objXmlHttp = Nothing
Response.Write(strHTML)
%>

Mantık bu. Yabancı kaynakları biraz araştırın. Mutlaka olması lazım bununla ilgili makale.