Lottozahlen generieren per Zufallszahl

[Hubertus]

Die folgende stored procedure hilft mir beim Ausfüllen des Lottozettels:

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE Lotto
    @von int = 1,
      @bis int = 49,
    @Anz int = 6
AS
BEGIN
SET NOCOUNT ON
DECLARE @Zahl integer
DECLARE @Zahlen AS TABLE(Zahl integer)

WHILE (SELECT COUNT(*) FROM @Zahlen) < @Anz
BEGIN
   SET  @Zahl=(SELECT FLOOR( @von + ( RAND() * (@bis - @von + 1 )) ))

   IF   @Zahl IN (SELECT Zahl FROM @Zahlen)
        CONTINUE            
   INSERT
   INTO     @Zahlen
   VALUES  (@Zahl)
END

SELECT   *
FROM     @Zahlen
ORDER BY 1

END
GO