<%@ WebService Language="VB" Class="timeasmx" %> Imports System.Web.Services Imports System Class timeasmx Public Function GetTime() As String Dim dtNow As DateTime dtNow = DateTime.Now GetTime = dtNow.ToString End Function End Class