FourthDemo.aspx

<%@ Page Language="VB" %>

<script runat="server">
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim lcUserAgent As String = Request.UserAgent.ToString()

        If lcUserAgent.Contains("Visual Search Pro Demo") = False Then
            Response.Write("Sorry. Not the User-Agent I expected.")
        Else
            Response.Write("Yay! You selected the correct User-Agent!")
        End If
    End Sub
</script>