Hello,

I followed the example in MSDN http://msdn.microsoft.com/en-us/library/ms730935.aspx
When I verify if the service is working or not, the result is that it works from visual studio(service.exe) but failed in browsing to the service's debug page at http://localhost:8080/ServiceModelSamples/Service

I am using IE 8 and Windows XP Pro.
Could you please advise me?
Thanks.
Code:
Imports System
Imports System.ServiceModel
Imports System.ServiceModel.Description

Namespace Microsoft.ServiceModel.Samples
    Module Service
        ' Define a service contract.
        <ServiceContract([Namespace]:="http://Microsoft.ServiceModel.Samples")> _
        Public Interface ICalculator
            <OperationContract()> _
            Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double
            <OperationContract()> _
            Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double
            <OperationContract()> _
            Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double
            <OperationContract()> _
            Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double
        End Interface

        ' Step 1: Create service class that implements the service contract.
        Public Class CalculatorService
            Implements ICalculator

            ' Step 2: Implement functionality for the service operations.
            Public Function Add(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Add
                Dim result As Double = n1 + n2
                ' Code added to write output to the console window.
                Console.WriteLine("Received Add({0},{1})", n1, n2)
                Console.WriteLine("Return: {0}", result)
                Return result
            End Function

            Public Function Subtract(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Subtract
                Dim result As Double = n1 - n2
                Console.WriteLine("Received Subtract({0},{1})", n1, n2)
                Console.WriteLine("Return: {0}", result)
                Return result

            End Function

            Public Function Multiply(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Multiply
                Dim result As Double = n1 * n2
                Console.WriteLine("Received Multiply({0},{1})", n1, n2)
                Console.WriteLine("Return: {0}", result)
                Return result

            End Function


            Public Function Divide(ByVal n1 As Double, ByVal n2 As Double) As Double Implements ICalculator.Divide
                Dim result As Double = n1 / n2
                Console.WriteLine("Received Divide({0},{1})", n1, n2)
                Console.WriteLine("Return: {0}", result)
                Return result

            End Function
        End Class
        Class Program
            Shared Sub Main()
                Dim baseAddress As New Uri("http://localhost:8080/ServiceModelSamples/Service")
                Dim selfHost As New ServiceHost(GetType(CalculatorService), baseAddress)
                Try
                    selfHost.AddServiceEndpoint( _
                    GetType(ICalculator), _
                    New WSHttpBinding(), _
                    "CalculatorService")
                    Dim smb As New ServiceMetadataBehavior()
                    smb.HttpGetEnabled = True
                    selfHost.Description.Behaviors.Add(smb)
                    selfHost.Open()
                    Console.WriteLine("The service is ready.")
                    Console.WriteLine("Press <ENTER> to terminate service.")
                    Console.WriteLine()
                    Console.ReadLine()
                    selfHost.Close()
                Catch ce As CommunicationException
                    Console.WriteLine("An exception occurred: {0}", ce.Message)
                    selfHost.Abort()
                End Try
            End Sub
        End Class
    End Module
End Namespace