<% '******************************************************************************************* 'FACULTIES DATA REPORT ********************************************************************* '******************************************************************************************* 'for i=0 to 40 ' Response.Write i&":"&constantList(i)&"," 'next %>

align=center<%end if%>> Part I. Faculties data

<%'write the contact person data sqlQuery="select * from tbl_IEEE_report r,tbl_IEEE_school s,tbl_IEEE_user u where r.RERCID="&surveyID sqlQuery = sqlQuery & "and r.REUSID = u.USID and r.RESCID = s.scid " sqlQuery = sqlQuery &"and u.USID in (select AUUSID from tbl_IEEE_approved_user) " sqlQuery=sqlQuery&"order by s.scname" set RSData = conn.execute(sqlQuery) do while RSData.eof = false %> <% sqlQuery = "select * from tbl_IEEE_faculty where FAREID="&cint(RSDATA("REID")) set RSDATA2 = conn.execute(SqlQuery) do while RSDATA2.eof=false %> <% Response.Flush RSDATA2.moveNext loop Response.Flush RSDATA.moveNext loop %>

Name of Faculty

Rank/Title

Highest Degree

Registered Professional Engineer

IEEE-PES Membership Grade

Total Experience No.Years

Activity(%)

Last

First

Middle Initial

Academic

Power Industry

Other Industry

Power Teaching

Power Research

Non-Power
<%=trim(RSDATA("SCNAME"))%>
<%=trim(RSDATA("USFNAME"))%> <% if RSDATA("USMNAME") <> "" then Response.Write " "&trim(RSDATA("USMNAME"))&"." end if %>
<%Response.Write " "&trim(RSDATA("USLNAME"))%>
<%Response.write trim(RSDATA("USPHONEWORK"))&" "&trim(RSDATA("USPHONEHOME"))%>

Email: <%=trim(RSDATA("USEMAIL"))%>
<%=trim(RSDATA2("FALNAME"))%>  <%=trim(RSDATA2("FAFNAME"))%>  <%=trim(RSDATA2("FAMNAME"))%>  <%=constantList( cint(RSDATA2("FACNID")) )%>   <%=constantList( cint(RSDATA2("FACNID2")) )%>   <% if cbool(RSDATA2("FAPEREG")) = true then Response.Write "Yes" else Response.Write "No" end if %>   <%=constantList( cint(RSDATA2("FACNID3")) )%>   <%=RSDATA2("FAEXPACD")%>  <%=RSDATA2("FAEXPIND")%>  <%=RSDATA2("FAEXPOTHERIND")%>  <%=RSDATA2("FAACTPOWERTEACHING")%>% <%=RSDATA2("FAACTPOWERRESEARCH")%>% <%=RSDATA2("FAACTNOPOWER")%>%

<% '*********************************************************************************************** 'END OF FACULTIES DATA REPORT******************************************************************* '*********************************************************************************************** '************************************************************************************************ 'AREA,FUNDING, AND ENROLLMENT FOR EVERY UNIVERSITY*********************************************** '************************************************************************************************ %>

align=center<%end if%>> Part II. AREA,FUNDING, AND ENROLLMENT FOR EVERY UNIVERSITY

