<%@ WebService Class="FeaturedService" %>

Imports System
Imports System.Web.Services
Imports System.Data
Imports System.Data.SqlClient

<WebService( Namespace:="http://yourdomain.com/webservices" )> _
Public Class FeaturedService : Inherits WebService

<WebMethod()> Public Function GetFeatured() As String
  Dim strSelect As String
  Dim conPubs As SqlConnection
  Dim dadPubs As SqlDataAdapter
  Dim dstTitles As DataSet
  Dim drowTitle As DataRow
  Dim objRanNum As Random
  Dim intRanNum As Integer

  strSelect = "SELECT Title, isNull( Notes, '' ) Notes From Titles"
  conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" )
  dadPubs = New SqlDataAdapter( strSelect, conPubs )
  dstTitles = New DataSet
  dadPubs.Fill( dstTitles, "Titles" )
  objRanNum = New Random
  intRanNum = objRanNum.Next( 0, dstTitles.Tables( "Titles" ).Rows.Count )
  drowTitle = dstTitles.Tables( "Titles" ).Rows( intRanNum )
  Return drowTitle( "Title" ) & " - " & drowTitle( "Notes" )
End Function


End Class