Problema en procedimiento sql server en asp

[JavierMMM]

Hola amiggos, necesito incrustar un procedimiento de sql server en asp, pero me marca error al abrir el RecordSet, alguien que pudiera decirme en qué estoy mal. Este es el código que utilizo:

Código ASP:

Set con = Server.CreateObject("Adodb.Connection")
Set rs = Server.CreateObject("Adodb.Recordset")
 
con.connectionstring = alias
con.open
 
rs.open"declare @PageSize int" &_
" declare @PageNumber int" &_
" set @PageSize = 5" &_
" set @PageNumber = 2" &_
" declare @PageN int" &_
" IF @pageNumber <= 1 SET @PageN = 1" &_
" IF @pageNumber > 1 SET @PageN = @pageNumber-1" &_
" declare @tampag int" &_
" set @tampag=@pageSize*@PageN" &_
" declare @ultimo int" &_
" SET ROWCOUNT @tampag" &_
" SELECT @ultimo=idMensaje FROM Tabla1 WHERE activo = 1 and idUsuarioA = 10" &_
" if @pageNumber=1" &_
" begin" &_
" SET ROWCOUNT @pageSize" &_
" SELECT *" &_
" FROM Tabla1"&_
" WHERE activo = 1 and idUsuarioA = 10" &_
" end" &_
" else" &_
" begin" &_
" SET ROWCOUNT @pageSize" &_
" SELECT *" &_
" FROM Tabla1" &_
" WHERE idMensaje > @ultimo and activo = 1 and idUsuarioA = 10" &_
" end" &_
" SET ROWCOUNT 0", con, 3, 1
 

...