TechDex Development & Solutions - Product Listing

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 %> <% While Not RS.EOF %> <% RS.MoveNext Wend %>
Product Description Price
"> Add <%=RS( to Shopping Bag"> <%=RS("ProductName")%> <%=RS("Description")%> <%=FormatCurrency(RS("PricePerUnit"))%>
<% End If RS.Close Conn.Close %>