<%@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 %> <% If (Recordset1.EOF) Then Response.Redirect("empty_recordset.htm") End If 'MagicBeat Server Behavior - 1014 - by Jag S. Sidhu - www.magicbeat.com %> <% 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 %> ζάχαρη και άλλα προϊόντα από την Ελληνική Βιομηχανία Ζάχαρης
Ελληνική Βιομηχανία Ζάχαρης (προς την αρχική σελίδα του δικτυακού τόπου)
 
 

 

Ο αναλυτικός κατάλογος προϊόντων της ΕΒΖ έχει ως εξής:

 

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Ζάχαρη
Προϊόν Συσκευασία / Βάρος

"><%=(Recordset1.Fields.Item("ProductName").Value)%> <%=(Recordset1.Fields.Item("Description").Value)%>

 

<% //While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Recordset1.MoveNext() //Wend %>
Μελάσα
Προϊόν Συσκευασία / Βάρος

"><%=(Recordset1.Fields.Item("ProductName").Value)%> <%=(Recordset1.Fields.Item("Description").Value)%>

 

<% While ((Repeat3__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 Recordset1.MoveNext() Wend %>
Ζαχαρόπιτα
Προϊόν Συσκευασία / Βάρος

"><%=(Recordset1.Fields.Item("ProductName").Value)%> <%=(Recordset1.Fields.Item("Description").Value)%>

 

Σπόροι
Προϊόν Συσκευασία / Βάρος

Σπόρος τεύτλων (κουφετοποιημένος) Συσκευασία 1U
Σπόρος τεύτλων (κουφετοποιημένος) Συσκευασία 0,5U
Σπόρος πατάτας Σακί 20 & 40 kg

 

ζάχαρη και άλλα προϊόντα

τεύτλα και τευτλοκαλλιέργεια για την παραγωγή ζάχαρης ζαχαρουργεία της Ελληνικής Βιομηχανίας Ζάχαρης : μεγάλες μονάδες που παράγουν ζάχαρη ζάχαρη και βιομηχανική παραγωγή στα εργοστάσια της Ελληνικής Βιομηχανίας Ζάχαρης γεωπονικός έλεγχος στα τεύτλα έρευνα και τεχνολογία στην Ελληνική Βιομηχανία Ζάχαρης ζάχαρη και τελικά στάδια της παραγωγής ζάχαρη σε πακέτο και άλλα προϊόντα της Ελληνικής Βιομηχανίας Ζάχαρης <% Recordset1.Close() %>