Stored Procedure Does Not Work

Hi All

Please review this vb6 code (the stored procedure was added by aspnet_regsql.exe)

Thanks

Guy 

 

   With CMD
      .CommandText = "aspnet_Users_CreateUser"
      Call .Parameters.Refresh
      .Parameters(1).Value = "812cb465-c84b-4ac8-12a9-72c676dd1d65"
      .Parameters(2).Value = "myuser"
      .Parameters(3).Value = 0
      .Parameters(4).Value = Now()
      Call RS.Open(CMD)
   End With

The error I get is :Invalid character value for cast specification.

This is the stored procedure code:

set ANSI_NULLS ON

set QUOTED_IDENTIFIER OFF

GO

ALTER PROCEDURE [dbo].[aspnet_Users_CreateUser]

@ApplicationId uniqueidentifier,

@UserName nvarchar(256),

@IsUserAnonymous bit,

@LastActivityDate DATETIME,

@UserId uniqueidentifier OUTPUT

AS

BEGIN

IF( @UserId IS NULL )

SELECT @UserId = NEWID()

ELSE

BEGIN

IF( EXISTS( SELECT UserId FROM dbo.aspnet_Users

WHERE @UserId = UserId ) )

RETURN -1

END

INSERT dbo.aspnet_Users (ApplicationId, UserId, UserName, LoweredUserName, IsAnonymous, LastActivityDate)

VALUES (@ApplicationId, @UserId, @UserName, LOWER(@UserName), @IsUserAnonymous, @LastActivityDate)

RETURN 0

END