<%@ Language=VBScript%>
<%Option Explicit%>
Employee Data
<%
Dim conn
Dim cmd
Dim param1
Dim param2
Dim param3
set conn = Server.CreateObject("ADODB.Connection")
set cmd = Server.CreateObject("ADODB.Command")
'
'conn.ConnectionString = "Provider=ORAOLEDB.ORACLE;Data Source=zeal;User ID=scott;password=tiger;"
'conn.Open
' Specify the connection details for make connection to oracle database via DSN=zeal
conn.Open "dsn=zeal;uid=scott;password=tiger"
set cmd.ActiveConnection = Conn
' Specify the name of the stored procedure that we wish to call
cmd.CommandText = "GetEmployeeDetails"
' cmd.CommandType = adCmdStoredProc
cmd.CommandType = 4
'set param1 = cmd.CreateParameter("EMPNO", adInteger, adParamInput, , 0)
set param1 = cmd.CreateParameter("EMPNO",3,1, 0)
cmd.Parameters.Append param1
'Get Employee detail for employee Number 7902
cmd.Parameters("EMPNO") = 7902
'First Output Parameter
'Set Param2 = cmd.CreateParameter("ENAME", adBSTR, adParamOutPut, 10)
set param2 = cmd.CreateParameter("ENAME",8,2,10)
cmd.Parameters.Append param2
'Second Output Parameter
'Set Param3 = cmd.CreateParameter("JOB", adBSTR, adParamOutPut, 9)
set param3 = cmd.CreateParameter("JOB",8,2,9)
cmd.Parameters.Append param3
cmd.execute
Response.write("Output from Stored Procedure for empno : ")
Response.write(cmd.Parameters(0))
Response.write("
")
Response.write(cmd.Parameters(1))
Response.write("
")
Response.write(cmd.Parameters(2))
Response.write("
")
Conn.Close
Set Cmd = Nothing
Set Conn = Nothing
%>