<% 'count how many areas are there sqlQuery ="select count(*) as totalArea from tbl_IEEE_constant where CNcategory=0 and CNsubcategory <> 0" set RSBuffer = conn.Execute(sqlQuery) totalArea = cint(RSbuffer("totalArea")) %> <% for i=2 to totalArea+1 'add 1 because of the constantList started at 1 not 0, so pos 1 contains 'area' %> <% next %> <% sqlQuery ="select * from tbl_IEEE_report r,tbl_IEEE_School s ,tbl_IEEE_reportArea ra,tbl_IEEE_graduate g " sqlQuery = sqlQuery & "where r.RESCID = s.SCID and ra.RAREID = r.REID and g.GRREID=r.REID " sqlQuery =sqlQuery & "and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) and r.RERCID = "&surveyID sqlQuery =sqlQuery&" order by s.SCNAME" set RSDATA = conn.Execute(sqlQuery) do while RSDATA.EOF = false %> <% for i=1 to totalArea %> <% next %> <% Response.Flush RSDATA.movenext loop %>
School bgcolor=black align="center">RESEARCH ACTIVITIES FUNDING DOLLAR(1000's) GRADUATE ENROLLMENT AND DEGREES GRANTED
<%=constantList(i)%> <% '+1 because the areas start from index 1 in the array %> Research Sources During Reporting Period Supported by TA Supported by RA Supported by fellowship/ scholarship Self Support Domestic Student International Student Total Enrolled
Internal - from endowments Internal - from other Government Domestic Manufacturer Domestic Utility Other Domestic Industry Foreign Total Pt Tm Fl Tm Pt Tm Fl Tm Pt Tm Fl Tm Pt Tm Fl Tm Pt Tm Fl Tm Pt Tm Fl Tm Pt Tm Fl Tm
Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. Non-Equip. Equip. M D M D M D M D M D M D M D M D M D M D M D M D M D M D
<%=trim(RSDATA("SCNAME"))%> <% if inStr(1,trim(RSDATA("RAAREA")),":"&i&":",vbTextCompare) <> 0 then Response.Write "X" else Response.Write " " end if %> <%=ccur(RSDATA("GRMONONEQINTERNALENDOW"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPINTERNALENDOW"))/1000%>  <%=ccur(RSDATA("GRMONONEQINTERNALOTHER"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPINTERNALOTHER"))/1000%>  <%=ccur(RSDATA("GRMONONEQGOV"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPGOV"))/1000%>  <%=ccur(RSDATA("GRMONONEQDOMMANU"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPDOMMANU"))/1000%>  <%=ccur(RSDATA("GRMONONEQDOMUTIL"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPDOMUTIL"))/1000%>  <%=ccur(RSDATA("GRMONONEQDOMOTHERIND"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPDOMOTHERIND"))/1000%>  <%=ccur(RSDATA("GRMONONEQFOREIGN"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPFOREIGN"))/1000%>  <%=ccur(RSDATA("GRMONONEQTOTAL"))/1000%>  <%=ccur(RSDATA("GRMOEQUIPTOTAL"))/1000%>  <%=cint(RSDATA("GRMAPTTA"))%>  <%=cint(RSDATA("GRDOPTTA"))%>  <%=cint(RSDATA("GRMAFTTA"))%>  <%=cint(RSDATA("GRDOFTTA")) %>  <%=cint(RSDATA("GRMAPTRA")) %>  <%=cint(RSDATA("GRDOPTRA")) %>  <%=cint(RSDATA("GRMAFTRA")) %>  <%=cint(RSDATA("GRDOFTRA")) %>  <%=cint(RSDATA("GRMAPTSCSHIP")) %>  <%=cint(RSDATA("GRDOPTSCSHIP")) %>  <%=cint(RSDATA("GRMAFTSCSHIP")) %>  <%=cint(RSDATA("GRDOFTSCSHIP")) %>  <%=cint(RSDATA("GRMAPTSELF")) %>  <%=cint(RSDATA("GRDOPTSELF")) %>  <%=cint(RSDATA("GRMAFTSELF")) %>  <%=cint(RSDATA("GRDOFTSELF")) %>  <%=cint(RSDATA("GRMAPTDOM")) %>  <%=cint(RSDATA("GRDOPTDOM")) %>  <%=cint(RSDATA("GRMAFTDOM")) %>  <%=cint(RSDATA("GRDOFTDOM")) %>  <%=cint(RSDATA("GRMAPTINTL")) %>  <%=cint(RSDATA("GRDOPTINTL")) %>  <%=cint(RSDATA("GRMAFTINTL")) %>  <%=cint(RSDATA("GRDOFTINTL")) %>  <%=cint(RSDATA("GRMAPTENR")) %>  <%=cint(RSDATA("GRDOPTENR")) %>  <%=cint(RSDATA("GRMAFTENR")) %>  <%=cint(RSDATA("GRDOFTENR")) %> 

<% '************************************************************************************************ 'END OF AREA,FUNDING, AND ENROLLMENT FOR EVERY UNIVERSITY**************************************** '************************************************************************************************ 'SUMMARY OF FACULTY RANKS, ACADEMIC DEGREES, PROFESSIONAL REGISTRATION AND PES MEMBERSHIP ******* '************************************************************************************************ '************************************************************************************************ sqlQuery = "select count(*) as totalFac from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSDATA.eof = false then totalFac = cint(RSDATA("totalFac")) end if if totalFac = 0 then totalFac = 1 sqlQuery ="select count(*) as totalPPC from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=1)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalPPC = cint(RSDATA("totalPPC")) end if sqlQuery ="select count(*) as totalPandC from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=2)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalPandC = cint(RSDATA("totalPandC")) end if sqlQuery ="select count(*) as totalProf from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=3)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalProf = cint(RSDATA("totalProf")) end if sqlQuery ="select count(*) as totalAscProf from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=4)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalAscProf = cint(RSDATA("totalAscProf")) end if sqlQuery ="select count(*) as totalAsstProf from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=5)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalAsstProf = cint(RSDATA("totalAsstProf")) end if sqlQuery ="select count(*) as totalEmeritus from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=6)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalEmeritus = cint(RSDATA("totalEmeritus")) end if sqlQuery ="select count(*) as totalLecturer from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid = (select CNID from tbl_IEEE_constant where CNCATEGORY=1 and CNSUBCATEGORY=7)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalLecturer = cint(RSDATA("totalLecturer")) end if sqlQuery ="select count(*) as totalBach from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid2 in (select CNID from tbl_IEEE_constant where CNCATEGORY=2 and CNSUBCATEGORY=1)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalBach = cint(RSDATA("totalBach")) end if sqlQuery ="select count(*) as totalMast from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid2 = (select CNID from tbl_IEEE_constant where CNCATEGORY=2 and CNSUBCATEGORY=2)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalMast = cint(RSDATA("totalMast")) end if sqlQuery ="select count(*) as totalProDeg from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid2 = (select CNID from tbl_IEEE_constant where CNCATEGORY=2 and CNSUBCATEGORY=3)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalProDeg = cint(RSDATA("totalProDeg")) end if sqlQuery ="select count(*) as totalDoc from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid2 = (select CNID from tbl_IEEE_constant where CNCATEGORY=2 and CNSUBCATEGORY=4)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalDoc = cint(RSDATA("totalDoc")) end if sqlQuery ="select count(*) as totalPEReg from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery = sqlQuery & "f.FAPEREG = 1" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalPEReg = cint(RSDATA("totalPEReg")) end if sqlQuery ="select count(*) as totalPES from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID&" and " sqlQuery=sqlQuery&"f.facnid3 in (select CNID from tbl_IEEE_constant where CNCATEGORY=3 and CNSUBCATEGORY<>5)" sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSDATA = conn.Execute(sqlQuery) if RSDATA.eof = false then totalPES = cint(RSDATA("totalPES")) end if %>

