Product.asp Module Code

The Product.asp module retrieves and displays the information of one product. 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 parameters 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 and displaying data from a Recordset

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
```
The Command Object: Specifying a query that is a stored procedure
After creating and opening a connection, the application sets up a Command object by 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_product"
cmdPubs.CommandType = adCmdStoredProc
```
The Parameter Object: Specifying the input parameters 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:
  @ piiProductID of type Integer with a size of 4
The corresponding code follows:
```
set p = cmdPubs.Parameters
p.Append cmdPubs.CreateParameter("@piiProductID", adInteger,     adParamInput, 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("@piiProductID") = Request("iProductID")
```
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
```

The Field Object: Extracting and displaying data from a Recordset

The following code loops through the Recordset, displays a record, and closes the connection when it reaches the end of the Recordset:

if rsPubs.EOF then
       %>
<TR>
<TD>
No items found
<TD>
<%
else
do until rsPubs.EOF    
htmlProductID = rsPubs("ProductID")
htmlCategoryID = rsPubs("CategoryID")
htmlProductPrice = rsPubs("ProductPrice")
htmlProductName = rsPubs("ProductName")
htmlProductDescription = rsPubs("ProductDescription")
<TABLE>        <TR>            <TD><H1><% = htmlProductName %></H1>
<TD><H2><FONT COLOR="RED">$<% = htmlProductPrice %>
</FONT><H2>        <TR>            <TD><H5>Enter Quantity:            <INPUT TYPE="Text" NAME=cQuantity SIZE=3 VALUE=1></H5>        <TR>
<TD><H4><% = htmlProductDescription %></H4>
<BR>
<BR>
<%
rsPubs.MoveNext
Loop
rsPubs.close
end if
%>