%@ 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 %>
<% 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 %> |