align=center<%end if%>> Part III. SUMMARY OF FACULTY RANKS, ACADEMIC DEGREES, PROFESSIONAL REGISTRATION AND PES MEMBERSHIP

  FACULTY ACADEMIC RANK DEGREE PE PES
Professor and Sponsored Power Chair Professor and Department Chair Professor Associate Professor Assistant Professor Emeritus Lecturer PhD Professional Degree Master Bachelor
Number <%=totalFac%>  <%=totalPPC%>  <%=totalPandC%>  <%=totalProf%>  <%=totalAscProf%>  <%=totalAsstProf%>  <%=totalEmeritus%>  <%=totalLecturer%>  <%=totalDoc%>  <%=totalProDeg%>  <%=totalMast%>  <%=totalBach%>  <%=totalPEReg%>  <%=totalPES%> 
Percent 1 <%=formatNumber((totalPPC/(TotalFac)),3)%>  <%=formatNumber((totalPandC/(TotalFac)),3)%>  <%=formatNumber((totalProf/(TotalFac)),3)%>  <%=formatNumber((totalAscProf/(TotalFac)),3)%>  <%=formatNumber((totalAsstProf/(TotalFac)),3)%>  <%=formatNumber((totalEmeritus/(TotalFac)),3)%>  <%=formatNumber((totalLecturer/(TotalFac)),3)%>  <%=formatNumber((totalDoc/(TotalFac)),3)%>  <%=formatNumber((totalProDeg/(TotalFac)),3)%>  <%=formatNumber((totalMast/(TotalFac)),3)%>  <%=formatNumber((totalBach/(TotalFac)),3)%>  <%=formatNumber((totalPEReg/(TotalFac)),3)%>  <%=formatNumber((totalPES/(TotalFac)),3)%> 

