<% @ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <%' 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 ' SQL needs to know the name of the server. Since IISHelp calls this file with ' "http://localhost...", simply using Request.ServerVariables("SERVER_NAME") ' will not work because it returns the name "localhost" instead of the machine name. ' SQL doesn't recognise "localhost" as itself for security reasons. ' This script uses an If... Then statement to call itself once the user has specified the server name. %> Using Stored Procedures Using Stored Procedures

<% if ("" = Request.Form("srvname")) then Response.Write "Please enter the name of your SQL server:
" %>

<% else Dim oConn Dim strConn 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 strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source="& Request.Form("srvname") oConn.Open strConn 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") %>
<% end if %>