XML/XSL Portal

Multiple Stylesheet Aware
HideXML Documenting CodeHide


No Comments Found.
Include Files
  • /advworks/Disclaim.inc (1)
  • /advworks/srcform.inc (1)
Session Variables Set
  • ResultSet (1)
Session Variables Used
  • ResultSet (4)
  • iCount (1)
  • HREF > /advworks/default.asp (1)
  • HREF > /advworks/equipment/check_out.asp (1)
  • HREF > /advworks/equipment/default.asp (1)
  • HREF > /advworks/excursions/default.asp (1)
  • HREF > /advworks/internal/default.asp (1)
  • HREF > /advworks/resources/default.asp (1)
Images Used
Tlc 186
<html> <head> <title>Adventure Works Sale Manager</title> </head> <body BACKGROUND="images/back_sub.gif" LINK="#800000" VLINK="#008040"> <font FACE="MS SANS SERIF" SIZE="2"> <bgsound SRC="sounds/cash_register.wav"> <% ' UNDONE -- this whole page needs to be rethought. How will the updates be applied ' after exiting the page? if IsObject(Session("ResultSet")) Then Set RScatalog_item = Session("ResultSet") else SQLcatalog_item = "SELECT ProductCode, ProductName, ProductDescription, UnitPrice, OnSale FROM Products ORDER BY ProductID" Set RScatalog_item = Conn.Execute(SQLcatalog_item,3) Set Session("ResultSet") = RScatalog_item end if %> <table WIDTH="600" BORDER="0"> <tr> <td WIDTH="100"> <img SRC="images/spacer.gif" ALIGN="RIGHT" WIDTH="110" ALT="Spacer"> </td> <td COLSPAN="5"> <img SRC="images/hd_Sale_Manager.gif" width="251" height="42" ALT="Sale Manager"> <hr SIZE="4"> </td> </tr> <!-- BEGIN sidebar navigation --> <tr> <td ROWSPAN="7" VALIGN="TOP" ALIGN="LEFT"> <a HREF="/advworks/equipment/default.asp"> <img SRC="images/icon_sub_equipment.gif" width="85" height="45" ALIGN="CENTER" BORDER="0" ALT="Equipment"></a><br> <a HREF="/advworks/excursions/default.asp"> <img SRC="images/icon_sub_excursions.gif" width="85" height="45" ALIGN="CENTER" BORDER="0" ALT="Membership and Excursions"></a><br> <a HREF="/advworks/resources/default.asp"> <img SRC="images/icon_sub_resources.gif" width="85" height="45" ALIGN="CENTER" BORDER="0" ALT="Resources"></a><br> <a HREF="/advworks/internal/default.asp"> <img SRC="images/icon_sub_internal.gif" width="85" height="45" ALIGN="CENTER" BORDER="0" ALT="Internal"></a><br> <a HREF="/advworks/default.asp"> <img SRC="images/icon_sub_home.gif" width="85" height="45" ALIGN="CENTER" BORDER="0" ALT="Home"></a><br> <% If Session("iCount") > 0 Then%> <a HREF="/advworks/equipment/check_out.asp"> <img SRC="images/checkout.gif" width="85" height="45" ALT="Check Out" BORDER="O"></a> <%End If%> </td> <td> <!-- BEGIN table inserted into table data cell --><!-- BEGIN form with first row of data --> <form ACTION="/advworks/internal/sale_manager.asp" METHOD="POST"> <table COLSPAN="8" CELLPADDING="5" BORDER="0"> <!-- BEGIN column header row --> <tr> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE="1">Product Code</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE="1">Product Name</font> </td> <td ALIGN="CENTER" WIDTH="150" BGCOLOR="#800000"> <font STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE="1">Description</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE="1">Price</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE="1">Sale</font> </td> </tr> <!-- BEGIN first row of inserted product data --> <%row=0%> <% ' UNDONE: use page level scrolling in ADO instead of this mess Rowsetsize = 5 if Request("prev.x")<>"" and not (RScatalog_item.bof or RScatalog_item.eof) then RScatalog_item.Move -(Rowsetsize*2) if RScatalog_item.bof then RScatalog_item.MoveFirst end if elseif Request("prev.x")<>"" and RScatalog_item.bof then RScatalog_item.MoveFirst elseif Request("prev.x")<>"" and RScatalog_item.eof then RScatalog_item.MoveLast RScatalog_item.Move -Rowsetsize elseif Request("next.x")<>"" and RScatalog_item.eof then RScatalog_item.MoveLast end if while not RScatalog_item.eof and row < Rowsetsize row=row+1 %> <tr> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="ARIAL NARROW" SIZE="1"><%=RScatalog_item("ProductCode")%></font> </td> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="ARIAL NARROW" SIZE="1"><%=RScatalog_item("ProductName")%></font> </td> <td BGCOLOR="f7efde" ALIGN="LEFT" WIDTH="150"> <font STYLE="ARIAL NARROW" SIZE="1"><%=RScatalog_item("ProductDescription")%></font> </td> <td BGCOLOR="f7efde" ALIGN="RIGHT"> <font STYLE="ARIAL NARROW" SIZE="1"><%=RScatalog_item("UnitPrice")%></font> <td ALIGN="CENTER" BGCOLOR="f7efde"> <input TYPE="RADIO" NAME="Yes" <%if RScatalog_item("OnSale") then%> CHECKED> <%else%> &gt; <%end if%> <input TYPE="RADIO" NAME="No" <%if Not RScatalog_item("OnSale") then%> CHECKED> <%else%> &gt; <%end if%> </td> </td> </tr> <%RScatalog_item.MoveNext%> <%wend%> <tr> <td COLSPAN="3" ALIGN="LEFT"> <input NAME="prev" TYPE="IMAGE" SRC="images/bullet.gif" WIDTH="25" HEIGHT="25"> <input NAME="next" TYPE="IMAGE" SRC="images/bullet.gif" WIDTH="25" HEIGHT="25"> </td> </tr> </table> </form> <!-- END table inserted into table data cell --> </td> <% REM Column Span Value %> <% HTML_CS = 5 %> <% HTML_INDENT = FALSE %> <!--#include virtual="/advworks/Disclaim.inc"--> </table> <!--#include virtual="/advworks/srcform.inc"--> </body> </html>


View XML
View XSL