<% 'END OF SUMMARY OF FACULTY RANKS, ACADEMIC DEGREES, PROFESSIONAL REGISTRATION AND PES MEMBERSHIP '************************************************************************************************ '************************************************************************************************ 'FACULTY EXPERIENCE AND ACTIVITIES - ALL UNIVERSITIES****************************************** '************************************************************************************************ '************************************************************************************************ sqlQuery = "select sum(FAEXPACD) as sumExpAcd from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSData("sumExpAcd")<>"" then sumExpAcd = cint(RSData("sumExpAcd")) else sumExpAcd=0 end if sqlQuery = "select sum(FAEXPIND) as sumExpInd from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSData("sumExpInd")<>"" then sumExpInd = cint(RSData("sumExpInd")) else sumExpInd=0 end if sqlQuery = "select sum(FAEXPOTHERIND) as sumExpOthInd from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSData("sumExpOthInd")<>"" then sumExpOthInd = cint(RSData("sumExpOthInd")) else sumExpOthInd=0 end if sqlQuery = "select sum(FAACTPOWERTEACHING) as sumActPowerT from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) sumExp = sumExpAcd + sumExpInd + sumExpOthInd if sumexp = 0 then sumexp = 1 if RSData("sumActPowerT")<>"" then sumActPowT = cint(RSData("sumActPowerT")) else sumActPowT=0 end if sqlQuery = "select sum(FAACTPOWERRESEARCH) as sumActPowerR from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSData("sumActPowerR")<>"" then sumActPowR = cint(RSData("sumActPowerR")) else sumActPowR=0 end if sqlQuery = "select sum(FAACTNOPOWER) as sumActNoPower from tbl_IEEE_faculty" sqlQuery = sqlQuery& " f, tbl_IEEE_report r where f.FAREID=r.REID and r.RERCID = "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " set RSdata = conn.Execute(sqlQuery) if RSData("sumActNoPower")<>"" then sumActNonPow = cint(RSData("sumActNoPower")) else sumActNonPow=0 end if sumAct = sumActPowT + sumActPowR + sumActNonPow if sumAct = 0 then SumAct = 1 %>

align=center<%end if%>> Part IV. FACULTY EXPERIENCE AND ACTIVITIES - ALL UNIVERSITIES

