<%@ 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>