<%@ LANGUAGE="VBSCRIPT" %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.04.0 ' Date : 1.6.2000 ' Author : LaGarde, Incorporated ' Description : StoreFront Dynamic Product Detail Output Routines ' Notes : There are no configurable elements in this file. ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to LaGarde, Incorporated. Its use or disclosure in ' whole or in part without the expressed written permission of ' LaGarde, Incorporated is expressely prohibited. ' ' (c) Copyright 1998 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <%' Response.Buffer = TRUE 'Response.Clear 'Response.Expires = 0 session.LCID = Session("LCID") %> <% Product_ID= Request.QueryString("Product_ID") %> <% Dim DSN_Name DSN_Name = Session("DSN_Name") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name SQL="SELECT * FROM product WHERE PRODUCT_ID= '" & PRODUCT_ID & "'" Set RS = Connection.Execute(SQL) %> <%'//**********BEGIN OUTPUT SEARCH RESULTS ****************%> <% If Request.QueryString("ORDER_FLAG") = "1" Then %>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> width=<%=TableWidth%> cellspacing=<%=CellSpacing%> bgcolor=<%=TableBG%>>
<% If Request("ORDER_FLAG") = "1" Then %> <% If Request("Alert") = "0" Then %> color=<%=FontColor%> size=<%=FontSize%>> Thank You
<% If Request("Quantity") = "1" Then%><%= Request("Quantity") %>   <%= Request("DESCRIPTION") %>
has been added to your order!
<% ElseIf Request("Quantity") > "1" Then %><%= Request("Quantity") %>   <%= Request("DESCRIPTION") %>
have been added to your order!
<% End If %> <%= Request("MESSAGE") %> <% End If %> <% If Request("Alert") = "1" Then %> <%= Request("Quantity") %> <% End If %> <% End If %>
<% Else 'If Request.QueryString("ORDER_FLAG") = "1" Then Response.Redirect"order.asp" 'If Request.QueryString("ORDER_FLAG") = "0" Then Response.Redirect"default.asp" %>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> width=<%=TableWidth%> cellspacing=<%=CellSpacing%> bgcolor=<%=TableBG%>> " method="POST" id=form2 name=form2> ">
<%If lblLinkActive = "1" and InStr(RS("LINK"),".") Then %>"><%End If%> <%If lblImageActive = "1" Then%><% If InStr(RS("IMAGE_PATH"),".") Then %>" border="0" align="center" valign="center"><% ElseIf lblLinkActive = "1" and InStr(RS("LINK"),".") Then %><%=lblLINK%><% End If %><% End If %> <%If lblLinkActive = "1" and InStr(RS("LINK"),".") Then %><% else %> <%End If%>     <%If lblProductIDActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%= lblPRODUCTID %> : <%=RS("PRODUCT_ID")%><% End If %>     <%If lblCategoryActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblCATEGORY%><%Else%> <%End If%>   <%If lblManufacturerActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblMANUFACTURER%><%Else%> <%End If%>
    <%If lblCategoryActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=RS("CATEGORY")%> <%Else%> <% End If %>   <%If lblManufacturerActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=RS("MFG")%> <%Else%> <% End If %>
<%If lblDescriptionActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%= RS("DESCRIPTION") %><%Else%> <%End If%>
<%If lblLngDescriptionActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%= RS("LONG_DESCRIPTION") %><%Else%> <%End If%>
  <%If Trim(RS("AttSwitch")) = "1" Then %><% If lblAttributeAActive = "1" and RS("AttributeA") <> "" Then %><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblAttributeA %>
><%End If%><% End If %>		   <%If Trim(RS("AttSwitch")) = "1" Then %><%If lblAttributeBActive = "1" and RS("AttributeB") <> "" Then %><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblAttributeB %>
><%End If%><% End If %>		   <%If Trim(RS("AttSwitch")) = "1" Then %><%If lblAttributeCActive = "1" and RS("AttributeC") <> "" Then %><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblAttributeC %>
><%End If%><% End If %>		      
  <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>><%=lblPRICE%>: <%= FormatCurrency(RS("PRICE")) %>    <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>>Quantity:       
     <% If Trim(RS("AttSwitch")) = "1" Then %><%If lblAttributeAActive = "1" and RS("AttributeA") <> "" Then %> <%End If%><% End If %>   <% If Trim(RS("AttSwitch")) = "1" Then %><%If lblAttributeBActive = "1" and RS("AttributeB") <> "" Then %> <%End If%><% End If %>   <% If Trim(RS("AttSwitch")) = "1" Then %><%If lblAttributeCActive = "1" and RS("AttributeC") <> "" Then %> <%End If%><% End If %>
> 
<% Set RS = nothing Connection.Close Set Connection = Nothing End If %>