IEEE Survey login

<%@ Language=VBScript %> IEEE Survey login <% dim login dim loginFail dim user, pass dim conn dim sqlQuery dim RSBuffer, RSREPORT, RSbuffer2, RSapproved dim userID, reportID dim reportTo dim trackPage dim reportChoiceID dim msg login = trim(Request.Form("loginSubmitted")) loginFail = trim(Request.QueryString("loginFail")) set Conn = server.CreateObject("ADODB.connection") Conn.Open ConnectionString if login <> "yes" then %>

ELECTRIC POWER ENGINEERING EDUCATIONAL RESOURCES SURVEY
Power Engineering Education Committee of IEEE Power Engineering Society
Reporting Period: Fiscal or Academic Year '05-'06

Previous survey papers: [69-70] [71-72] [73-74] [75-76] [77-78] [79-80] [81-82] [85-86] [87-88] [89-90] [93-94] [01-02]

	Best View 1024 x 768 resolution Required browser: Internet Explorer
FREE download at http://explorer.msn.com

<% msg = trim(Request.QueryString("msg")) if msg="finish" then %>

Thank you for participating in the Electrical Power Engineering Educational Resources Survey

<% else %>

About the survey

This survey is sponsored by the IEEE Power Engineering Society (PES) Education Committee." The objective is to collect information for publication that would, with respect to US/Canadian power engineering:

Disseminate educational information to the community in the way of: - assist students assessing undergraduate and graduate school opportunities in power engineering - assist potential faculty looking for academic positions, - assist individuals looking for distance-ed opportunities
Detect ongoing trends in US/Canadian power engineering education that should be changed or encouraged
Identify avenues where IEEE efforts can aid educators, including including learning quality, increasing enrollment in power engineering courses, and enhancing industry-academia interaction.

We request that one individual at your university complete the survey. The deadline for completing the survey is June 1, 2006. Following that date, this web site will be removed, the results compiled and submitted for publication in IEEE Transactions on Power Systems by 7/1/06. Click here to obtain the 2001-2002 survey publication in IEEE Transactions on Power Systems. This survey will result in a similar publication. (note that links to all previous IEEE transaction survey publications are provided at the top of this page).

YOU MUST FIRST REGISTER TO FILL THIS SURVEY. CLICK HERE TO REGISTER.
This registration procedure is painless and only requires about a minute of your time.
You will be approved within the day and possibly immediately, and then notified by e-mail.
Registration and approval is necessary to ensure all survey responses are from a university faculty.

We hope that you will find this survey to be user-friendly. Please e-mail any questions or suggestions to Jim McCalley at jdm@iastate.edu or call at 515-294-4844.

<% end if 'if msg="finish" %>

<% else if login= "yes" then user = trim(Request.form("user")) pass = trim(Request.Form("pass")) sqlQuery = "select * from tbl_IEEE_USER where USUSERNAME='"&user&"'" Response.Write sqlQuery&"
" set RSbuffer = conn.Execute(SQLQuery) if RSbuffer.eof = false then if pass = trim(RSBuffer("USPASSWORD")) then sqlQuery = "select * from tbl_IEEE_approved_user where AUUSID="&cint(RSbuffer("USID")) set RSApproved = conn.Execute(sqlQuery) if RSApproved.eof = false then userID = cint(rSbuffer("USID")) Session("userID") = userID 'get user latest Report's ID sqlQuery = "select * from tbl_IEEE_report where REUSID ="&userID&" and RERCID in ( select RCID" sqlQuery = sqlQuery &" from tbl_IEEE_reportChoice where RCValid=1 and RCValidTill >='"&date()&"')" set RSReport = conn.Execute(sqlQuery) if RSReport.eof = false then 'put the report id in session var reportID = cint(RSreport("REID")) trackPage = cint(RSreport("RETRACK")) Session("reportID") = reportID Response.Redirect("survey01.asp") else if RSREPORT.eof = true then 'the user has not make a report or no survey available at this time 'get the new valid date sqlQuery ="select * from tbl_IEEE_reportChoice where RCValid=1 and RCValidTill >='"&date()&"'" set RSbuffer2 = conn.Execute(sqlQuery) if RSBUffer2.eof= false then 'if there is an available survey and the user has not fill it out reportTo = cdate(RSbuffer2("rcvalidTill")) reportChoiceID = cint(RSbuffer2("RCID")) 'make a new report sqlQuery="insert into tbl_IEEE_Report(REUSID,RERCID,RETRACK,REFINISH) " sqlQuery= sqlQuery& "values ("&userID&","&reportChoiceID&",1,0)" conn.Execute(sqlQuery) 'put the report id in session var sqlQuery = "select * from tbl_IEEE_report where REUSID ="&userID&" and REFINISH=0" set RSbuffer2 = conn.Execute(sqlQuery) reportID = cint(RSbuffer2("REID")) Session("reportID") = reportID Response.Redirect("survey01.asp") else 'no survey available now Response.Redirect("SurveyLogin.asp?loginFail=noSurvey") end if end if end if 'msgBox "Trackpage"&trackpage if trackPage = 1 then Response.Redirect("survey01.asp") else if trackPage = 2 then Response.Redirect("survey02pre.asp") else if trackPage = 3 then Response.Redirect("survey03.asp") else if trackPage = 4 then Response.Redirect("survey04pre.asp") else if trackpage = 5 then Response.Redirect("survey05.asp") end if end if end if end if end if else 'of if RSApproved.eof = false then Response.Redirect("SurveyLogin.asp?loginFail=notApproved") end if 'of if RSApproved.eof = false then else 'of pass = trim(RSBuffer("USPASSWORD")) then Response.Redirect("SurveyLogin.asp?loginFail=yes") end if else 'of RSbuffer.eof = false then Response.Redirect("SurveyLogin.asp?loginFail=yes") end if 'RSbuffer.eof = false then end if 'if login= "yes" then end if set RSBuffer = nothing set RSReport = nothing set RSbuffer2 = nothing set COnn = nothing %>