<%@ Page Language="VB" %>
<%@ Import Namespace="System.Net" %>
<script runat="Server">
Sub Page_Load
Dim wcMicrosoft As WebClient
Dim objUTF8Encoding As UTF8Encoding  
Dim strResponse As String
wcMicrosoft = New WebClient
objUTF8Encoding = New UTF8Encoding
strResponse = objUTF8Encoding.GetString(wcMicrosoft.DownloadData("http://www.serverintellect.net/system/defaultdomain/si-new-domain-default-page.aspx?site=" & Request.ServerVariables("HTTP_HOST")))
Response.Write(strResponse)
End Sub
</script>

