SecondDemo.aspx

<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
	Dim lcUserAgent As String = Request.UserAgent.ToString()
        Dim lcIPAddress As String = Request.UserHostAddress.ToString()
       
	Dim oVFP As New Interop.SecondDemo.Demo
	Dim cRet As String = oVFP.GetHTML(lcUserAgent,lcIPAddress)
	oVFP = Nothing
	Response.Write(cRet)
    End Sub
</script>