getAddress.asp Module Code

The getAddress.asp module gets the customer's profile, then places output from one row of a resultset into session variables. The main steps are:

• The Connection Object: Making and opening a connection
  
  
• The Command Object: Specifying a query that is a stored procedure
  
  
• The Parameter Object: Specifying the input parameter of a command
  
  
• The Parameter Object: Assigning a value to the input parameter of a command
  
  
• The Recordset Object: Creating an active connection and executing a command that returns a Recordset
  
  
• The Field Object: Extracting data from a Recordset and assigning the data to session variables

1. The Connection Object: Making and opening a connection

   This application first uses the following steps to define a connection to a database by setting up a Connection object to reference the data source:

   1. Set up the Connection object.
      
      
   2. Return the number of seconds to wait when creating a connection before stopping the attempt and returning an error specified in the global.asa module.
      
      
   3. Return the number of seconds to wait when executing a command before stopping the attempt and returning an error specified in the global.asa module.
      
      
   4. Specify the data source and user name to apply when opening the connection.
      
      
   5. Open the connection:

   The corresponding code follows:

   Set connPubs = Server.CreateObject("ADODB.Connection")
   connPubs.ConnectionTimeout = Session("accts_ConnectionTimeout")
   connPubs.CommandTimeout = Session("accts_CommandTimeout")
   connPubs.ConnectionString = "DSN=Sample;UID=sa;"
   connPubs.open
   

2. The Command Object: Specifying a query that is a stored procedure

   After creating and opening a connection, the application sets up a Command by object using the following steps:

   1. Set up the Command object.
      
      
   2. Specify the text of the command to execute.
      
      
   3. Specify that the command text is a stored procedure.

   The corresponding code follows:

   Set cmdPubs = Server.CreateObject("ADODB.Command")cmdPubs.CommandText = "sp_get_customer_profile"
   cmdPubs.CommandType = adCmdStoredProc
   

3. The Parameter Object: Specifying the input parameter of a command

   After creating a Command object, the application sets up a Parameter object by using the following steps:

   1. Set up the Parameter object collection.
      
      
   2. Add the following input parameter to the collection:

      @ pivcEmailAddress of type Character with a size of 64

   The corresponding code follows:

   set p = cmdPubs.Parameters
   p.Append cmdPubs.CreateParameter("@pivcEmailAddress", adVarChar,     adParamInput, 64)
   

4. The Parameter Object: Assigning a value to the input parameter of a command

   The following code specifies the value to assign to the input parameter:

   cmdPubs("@pivcEmailAddress") = Session("cEmailAddress")
   

5. The Recordset Object: Creating an active connection and executing a command that returns a Recordset

   The following code specifies the connection to use and then executes the query that returns the Recordset object:

   Set cmdPubs.ActiveConnection = connPubs
   set rsPubs = cmdPubs.Execute
   

6. The Field Object: Extracting data from a Recordset and assigning the data to session variables

   The following code extracts the values of the Field objects of a Recordset, and then stores the values in the session variables:

   if not rsPubs.EOF then    Session("CreditCardTypeID")        = rsPubs("CreditCardTypeID")    Session("CustomerStatus")         = rsPubs("CustomerStatus")    Session("CustomerID")             = rsPubs("CustomerID")
   Session("CustomerFirstName")    = rsPubs("CustomerFirstName")
   Session("CustomerLastName")        = rsPubs("CustomerLastName")
   Session("eMailAddress")            = rsPubs("eMailAddress")
   Session("Password")                = rsPubs("Password")
   Session("CustomerAddress1")        = rsPubs("CustomerAddress1")
   Session("CustomerAddress2")        = rsPubs("CustomerAddress2")
   Session("CustomerCity")         = rsPubs("CustomerCity")
   Session("CustomerState")         = rsPubs("CustomerState")
   Session("CustomerZip")             = rsPubs("CustomerZip")
   Session("CustomerPhone")         = rsPubs("CustomerPhone")
   Session("CustomerFax")            = rsPubs("CustomerFax")
   Session("CreditCardBankName")    = rsPubs("CreditCardBankName")
   Session("CreditCardNumber")        = rsPubs("CreditCardNumber")
   Session("CreditCardName")        = rsPubs("CreditCardName")
   Session("CreditCardExpirationMonth")    = 
   rsPubs("CreditCardExpirationMonth")    Session("CreditCardExpirationYear")    = 
   rsPubs("CreditCardExpirationYear")end if