|
|
Education Zone |
|
|
Education Zone |
|
Parameter Values <%@ Language=VBScript %><% Option Explicit %> <html> <head> </head> <body> <% Dim conn Dim SQL Dim R Dim F Dim RecsAffected Dim aConnectionString Dim cm Dim param aConnectionString = "Provider=SQLOLEDB;Data " & _ "Source=(local);Database=ClassRecords " & "UID=sa;PWD=;" Set conn = Server.Create0bject("ADODB.Connection") conn.Mode = adModeRead conn.ConnectionString = aConnectionString conn.CursorLocation = adUseClient conn.open Set cm = Server.Create0bject("ADODB.Command") cm.ActiveConnection = conn cm.Parameters.Append cm.CreateParameter("StudentID", adInteger, adParamInput, 4, 7) cm.Parameters.Append cm.CreateParameter("LastName",adVarChar, adParamOutput, 20, "") cm.Parameters.Append cm.CreateParameter("FirstName", adVarChar, adParamOutput, 20, "") cm.CommandText = "getStudentName2" cm.CommandType = adCmdStoredProc Call cm.Execute(RecsAffected, , adCmdStoredProc + adExecuteNoRecords) Response.Write cm.Parameters("LastName").Value & ", " & cm.Parameters("FirstName").Value & "<Br>" Set cm = Nothing conn.Close Set conn = Nothing %> </body> </html> |
|
|
