<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" if (Request.QueryString("geo_weath_id") <> "") then Recordset1__MMColParam = Request.QueryString("geo_weath_id") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conn_ebz_STRING Recordset1.Source = "SELECT * FROM Geop_weather WHERE geo_weath_id = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY geo_weath_firstdate DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Session("pic1") = Recordset1("geo_weath_1_1") %> <% Dim rs_pic1__MMColParam rs_pic1__MMColParam = "%" if (Session("pic1") <> "") then rs_pic1__MMColParam = Session("pic1") %> <% set rs_pic1 = Server.CreateObject("ADODB.Recordset") rs_pic1.ActiveConnection = MM_conn_ebz_STRING rs_pic1.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic1__MMColParam, "'", "''") + "" rs_pic1.CursorType = 0 rs_pic1.CursorLocation = 2 rs_pic1.LockType = 3 rs_pic1.Open() rs_pic1_numRows = 0 %> <% Session("pic2") = Recordset1("geo_weath_1_2") %> <% Dim rs_pic2__MMColParam rs_pic2__MMColParam = "%" if (Session("pic2") <> "") then rs_pic2__MMColParam = Session("pic2") %> <% set rs_pic2 = Server.CreateObject("ADODB.Recordset") rs_pic2.ActiveConnection = MM_conn_ebz_STRING rs_pic2.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic2__MMColParam, "'", "''") + "" rs_pic2.CursorType = 0 rs_pic2.CursorLocation = 2 rs_pic2.LockType = 3 rs_pic2.Open() rs_pic2_numRows = 0 %> <% Session("pic3") = Recordset1("geo_weath_1_3") %> <% Dim rs_pic3__MMColParam rs_pic3__MMColParam = "%" if (Session("pic3") <> "") then rs_pic3__MMColParam = Session("pic3") %> <% set rs_pic3 = Server.CreateObject("ADODB.Recordset") rs_pic3.ActiveConnection = MM_conn_ebz_STRING rs_pic3.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic3__MMColParam, "'", "''") + "" rs_pic3.CursorType = 0 rs_pic3.CursorLocation = 2 rs_pic3.LockType = 3 rs_pic3.Open() rs_pic3_numRows = 0 %> <% Session("pic4") = Recordset1("geo_weath_2_1") %> <% Dim rs_pic4__MMColParam rs_pic4__MMColParam = "%" if (Session("pic4") <> "") then rs_pic4__MMColParam = Session("pic4") %> <% set rs_pic4 = Server.CreateObject("ADODB.Recordset") rs_pic4.ActiveConnection = MM_conn_ebz_STRING rs_pic4.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic4__MMColParam, "'", "''") + "" rs_pic4.CursorType = 0 rs_pic4.CursorLocation = 2 rs_pic4.LockType = 3 rs_pic4.Open() rs_pic4_numRows = 0 %> <% Session("pic5") = Recordset1("geo_weath_2_2") %> <% Dim rs_pic5__MMColParam rs_pic5__MMColParam = "%" if (Session("pic5") <> "") then rs_pic5__MMColParam = Session("pic5") %> <% set rs_pic5 = Server.CreateObject("ADODB.Recordset") rs_pic5.ActiveConnection = MM_conn_ebz_STRING rs_pic5.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic5__MMColParam, "'", "''") + "" rs_pic5.CursorType = 0 rs_pic5.CursorLocation = 2 rs_pic5.LockType = 3 rs_pic5.Open() rs_pic5_numRows = 0 %> <% Session("pic6") = Recordset1("geo_weath_2_3") %> <% Dim rs_pic6__MMColParam rs_pic6__MMColParam = "%" if (Session("pic6") <> "") then rs_pic6__MMColParam = Session("pic6") %> <% set rs_pic6 = Server.CreateObject("ADODB.Recordset") rs_pic6.ActiveConnection = MM_conn_ebz_STRING rs_pic6.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic6__MMColParam, "'", "''") + "" rs_pic6.CursorType = 0 rs_pic6.CursorLocation = 2 rs_pic6.LockType = 3 rs_pic6.Open() rs_pic6_numRows = 0 %> <% Session("pic7") = Recordset1("geo_weath_3_1") %> <% Dim rs_pic7__MMColParam rs_pic7__MMColParam = "%" if (Session("pic7") <> "") then rs_pic7__MMColParam = Session("pic7") %> <% set rs_pic7 = Server.CreateObject("ADODB.Recordset") rs_pic7.ActiveConnection = MM_conn_ebz_STRING rs_pic7.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic7__MMColParam, "'", "''") + "" rs_pic7.CursorType = 0 rs_pic7.CursorLocation = 2 rs_pic7.LockType = 3 rs_pic7.Open() rs_pic7_numRows = 0 %> <% Session("pic8") = Recordset1("geo_weath_3_2") %> <% Dim rs_pic8__MMColParam rs_pic8__MMColParam = "%" if (Session("pic8") <> "") then rs_pic8__MMColParam = Session("pic8") %> <% set rs_pic8 = Server.CreateObject("ADODB.Recordset") rs_pic8.ActiveConnection = MM_conn_ebz_STRING rs_pic8.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic8__MMColParam, "'", "''") + "" rs_pic8.CursorType = 0 rs_pic8.CursorLocation = 2 rs_pic8.LockType = 3 rs_pic8.Open() rs_pic8_numRows = 0 %> <% Session("pic9") = Recordset1("geo_weath_3_3") %> <% Dim rs_pic9__MMColParam rs_pic9__MMColParam = "%" if (Session("pic9") <> "") then rs_pic9__MMColParam = Session("pic9") %> <% set rs_pic9 = Server.CreateObject("ADODB.Recordset") rs_pic9.ActiveConnection = MM_conn_ebz_STRING rs_pic9.Source = "SELECT * FROM Geop_weath_category WHERE geo_weath_categ_id = " + Replace(rs_pic9__MMColParam, "'", "''") + "" rs_pic9.CursorType = 0 rs_pic9.CursorLocation = 2 rs_pic9.LockType = 3 rs_pic9.Open() rs_pic9_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = Recordset1 MM_rsCount = Recordset1_total MM_size = Recordset1_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record Recordset1_first = MM_offset + 1 Recordset1_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> Ελληνική Βιομηχανία Ζάχαρης : Διεύθυνση Γεωπονικών Υπηρεσιών
Ελληνική Βιομηχανία Ζάχαρης (προς την αρχική σελίδα του δικτυακού τόπου)
 
 
Δελτίο καιρού
 
<%=(Recordset1.Fields.Item("geo_weath_firstdate").Value)%>
<%=(Recordset1.Fields.Item("geo_weath_firstdate").Value) +1%>
<%=(Recordset1.Fields.Item("geo_weath_firstdate").Value)+2%>
Θεσσαλία :
">
">
">
Μακεδονία :
">
">
">
Θράκη :
">
">
">

: Αίθριος,     : Συννεφιά,      : Βροχή,      : Καταιγίδα,      : Χαλάζι,      : Χιόνι

 

Επιστροφή στην προηγούμενη σελίδα

Διεύθυνση Γεωπονικών Υπηρεσιών

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