EXPERIENCE ACTIVITY(%)
Academic Industry Other Industry Power Teaching Power Research Other
Aggregate Value <%=sumExpAcd%>  <%=sumExpInd%>  <%=sumExpOthInd%>  <%=sumActPowT%>  <%=sumActPowR%>  <%=sumActNonPow%> 
Average Experience and Activities % <%=formatNumber(sumExpAcd/(sumExp),3)%>  <%=formatNumber(sumExpInd/(sumExp),3)%>  <%=formatNumber(sumExpOthInd/(sumExp),3)%>  <%=formatNumber(sumActPowT/(sumAct),3)%>  <%=formatNumber(sumActPowR/(sumAct),3)%>  <%=formatNumber(sumActNonPow/(sumAct),3)%> 

<% 'END OF FACULTY EXPERIENCE AND ACTIVITIES - ALL UNIVERSITIES*********************************** '************************************************************************************************ '************************************************************************************************ 'TOTAL REPORTED ELECTRIC POWER ENGINEERING GRADUATE DEGREES GRANTED AND ENROLLMENT ************** '************************************************************************************************ '************************************************************************************************ sqlQuery="select sum(GRMAFTENR) as sumMaFTEnr,sum(GRMAPTENR) as sumMaPTEnr,sum(GRDOFTENR) as sumDoFTEnr," sqlQuery= sqlQuery&"sum(GRDOPTENR) as sumDoPTEnr,sum(GRMAFTDOM) as sumMaFTDom,sum(GRMAPTDOM) as sumMaPTDom," sqlQuery= sqlQuery&"sum(GRDOFTDOM) as sumDoFTDom,sum(GRDOPTDOM) as sumDoPTDom,sum(GRMAFTTA) as sumMAFTTA," sqlQuery= sqlQuery&"sum(GRMAPTTA) as sumMAPTTA,sum(GRDOFTTA) as sumDOFTTA,sum(GRDOPTTA) as sumDoPtTA," sqlQuery= sqlQuery&"sum(GRMAFTRA) as sumMAFTRA,sum(GRMAPTRA) as sumMAPTRA,sum(GRDOFTRA) as sumDoFtRA," sqlQuery= sqlQuery&"sum(GRDOPTRA) as sumDoPtRA,sum(GRMAFTSCSHIP) as sumMAFTSCHIP,sum(GRMAPTSCSHIP) as sumMAPTSCSHIP," sqlQuery= sqlQuery&"sum(GRDOFTSCSHIP) as sumDoFtScship,sum(GRDOPTSCSHIP) as sumDoPtScship," sqlQuery= sqlQuery&"sum(GRMAFTSELF) as sumMaFtSelf,sum(GRMAPTSELF) as sumMaPtSelf,sum(GRDOFTSELF) as sumDoFtSelf," sqlQuery= sqlQuery&"sum(GRDOPTSELF) as sumDoPtSelf,sum(GRMAFTINTL) as sumMaFtIntl,sum(GRMAPTINTL) as sumMaPtintl," sqlQuery=sqlQuery&"sum(GRDOFTINTL) as sumDoFtIntl,sum(GRDOPTINTL) as sumDoPtIntl from tbl_IEEE_graduate where" sqlQuery= sqlQuery&" GRREID in (select REID from tbl_IEEE_report where RERCID="&surveyID&")" set RSData = conn.Execute(sqlQuery) %>

align=center<%end if%>> Part V. TOTAL REPORTED ELECTRIC POWER ENGINEERING GRADUATE DEGREES GRANTED AND ENROLLMENT

Enrolled
CITIZEN FOREIGN
Part Time Full Time Part Time Full Time
Master Doctor Master Doctor Master Doctor Master Doctor
<%=RSData("sumMaPTDOM")%>  <%=RSData("sumDoPTDOM")%>  <%=RSData("sumMaFTDOM")%>  <%=RSData("sumDoFTDOM")%>  <%=RSData("sumMaPTINTL")%>  <%=RSData("sumDoPTINTL")%>  <%=RSData("sumMaFTINTL")%>  <%=RSData("sumDoFTINTL")%> 

