How to call stored procedure with parameter in vbscript in classic ASP

See more:

VBScript

i have one stored procedure which takes an one input parameter and returns the result. i tried lots of solutions but it not worked. it is throwing an internal server error (HTTP 500 Internal Server Error)and the page is blank
(The website cannot display the page). Could you please help me to sort out this problem.

What I have tried:

Dim strSQLConnection
dim strPass2
strSQLConnection = "driver={SQL Server};server=[servername];database=[DB name];uid=;pwd=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Set objCommand = Server.CreateObject("ADODB.Command")
Set objParam = Server.CreateObject("ADODB.Parameter")
Set rstUsers = Server.CreateObject("ADODB.Recordset")
Conn.Open strSQLConnection

objCommand.ActiveConnection = strSQLConnection
objCommand.commandtext = "Getdetails" 
objCommand.CommandType = 4   'defines cmd type as stored proc
Set objParm = objCommand.CreateParameter("@UserId", 3,1,,strUserId)          
objCommand.Parameters.Append objParm

set rstUsers = objCommand.Execute

If Not rstUsers.EOF Then
	strPass2 = rstUsers("ntuserid")
      
End if