<%
Function veri_cek(CekAdres)
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , CekAdres , false
objXmlHttp.sEnd
icerik = BinaryToString(objXmlHttp.ResponseBody)
veri_cek = icerik
End Function
%>

Böyle bir fonksiyon oluştur. Böylede kullan;

<%=veri_cek("http://www.a.com/veri.php")%>