home *** CD-ROM | disk | FTP | other *** search
- <!--#include virtual="/ECpublic/Global/Includes/adovbs.inc"-->
- <%
- Set Conn = Server.CreateObject("ADODB.Connection")
- Conn.Open "EC000","",""
- Set rs100001 = Conn.Execute("SELECT DISTINCTROW Items.* FROM Items WHERE (Items.SKU) = '100-001'")
- %>
-
- <!Default.asp - Rev.: 4.2 - Date: 01/18/99>
- <!Copyright 1995-1999 ECware Software. All Rights Reserved.>
-
- <html><head><title>DemoTique - ECware Demonstration</title></head>
- <body bgcolor=ffffff vlink=0000ff background="/ecdemo/bg-demo.gif">
-
- <p>
- <img src="/ecdemo/demologo.gif"><br>
-
- <table border=0 cellpadding=0 cellspacing=0>
- <tr><td>
- <font size=+2><b>Welcome to DemoTique.</b></font><br>
- <font size=2 face="Verdana, Arial, Helvetica">
- This page is generated using ASP to access the ECware database<br>
- using ADO. The database is registered with the DSN "EC000".<br>
- The picture and prices are pulled from the database so any<br>
- changes made using ECremote will take place immediately.
- </td><td><br>
- <!img src="changer.gif">
- </td></tr></table>
-
- <p><br>
-
- <img src="/ecpublic/000/images/<%Response.Write rs100001("PictureFile")%>" align=LEFT><br>
-
- <form method=POST action="/ecscripts/ecware.exe">
-
- <input type=HIDDEN name=ID value=000>
- <input type=HIDDEN name=SKU value=100-001>
- <input type=HIDDEN name=Qty value=1>
- <font face="Verdana, Arial, Helvetica" size=4><b>Leather Briefcase</b><br>
- <s><%Response.Write FormatCurrency(rs100001("MarkupPrice"))%></s><p>
- <img src="/ecpublic/000/images/sales_tag.gif">
- <b> <%Response.Write FormatCurrency(rs100001("PriceA"))%></b><p>
- <input type=IMAGE SRC="/ecpublic/000/images/buy_button.gif" border=0></FORM><p><br>
-
- <font size=-2>Copyright ©
- 1995-1999 ECware Software. All Rights Reserved.</font></font><p>
-
- </body>
- </html>
-
- <%Conn.Close%>
-
-