<% ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("daily.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open %> <% selectnewsSQL="select * from POWERSYSTEM " set rs1=ADO.execute(selectnewsSQL) selectnewsSQL2="select * from WOA " set rs2=ADO.execute(selectnewsSQL2) %>
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

         

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                        <% selectnewsSQL2="select * from PowerSystem where convert(char(10), yourdate, 103) = convert(char(10), getDate() - 1, 103)" set rstech=ADO.execute(selectnewsSQL2) do while not rstech.eof %>

DAILY POWER SYSTEM SUMMARY
   <%=rstech("day_name")%>  <%=rstech("date1")%>
PARTICULARS WOA-GEN SYSTEM LOAD
WOA JED  MAK  MAD YNB
Peak Demands(MW)  <%=rstech("Peak_Demands1")%>  <%=rstech("Peak_Demands2")%>  <%=rstech("Peak_Demands3")%>  <%=rstech("Peak_Demands4")%>  <%=rstech("Peak_Demands5")%>  <%=rstech("Peak_Demands6")%>
Time  <%=rstech("time1")%>  <%=rstech("time2")%>  <%=rstech("time3")%>  <%=rstech("time4")%>  <%=rstech("time5")%>  <%=rstech("time6")%>
Temperature ( C )  <%=rstech("Temperature1")%>  <%=rstech("Temperature2")%>  <%=rstech("Temperature3")%>  <%=rstech("Temperature4")%>  <%=rstech("Temperature5")%>
Relative Humidity (%)  <%=rstech("hm1")%>  <%=rstech("hm2")%>  <%=rstech("hm3")%>  <%=rstech("hm4")%>  <%=rstech("hm5")%>
Active Spinning Reserve (MW)  <%=rstech("Active_spinning1")%> ANNUAL PEAK DATA
Single Contingency (MW)  <%=rstech("Single_contingency1")%> PARTICULARS 2005 G DATE 2004 G 
Available Gen. Capacity (MW)  <%=rstech("Availalbe_Gen1")%> WOA GEN 8559 05/09/2005 7909
U/A Capacity (MW)  <%=rstech("U_A")%> JED CITY LOAD 4638 05/09/2005 4135
S/B Capacity (MW)  <%=rstech("S_B")%> MAK CITY LOAD 1776 20/08/2005 1679
IMPORT FROM SWCC (MW)  <%=rstech("Import_Swcc")%> MED CITY LOAD  1073 31/08/2005 1012
IMPORT FROM  MARAFIQ (MW)  <%=rstech("Import_MRQ")%> TAIF LOAD 490 20/07/2005 464
 
  <% rstech.movenext loop selectnewsSQL="select * from WOA where convert(char(10), yourdate, 103) = convert(char(10), getDate() - 1, 103)" set rstech2=ADO.execute(selectnewsSQL) do while not rstech2.eof %>

WOA GENERATION STATUS (@ PEAK TIME)

 

  <%=rstech2("day_name")%>

 <%=rstech2("date1")%>  
POWER PLANT TOTAL CAPACITY(MW) Available Cap. Actual Gen. Reserve (MW) Stand by Cap. Unavailable
Units MW Units MW Units MW Units MW
SHB SEC  <%=rstech2("SHB1")%>  <%=rstech2("SHB2")%>  <%=rstech2("SHB3")%>  <%=rstech2("SHB4")%>  <%=rstech2("SHB5")%>  <%=rstech2("SHB6")%>  <%=rstech2("SHB7")%>  <%=rstech2("SHB8")%>  <%=rstech2("SHB9")%>  <%=rstech2("SHB10")%>
RBG STEAM  <%=rstech2("RBG_S1")%>  <%=rstech2("RBG_S2")%>  <%=rstech2("RBG_S3")%>  <%=rstech2("RBG_S4")%>  <%=rstech2("RBG_S5")%>  <%=rstech2("RBG_S6")%>  <%=rstech2("RBG_S7")%>  <%=rstech2("RBG_S8")%>  <%=rstech2("RBG_S9")%>  <%=rstech2("RBG_S10")%>
RBG GAS  <%=rstech2("RBG_G1")%>  <%=rstech2("RBG_G2")%>  <%=rstech2("RBG_G3")%>  <%=rstech2("RBG_G4")%>  <%=rstech2("RBG_G5")%>  <%=rstech2("RBG_G6")%>  <%=rstech2("RBG_G7")%>  <%=rstech2("RBG_G8")%>  <%=rstech2("RBG_G9")%>  <%=rstech2("RBG_G10")%>
RBG C.C.  <%=rstech2("RBG_c1")%>  <%=rstech2("RBG_c2")%>  <%=rstech2("RBG_c3")%>  <%=rstech2("RBG_c4")%>  <%=rstech2("RBG_c5")%>  <%=rstech2("RBG_c6")%>  <%=rstech2("RBG_c7")%>  <%=rstech2("RBG_c8")%>  <%=rstech2("RBG_c9")%>  <%=rstech2("RBG_c10")%>
J PP3  <%=rstech2("PP31")%>  <%=rstech2("PP32")%>  <%=rstech2("PP33")%>  <%=rstech2("PP34")%>  <%=rstech2("PP35")%>  <%=rstech2("PP36")%>  <%=rstech2("PP37")%>  <%=rstech2("PP38")%>  <%=rstech2("PP39")%>  <%=rstech2("PP40")%>
J PP2  <%=rstech2("PP21")%>  <%=rstech2("PP22")%>  <%=rstech2("PP23")%>  <%=rstech2("PP24")%>  <%=rstech2("PP25")%>  <%=rstech2("PP26")%>  <%=rstech2("PP27")%>  <%=rstech2("PP28")%>  <%=rstech2("PP29")%>  <%=rstech2("PP30")%>
MPS  <%=rstech2("mps1")%>  <%=rstech2("mps2")%>  <%=rstech2("mps3")%>  <%=rstech2("mps4")%>  <%=rstech2("mps5")%>  <%=rstech2("mps6")%>  <%=rstech2("mps7")%>  <%=rstech2("mps8")%>  <%=rstech2("mps9")%>  <%=rstech2("mps10")%>
MED  <%=rstech2("MED1")%>  <%=rstech2("MED2")%>  <%=rstech2("MED3")%>  <%=rstech2("MED4")%>  <%=rstech2("MED5")%>  <%=rstech2("MED6")%>  <%=rstech2("MED7")%>  <%=rstech2("MED8")%>  <%=rstech2("MED9")%>  <%=rstech2("MED10")%>
TPS  <%=rstech2("TPS1")%>  <%=rstech2("TPS2")%>  <%=rstech2("TPS3")%>  <%=rstech2("TPS4")%>  <%=rstech2("TPS5")%>  <%=rstech2("TPS6")%>  <%=rstech2("TPS7")%>  <%=rstech2("TPS8")%>  <%=rstech2("TPS9")%>  <%=rstech2("TPS10")%>
YNB (E)  <%=rstech2("YNB1")%>  <%=rstech2("YNB2")%>  <%=rstech2("YNB3")%>  <%=rstech2("YNB4")%>  <%=rstech2("YNB5")%>  <%=rstech2("YNB6")%>  <%=rstech2("YNB7")%>  <%=rstech2("YNB8")%>  <%=rstech2("YNB9")%>  <%=rstech2("YNB10")%>
 

 

 

 

 

 

جميع الحقوق محفوظة @ لمجموعة التخطيط والمساندة الفنية
 لإدارة تشغيل الانظمة والتحكم - الغربية
تليفون : 026537422 - 026537412
فاكس :026503329
Email:
socw-ssg@se.com.sa

<% rstech2.movenext loop ADO.close() %>