Viewing source for Recipe2109vb.aspx
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Net" %>
<html>
<title>Performing a DNS Lookup </title>
<head>
<script language="vb" runat="server">
Sub BtnCheck_Click(sender As Object, e As EventArgs)
try
LblHostName.Text = ""
Dim GetIPHost as IPHostEntry
GetIPHost = Dns.GetHostByName(TxtInput.Text)
Dim ip as IPAddress
Dim HostIpaddress as long
LblValue.Text = "DNS LookUp as : " & "<Br>"
for each ip in GetIPHost.AddressList
HostIpaddress = ip.Address
LblValue.Text &= HostIpaddress.ToString() & " -- "
LblValue.Text &= ip.ToString() & "<br>"
Next ip
LblHostName.Text = "Host Name is: " & GetIPHost.HostName
catch ex as Exception
LblValue.Text = "<font color=red>Error:" & ex.Message
End Try
End Sub
</script>
</head>
<body>
<h3><font face="Verdana">DNS lookup for a particular Fully Qualified Domain Name.</font></h3>
<form runat="server">
Please enter Fully qualified Domain name:
<asp:TextBox id="TxtInput" runat="server" value="www.aspalliance.com" /><br />
<asp:Button id="BtnCheck" Text="Click Me" onclick="BtnCheck_Click" runat="server" /><br />
<br />
<asp:Label id="LblValue" runat="server" /><br />
<asp:Label id="LblHostName" runat="server" />
</form>
</body>
</html>