<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conn_ebz_STRING Recordset1.Source = "SELECT * FROM Products" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 8 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat3__numRows Repeat3__numRows = 3 Dim Repeat3__index Repeat3__index = 9 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> sugar and other products of Hellenic Sugar Industry
Hellenic (Greek) Sugar Industry : to home page
 
 
 

 

The products list of H.S.I. is as follows:

 

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Sugar
Product Package/Weight
"><%=(Recordset1.Fields.Item("ProductName_en").Value)%> <%=(Recordset1.Fields.Item("Description_en").Value)%>

 

<% //While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Recordset1.MoveNext() //Wend %>
Molasses
Product Package/Weight
"><%=(Recordset1.Fields.Item("ProductName_en").Value)%> <%=(Recordset1.Fields.Item("Description_en").Value)%>

 

<% While ((Repeat3__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Recordset1.MoveNext() Wend %>
Sugar-pie
Product Package/Weight
"><%=(Recordset1.Fields.Item("ProductName_en").Value)%> <%=(Recordset1.Fields.Item("Description_en").Value)%>

 

Seeds
Product Package/Weight
Potato seed Bags 20 & 40 kg
Beets seed (pelletized) Cardboard box 6 × 10
Beets seed (pelletized) Cardboard box 10 × 10,5
Beets seed (naked) Cardboard box 10 × 10

 

sugar and other products
beet root fields for sugar production beet root quality control sugar plants of Greek sugar company research and development in Hellenic Sugar Industry industrial production of sugar at Hellenic Sugar Industry Greek sugar production sugar in retail packs <% Recordset1.Close() %>