<%@ Language=VBScript %>
IEEE Survey
<%
dim msg, submitted
dim reportID, userID
dim courseNumber
dim conn
dim RSbuffer
on error resume next
session.Timeout = 360
userID = cint(session("userID"))
if userID = empty then
userID = cint(Request.Form("userID"))
end if
'if still cannot retrieve user id then automatically logged out
if userID = "" or userID = 0 then
Response.redirect("surveyLogin.asp?loginFail=yes")
end if
'get the report id from the session object
reportID =cint(session("reportID"))
if reportID= empty then
reportID= cint(Request.Form("reportID"))
end if
session("userID")=cint(userID)
session("reportID")=cint(reportID)
'make connection
set conn = server.CreateObject("ADODB.connection")
conn.Open ConnectionString
msg=trim(Request.QueryString("msg"))
submitted = trim(Request.Form("submitted"))
'Response.Write "submitted:"&submitted
'check if the user has fill out more than page 4
sqlQuery = "select * from tbl_IEEE_report where REID="&reportID
set RSBuffer = conn.Execute(sqlQuery)
if trim(RSbuffer("RENOPAGE4"))<>"" and msg<>"change" and submitted <> "yes" then
Response.Redirect("Survey04.asp")
end if
if submitted <> "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
<%
else if submitted = "yes" then
'pass these vars to the processing part
session("userID")=cint(userID)
session("reportID")=cint(reportID)
if trim(Request.Form("courseNumber")) <> "" then
courseNumber = cint(Request.Form("courseNumber"))
else
courseNumber=1
end if
sqlQuery="update tbl_IEEE_report set RENOPAGE4="&courseNumber&" where REID="&reportID
Response.Write sqlQuery
conn.Execute(sqlQuery)
Response.Redirect("survey04.asp")
end if
end if
%>