CREATE FUNCTION dbo.GetWebPage (@webpage varchar(1000)='' )
RETURNS @webcontents table
   (
    rowid      smallint IDENTITY(1,1),  --Array index
    pagetext   varchar(4000)            --Array element contents
   )
AS
  BEGIN
    DECLARE @hr        int,
            @webreader int,
            @Num4K     int,
            @i         int,
            @contents  varchar(4000)
    IF LTRIM(RTRIM(ISNULL(@webpage,''))) =''
      SET @webpage = 'http://www.yahoo.com'
    EXEC @hr = sp_OACreate 'WebReader.Reader', @webreader OUT
    EXEC @hr = sp_OAMethod @webreader, 'GetWebPageContentsAsString',null,@webpage
    EXEC @hr = sp_OAGetProperty @webreader, 'Num4KLengths', @Num4K OUT
    SET @i = 1
    WHILE @i <=@Num4K
      BEGIN
    EXEC @hr = sp_OAGetProperty @webreader, 'PageSlice', @contents OUT, @i
    INSERT INTO @webcontents(pagetext) VALUES(@contents)
        SET @i=@i + 1
      End
    EXEC @hr = sp_OADestroy @webreader

    Return
End
select * from dbo.GetWebPage(default)