home *** CD-ROM | disk | FTP | other *** search
/ Chip 2009 November / Chip_2009.11_CD.iso / I386 / IIS6.CAB / IIS_StoredProcedures_JScript.asp < prev    next >
Encoding:
Text File  |  2001-10-04  |  2.4 KB  |  84 lines
  1. <%@ LANGUAGE="JScript" %>
  2.  
  3. <!--METADATA TYPE="typelib" uuid="00000206-0000-0010-8000-00AA006D2EA4" -->
  4.  
  5. <!*************************
  6. This example calls the ByRoyalty stored procedure 
  7. installed with the PUBS database with Microsoft SQL Server.
  8.  
  9. This sample assumes that SQL Server is running on the local machine
  10.  
  11. SQL needs to know the name of the server.  Since IISHelp calls this file with 
  12. "http://localhost...", simply using Request.ServerVariables("SERVER_NAME")
  13. will not work because it returns the name "localhost" instead of the machine name.
  14. SQL doesn't recognise "localhost" as itself for security reasons.
  15. This script uses an If... Then statement to call itself once the user has specified the server name.
  16. *************************>
  17.  
  18.  
  19. <HTML>
  20.     <HEAD>
  21.         <TITLE>Using Stored Procedures</TITLE>
  22.     </HEAD>
  23.  
  24.     <BODY bgcolor="white" topmargin="10" leftmargin="10">
  25.         
  26.         <!-- Display Header -->
  27.  
  28.         <font size="4" face="Arial, Helvetica">
  29.         <b>Using Stored Procedures</b></font><p>   
  30.         <%
  31.         var SrvName, Empty;
  32.         SrvName = Request.Form("srvname");
  33.         Empty = Request.Form("empty");
  34.  
  35.         if (Empty == SrvName) 
  36.         {
  37.             Response.Write("Please enter the name of your SQL server:<BR>");
  38.             %>
  39.             <FORM method="POST" action="StoredProcedures_JScript.asp" id=form1 name=form1>
  40.             <INPUT name=srvname type=text>
  41.             <INPUT type=submit value="Enter" id=submit1 name=submit1>
  42.             <% 
  43.         }
  44.         else 
  45.         {
  46.             var oConn;        
  47.             var oCmd;        
  48.             var oRs;
  49.             var strConn;    
  50.  
  51.             oConn = Server.CreateObject("ADODB.Connection");
  52.             oCmd = Server.CreateObject("ADODB.Command");
  53.  
  54.             
  55.             // Open ADO Connection using account "sa"
  56.             // and blank password
  57.             
  58.             strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source=" + Request.Form("srvname");
  59.             oConn.Open(strConn);
  60.             oCmd.ActiveConnection = oConn;
  61.  
  62.  
  63.             // Setup Call to Stored Procedure and append parameters
  64.  
  65.             oCmd.CommandText = "{call byroyalty(?)}";
  66.             oCmd.Parameters.Append(oCmd.CreateParameter("@Percentage", adInteger, adParamInput));
  67.  
  68.  
  69.             // Assign value to input parameter
  70.     
  71.             oCmd("@Percentage") = 75;        
  72.             
  73.             
  74.             // Fire the Stored Proc and assign resulting recordset
  75.             // to our previously created object variable
  76.             
  77.             oRs = oCmd.Execute();            
  78.             %>
  79.  
  80.             Author ID = <% Response.Write(oRs("au_id")) %><BR><%
  81.         } %>
  82.     </BODY>
  83. </HTML>
  84.