CmdSP.Parameters.Append CmdSP.CreateParameter("@ProposedReleaseDate",   adVarChar, adParaminput, 20, ConvertToDate(Request.Form("PROPOSEDRELEASEDATE") & "")) 

CREATE PROC spAddNewsStory   
   @UserName VARCHAR(200), 
   @Password VARCHAR(10), 
   @UniqueID VARCHAR(50), 
   @UniqueCodeFromServer VARCHAR(200) = NULL, 
   @StoryText TEXT,
   @Headline VARCHAR(200) = NULL,
   @ProposedReleaseDate VARCHAR(200) ,   
   @ProposedReleaseTime VARCHAR(200),   
   @CompaniesID NUMERIC(18,0) = NULL,
   @Status INT OUTPUT

AS BEGIN

DECLARE @Count1 NUMERIC(18,0),@Count2 NUMERIC(18,0),@UserID NUMERIC(18,0) ,@ID VARCHAR(6), @CompanyName VARCHAR(200)



SELECT @Count1 = count(*) ,@UserId = MAX(USERDetailsID)
FROM UserDetails (NOLOCK)
WHERE UserName = @UserName
AND   Password = @Password
AND   UniqueCodeFromServer = @UniqueCodeFromServer
AND   Valid = 1


-- we must check that the unique id is valid
SELECT @Count2 = count(*) 
FROM RegisteredComputers (NOLOCK)
WHERE Uniqueid = @Uniqueid
AND Valid = 1

SELECT @ID = ID, @CompanyName = CompanyName
FROM Companies (NOLOCK)
WHERE CompaniesID = @CompaniesID



IF (@Count1 > 0) AND (@Count2 > 0)
BEGIN
  INSERT INTO News (UserID,Story,DateSent,ReferenceCode,Headline,SentToNewstrack,CompaniesID,ID,CompanyName,ProposedReleaseDate,ProposedReleaseTime)
  VALUES (@UserID,@StoryText,getdate(),@UniqueCodeFromServer,@Headline,0,@CompaniesID,@ID,@CompanyName,@ProposedReleaseDate,@ProposedReleaseTime)
  Select @Status = 1
END
ELSE
BEGIN
  Select @Status = 0
END


END
go