<%@ Page Language="VB" %> <html> <head> <title>Accessing the MachineName Property</title> <script runat="server"> Sub GetMachineName() Dim ServerName As String ServerName = Server.MachineName Response.Write("The name of the server is " & ServerName & ".<br>") End Sub </script> </head> <body> <% GetMachineName %> </body> </html>