<%@ 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 %> <% 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" %>
> " method="POST" id=form2 name=form2> ">  

">Click Here to continue to: <%= RS("DESCRIPTION") %>

<% Set RS = nothing Connection.Close Set Connection = Nothing End If %>