stored procedure with classic asp

hi
this is an annoying problem!!! Would appreciate some help please.
I am missing something obvious but it is holding me up!

Michael

Classic asp code

invoked by
<%=readSetup("message")%>


Function ReadSetup(SetupKey)
DIM cmdSetupProc
DIM rstSetupProc
DIM ParamSetup

Set cmdSetupProc = Server.CreateObject("ADODB.Command")
cmdSetupProc.ActiveConnection = conn
cmdSetupProc.CommandType = adCmdStoredProc      
cmdSetupProc.CommandText = "GetSetupData"
cmdStoredProc.Parameters.Append .createParameter("@KEY", adVarchar(200), adParamInput,,SetUpKey)
SET rstSetupProc = cmdSetupProc.Execute
ReadSetup=rstSetupProc.Fields("TEXT")
End Function

The stored procedure  is:
USE [xxxxxx]
GO

/****** Object:  StoredProcedure [xxxxx].[GetSetupData]    Script Date: 05/04/2013 16:53:49 ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER Procedure [xxxxx].[GetSetupData]
(
      @Key varchar(200)
)
AS
SELECT * FROM [Setup]  WHERE [key] = @Key