CREATE PROCEDURE AddForumMessage
@ForumID int, 
@ParentItemID int = null, 
@Subject varchar( 255 ), 
@Text text, 
@UserID int = null, 
@NameUser varchar( 50 ) = 'Anonymous', 
@EmailUser varchar( 100 ) = null, 
@SendEmail bit =  0 , 
@userIP varchar( 20 ) = null
AS 
if @UserID is not null 
select @NameUser = Login, @EmailUser = Email from Users where [id] = @UserID 
declare @retValue int 
declare @ThreadID int 
if (@ParentItemID is null)
begin 
exec @ThreadID = _getNewForumThread @ForumID 
insert into ForumMessages(ForumID, ThreadID, UserID, Subject, [Text], NameUser, EmailUser, X, [level], sendEmail, userIP) 
values (@ForumID, @ThreadID, @UserID, @Subject, @Text, @NameUser, @EmailUser,  0 ,  0 , @SendEmail, @userIP) 
end 
else 
begin 
declare @count int 
declare @x varchar( 50 )
declare @resx varchar( 50 )
declare @level int 
select @ThreadID = ThreadID, @x = x, @level = [level] from ForumMessages where [ID] = @ParentItemID 
select @count = count(*) from  ForumMessages where  ParentItemID =  @ParentItemID 
set @resx =RTRIM(@x)+LTRIM(STR(@count+ 1 ));
set @level = @level +  1  
insert into ForumMessages(ForumID, ThreadID, ParentItemID, UserID, Subject, [Text], NameUser, EmailUser, X, [level], 
sendEmail, userIP) values (@ForumID, @ThreadID, @ParentItemID, @UserID, @Subject, @Text, @NameUser, 
@EmailUser, @resx, @level, @SendEmail, @userIP) 
end 
select @@identity as IDENT
GO

 DB = Server.CreateObject( "ADODB.Connection" );
 DB.Open( "Provider=sqloledb;Server=SERVER;Database=db1;UID=ja;PWD=jaja" );
     a = DB.Execute( "addForumMessage 1 ,NULL,'333','33344', 1 ,'dsf', 'Jcomp@ukr.net',  0  ,'asd'");
      Response.Write(a.Fields( "IDENT" ))

CREATE PROCEDURE TT
@iduser int
as
declare @temp varchar( 20 )
select @temp = (select login from users where id=@iduser) 
select @temp as YY
GO

  a = DB.Execute( "TT 1 ");
   Response.Write(a.Fields( "YY" ))

set @tt = @@IDENTITY
select [id] as IDDTT from users where [id]=@tt