<%@ LANGUAGE = VBScript %> Consultation of all the flours available

Product Information

<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Flour" SQLQuery = "SELECT * FROM Flour ORDER BY Brand_Flour ASC" Set RSCustomerList = OBJdbConnection.Execute(SQLQuery) %><% Do While Not RScustomerList.EOF %><% RScustomerList.MoveNext Loop %>
BRAND DESCRIPTION VIEW DETAILS
<%= RSCustomerList("Brand_Flour")%> <%= RSCustomerList("Description")%> " value="Click here for more details" onclick="document.F1.D1.value = this.name">

[ Home | Introduction of Company | Product Information | Services | Contacts | On-line Order ]