Press the to add item to cart. Click here to view your cart. <% sConnection = "DRIVER={MySQL};SERVER=echoingwalls.com;DATABASE=shopping;UID=webuser;PWD=webuser251" Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open (sConnection) RS.Open "SELECT * FROM products", Conn, adOpenKeyset,adLockReadOnly If RS.EOF Then Response.Write "Sorry, there are no products that can be ordered from this company!" Else %>
Product | Description | Price |
---|---|---|
"> to Shopping Bag"> <%=RS("ProductName")%> | <%=RS("Description")%> | <%=FormatCurrency(RS("PricePerUnit"))%> |