ALTER   PROCEDURE sp_JudgeWhetherAvailable(
@Date1 varchar(20),
@Date2 varchar(20),
@EmployID varchar(4),
@LeaveType varchar(4),
) AS

SELECT dbo.JudgeWhetherAvailable(@Date1,@Date2,@EmployID,@LeaveType)

---------------------------------------------------------------------------------------------

Dim rs,adoConn,adoCmd

Set adoConn = Server.CreateObject("ADODB.Connection")
   adoConn.ConnectionString = Application("ERPConnectionString")
adoConn.Open

Set adoCmd = Server.CreateObject("ADODB.Command")
Set adoCmd.ActiveConnection = adoConn
adoCmd.CommandText = "proc_outputSelectionRecordset"
adoCmd.CommandType = adCmdStoredProc
adoCmd.Parameters.Refresh
adoCmd.Parameters(1)= Date1
adoCmd.Parameters(2)= Date2
adoCmd.Parameters(3)= EmployID
adoCmd.Parameters(4)= LeaveType

set rs=adoCmd.Execute
JudgeWhetherAvailable=rs("ReturnValue")

------------------------------------------------------------

exec sp_JudgeWhetherAvailable '2005/07/17 08:00','2005/07/20 15:00','1947','S'