STOREDPROCEDURES_VBSCRIPT.ASP

<% @ LANGUAGE="VBSCRIPT" %> 
<%Option Explicit%>

<!--#include file="adovbs.inc"-->

<%
' This example can be used to call the ByRoyalty stored procedure
' installed with the PUBS database with Microsoft SQL Server.

' This sample assumes that SQL Server is running on the local machine
%>


<HTML>
<HEAD>
<TITLE>Using Stored Procedures</TITLE>
</HEAD>

<BODY bgcolor="white" topmargin="10" leftmargin="10">

<!-- Display Header -->

<font size="4" face="Arial, Helvetica">
<b>Using Stored Procedures</b></font><p>

<%
Dim oConn
Dim oCmd
Dim oRs

Set oConn = Server.CreateObject("ADODB.Connection")
Set oCmd = Server.CreateObject("ADODB.Command")


' Open ADO Connection using account "sa"
' and blank password

oConn.Open "DSN=LocalServer;UID=sa;PWD=;DATABASE=pubs"
Set oCmd.ActiveConnection = oConn


' Setup Call to Stored Procedure and append parameters

oCmd.CommandText = "{call byroyalty(?)}"
oCmd.Parameters.Append oCmd.CreateParameter("@Percentage", adInteger, adParamInput)


' Assign value to input parameter

oCmd("@Percentage") = 75


' Fire the Stored Proc and assign resulting recordset
' to our previously created object variable

Set oRs = oCmd.Execute
%>

Author ID = <% Response.Write oRs("au_id") %><BR>

</BODY>
</HTML>