<% 'END OF TOTAL REPORTED ELECTRIC POWER ENGINEERING GRADUATE DEGREES GRANTED AND ENROLLMENT ******* '************************************************************************************************ '************************************************************************************************ 'POWER COURSE OFFERINGS************************************************************************** '************************************************************************************************ '************************************************************************************************ sqlQuery = "select * from tbl_IEEE_course c, tbl_IEEE_report r, tbl_IEEE_school s " sqlQuery = sqlQuery&"where c.COREID = r.REID and r.RESCID=s.SCID and r.RERCID= "&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " sqlQuery = sqlQuery& " order by s.SCNAME,c.CONAME " set RSdata = conn.Execute(sqlQuery) %>

align=center<%end if%>> PART VI. POWER COURSE OFFERINGS

<% do while RSdata.eof=false if schoolName <> trim(RSdata("SCNAME")) then schoolName = trim(RSdata("SCNAME")) %> <% end if %> <% Response.Flush RSdata.movenext loop %>
Course Name Course Credit Lecture Hours Lab Hours Required forUgrad/Grad Enrollment On Campus Enrollment Off Campus Off Campus Video Off Campus Cable Off Campus Video Stream Other Off Campus Service Course Webpage
<%=schoolName%>
<%trim(RSdata("RECALENDAR"))%>
<%=trim(RSdata("CONAME"))%>  <%=cint(RSdata("COCR"))%>  <%=cint(RSdata("COHOLECTURE"))%>  <%=cint(RSdata("COHOLAB"))%>  <%=trim(RSdata("COREQ"))%>  <%=cint(RSdata("COENROLLON"))%>  <%=cint(RSdata("COENROLLOFF"))%>  <% if cbool(RSdata("COVIDEO")) = true then Response.Write "Yes" else Response.Write "No" end if %>   <% if cbool(RSdata("COCABLE")) = true then Response.Write "Yes" else Response.Write "No" end if %>   <% if RSdata("COVIDEOST") = 1 then Response.Write "Yes" else Response.Write "No" end if %>   <%=trim(RSdata("COOTHER"))%>  <%=trim(RSdata("COURL"))%> 

<% 'END OF POWER COURSE OFFERINGS******************************************************************* '************************************************************************************************ '************************************************************************************************ 'OUTREACH DATA*********************************************************************************** '************************************************************************************************ '************************************************************************************************ sqlQuery = "select * from tbl_IEEE_report r, tbl_IEEE_school s where r.RESCID=s.SCID " sqlQuery = sqlQuery& " and r.RERCID="&surveyID sqlQuery =sqlQuery & " and r.REUSID in (select AUUSID from tbl_IEEE_approved_user ) " sqlQuery =sqlQuery & "order by s.SCNAME" %>

align=center<%end if%>> PART VII. OUTREACH

<% set RSdata = conn.Execute(sqlQuery) do while RSdata.eof=false %> <% Response.Flush RSdata.movenext loop %>
University Received PES video #2? Used PES video #2 in class? Used PES video #2 for outreach? Total Power Engineering Participated
K-12 Undergrad
<%=trim(RSData("scname"))%>  <% if RSdata("RERCVDVIDEO") <> "" then if cbool(RSdata("RERCVDVIDEO")) = true then Response.Write "yes" else Response.Write "no" end if end if %>   <% if RSdata("RERCVDVIDEOCLASS") <> "" then if cbool(RSdata("RERCVDVIDEOCLASS")) = true then Response.Write "yes" else Response.Write "no" end if end if %>   <% if RSdata("RERCVDVIDEOOUTR") <> "" then if cbool(RSdata("RERCVDVIDEOOUTR")) = true then Response.Write "yes" else Response.Write "no" end if end if %>   <%=RSdata("REPEOUTREVENTK12")%>  <%=RSdata("REPEOUTREVENTUG")%> 

<% 'END OF OUTREACH DATA**************************************************************************** '************************************************************************************************ '************************************************************************************************ set RSdata= nothing set FSO = nothing %>