home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
MS_DEV
/
VID
/
SERVER
/
ASF
/
DATA.Z
/
sale_manager.asp
< prev
next >
Wrap
Text File
|
1996-10-28
|
5KB
|
191 lines
<HTML>
<HEAD>
<TITLE>Adventure Works Sale Manager</TITLE>
</HEAD>
<BODY BACKGROUND="/AdvWorks/multimedia/images/back_sub.gif" LINK="#800000" VLINK="#008040">
<FONT FACE="MS SANS SERIF" SIZE=2>
<BGSOUND SRC="/AdvWorks/multimedia/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="/AdvWorks/multimedia/images/spacer.GIF" ALIGN=RIGHT WIDTH=110 ALT="Spacer">
</TD>
<TD COLSPAN=5>
<IMG SRC="/AdvWorks/multimedia/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="/AdvWorks/multimedia/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="/AdvWorks/multimedia/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="/AdvWorks/multimedia/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="/AdvWorks/multimedia/images/icon_sub_internal.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Internal"></A><BR>
<A HREF="/AdvWorks/default.asp">
<IMG SRC="/AdvWorks/multimedia/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="/AdvWorks/multimedia/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%>
>
<%end if%>
<INPUT TYPE="RADIO" NAME="No"
<%if Not RScatalog_item("OnSale") then%>
CHECKED>
<%else%>
>
<%end if%>
</TD>
</TD>
</TR>
<%RScatalog_item.MoveNext%>
<%wend%>
<TR>
<TD COLSPAN=3 ALIGN=LEFT>
<INPUT NAME="prev" TYPE=IMAGE SRC="/AdvWorks/multimedia/images/bullet.gif">
<INPUT NAME="next" TYPE=IMAGE SRC="/AdvWorks/multimedia/images/bullet.gif">
</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>