Peter J. Boettcher — Mon, 19 Feb 2001 14:13:20 +0000

1aspfan,

1. If you have access to your global.asa file I would recommend putting the METADATA reference in it. Then all pages that require it have access to it.

2. Without seeing the SP it's hard for me to help you since I don't know what it's doing.

3. You said you have to return UserLogId, From_dt , and To_dt to the browser. You seem to be passing these values to the SP so it looks like you have them already.

4. Noting 2 + 3 above, I would write the ASP like follows:

Set dbConnection = Server.CreateObject("ADODB.Connection")
Set cmdExample = Server.CreateObject("ADODB.Command")

dbConnection.Open Application("dbConnection")
With cmdExample
     .ActiveConnection = dbConnection
     .CommandText = "ap_contactlist"
     .CommandType = adCmdStoredProc
     .Parameters.Append cmdExample.CreateParameter "return",adInteger,adParamReturnValue)
     .Parameters.Append cmdExample.CreateParameter("UserLogId", adCurrency, adParamInput,8,10)
     .Parameters.Append cmdExample.CreateParameter("From_dt", adCurrency, adParamInput,8,20)
     .Parameters.Append cmdExample.CreateParameter("To_dt", adVarChar, adParamInput,12,"psychology")
     .Parameters.Append cmdExample.CreateParameter("UserLogID_Output",adCurrency,adParamOutput,8,0)
     .Parameters.Append cmdExample.CreateParameter("From_dt_Output",adCurrency,adParamOutput,8,0)
     .Parameters.Append cmdExample.CreateParameter("To_dt_Output",adVarChar,adParamOutput,12,"EMPTY")
End With

Set dbConnection = cmdExample.Execute

dbConnection.Close
Set dbConnection = Nothing
	
Return_Value = cmdExample.Parameters("return").Value
UserLogID_Return = cmdExample.Parameters("UserLogID_Output").Value
From_dt_Return = cmdExample.Parameters("From_dt_Output").Value
To_dt_Return = cmdExample.Parameters("To_dt_Output").Value

Set cmdExample = Nothing

Note: I haven't done any error checking in this example. For real world use you should always include error handling.