<%@ Language=VBScript %>
IEEE Survey
<%
dim decision
dim graMasterFlTimeEnrolled,graMasterPtTimeEnrolled
dim graDoctorFlTimeEnrolled, graDoctorPtTimeEnrolled
dim graMasterFlTimeGrad, graMasterPtTimeGrad, graDoctorFlTimeGrad, graDoctorPtTimeGrad
dim graMasterFlTimeDom,graMasterPtTimeDom
dim graDoctorFlTimeDom, graDoctorPtTimeDom
dim graMasterFlTimeSelf, graMasterPtTimeSelf, graDoctorFlTimeSelf, graDoctorPtTimeSelf
dim graMasterFlTimeRA,graMasterPtTimeRA
dim graDoctorFlTimeRA, graDoctorPtTimeRA
dim graMasterFlTimeTA, graMasterPtTimeTA, graDoctorFlTimeTA, graDoctorPtTimeTA
dim graMasterFlTimeSchship,graMasterPtTimeSchship
dim graDoctorFlTimeSchship, graDoctorPtTimeSchship
dim graMasterFlTimeIntl, graMasterPtTimeIntl, graDoctorFlTimeIntl, graDoctorPtTimeIntl
dim resExpEQInternalEndow,resExpEQInternalOther,resExpEQGov, resExpEQMnfcInd, resExpEQTotal
dim resExpNonEQInternalEndow,resExpNonEQInternalOther,resExpNonEQGov, resExpNonEQMnfcInd, resExpNonEQTotal
dim GradSupportScholarship, GradSupportEquip
dim PowSysAnComEco,PowSysDynPerf,PowSysOp, PowSysPlan
dim InsulatedCond, EMachinery,PowSysComm
dim PowSysInstMeasurement, PowSysRelaying, Substations , SurgeProtectDev, NukePowEngr
dim Transformers, TransDist, EnergyDevPowGen, PowerElectronics, PowEngrEdu
dim GRMAFTENR,GRMAPTENR,GRDOFTENR,GRDOPTENR,GRMAFTGRA,GRMAPTGRA,GRDOFTGRA,GRDOPTGRA
dim GRMAFTDOM,GRMAPTDOM,GRDOFTDOM,GRDOPTDOM,GRMAFTSELF,GRMAPTSELF,GRDOFTSELF,GRDOPTSELF
dim GRMAFTRA,GRMAPTRA,GRDOFTRA,GRDOPTRA,GRMAFTTA,GRMAPTTA,GRDOFTTA,GRDOPTTA
dim GRMAFTSCSHIP,GRMAPTSCSHIP,GRDOFTSCSHIP,GRDOPTSCSHIP,GRMAFTINTL,GRMAPTINTL,GRDOFTINTL,GRDOPTINTL
dim GRMOEQUIPINTERNALENDOW,GRMOEQUIPINTERNALOTHER, GRMOEQUIPGOV,GRMOEQUIPDOMMANU,GRMOEQUIPDOMUTIL
dim GRMOEQUIPDOMOTHERIND,GRMOEQUIPFOREIGN,GRMOEQUIPTOTAL
dim GRMONONEQINTERNALENDOW,GRMONONEQINTERNALOTHER, GRMONONEQGOV,GRMONONEQDOMMANU,GRMONONEQDOMUTIL
dim GRMONONEQDOMOTHERIND,GRMONONEQFOREIGN,GRMONONEQTOTAL
dim RERCVDVIDEO,RERCVDVIDEOCLASS,RERCVDVIDEOOUTR,REPEOUTREVENTTOTAL
dim goToPage
dim areaString
on error resume next
session.Timeout = 360
'get user id from the session object
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
decision = trim(Request.Form("decision"))
if decision <> "move" and decision <> "exit" then
'reportID = cint(Request.QueryString("RID"))
sqlQuery="select * from tbl_IEEE_GRADUATE where GRREID="&reportID
set RSbuffer = conn.Execute(sqlQuery)
if RSbuffer.eof = false then
GRMAFTENR = RSbuffer("GRMAFTENR")
GRMAPTENR = RSBUffer("GRMAPTENR")
GRDOFTENR = RSbuffer("GRDOFTENR")
GRDOPTENR = RSBuffer("GRDOPTENR")
'GRMAFTGRA = RSBuffer("GRMAFTGRA")
'GRMAPTGRA = RSbuffer("GRMAPTGRA")
'GRDOFTGRA = RSbuffer("GRDOFTGRA")
'GRDOPTGRA = RSBuffer("GRDOPTGRA")
GRMAFTDOM = RSbuffer("GRMAFTDOM")
GRMAPTDOM = RSBUffer("GRMAPTDOM")
GRDOFTDOM = RSbuffer("GRDOFTDOM")
GRDOPTDOM = RSBuffer("GRDOPTDOM")
GRMAFTSELF = RSBuffer("GRMAFTSELF")
GRMAPTSELF = RSbuffer("GRMAPTSELF")
GRDOFTSELF = RSbuffer("GRDOFTSELF")
GRDOPTSELF = RSBuffer("GRDOPTSELF")
GRMAFTTA = RSbuffer("GRMAFTTA")
GRMAPTTA = RSBUffer("GRMAPTTA")
GRDOFTTA = RSbuffer("GRDOFTTA")
GRDOPTTA = RSBuffer("GRDOPTTA")
GRMAFTRA = RSBuffer("GRMAFTRA")
GRMAPTRA = RSbuffer("GRMAPTRA")
GRDOFTRA = RSbuffer("GRDOFTRA")
GRDOPTRA = RSBuffer("GRDOPTRA")
GRMAFTSCSHIP = RSbuffer("GRMAFTSCSHIP")
GRMAPTSCSHIP = RSBUffer("GRMAPTSCSHIP")
GRDOFTSCSHIP = RSbuffer("GRDOFTSCSHIP")
GRDOPTSCSHIP = RSBuffer("GRDOPTSCSHIP")
GRMAFTINTL = RSBuffer("GRMAFTINTL")
GRMAPTINTL = RSbuffer("GRMAPTINTL")
GRDOFTINTL = RSbuffer("GRDOFTINTL")
GRDOPTINTL = RSBuffer("GRDOPTINTL")
GRMOEQUIPINTERNALENDOW = RSbuffer("GRMOEQUIPINTERNALENDOW")
GRMOEQUIPINTERNALOTHER = RSbuffer("GRMOEQUIPINTERNALOTHER")
GRMOEQUIPGOV = RSbuffer("GRMOEQUIPGOV")
GRMOEQUIPDOMMANU = Rsbuffer("GRMOEQUIPDOMMANU")
GRMOEQUIPDOMUTIL = RSbuffer("GRMOEQUIPDOMUTIL")
GRMOEQUIPDOMOTHERIND = RSbuffer("GRMOEQUIPDOMOTHERIND")
GRMOEQUIPFOREIGN = RSbuffer("GRMOEQUIPFOREIGN")
GRMOEQUIPTOTAL = RSbuffer("GRMOEQUIPTOTAL")
GRMONONEQINTERNALENDOW = RSbuffer("GRMONONEQINTERNALENDOW")
GRMONONEQINTERNALOTHER = RSbuffer("GRMONONEQINTERNALOTHER")
GRMONONEQGOV = RSbuffer("GRMONONEQGOV")
GRMONONEQDOMMANU = Rsbuffer("GRMONONEQDOMMANU")
GRMONONEQDOMUTIL = RSbuffer("GRMONONEQDOMUTIL")
GRMONONEQDOMOTHERIND = RSbuffer("GRMONONEQDOMOTHERIND")
GRMONONEQFOREIGN = RSbuffer("GRMONONEQFOREIGN")
GRMONONEQTOTAL = RSbuffer("GRMONONEQTOTAL")
end if
%>
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 this is the processing page
'pass these vars to the processing part
session("userID")=cint(userID)
session("reportID")=cint(reportID)
if Request.Form("graMasterFlTimeEnrolled") <> "" then
graMasterFlTimeEnrolled = cint(Request.Form("graMasterFlTimeEnrolled"))
else
gramasterFlTimeEnrolled = 0
end if
if Request.Form("graMasterPtTimeEnrolled") <> "" then
graMasterPtTimeEnrolled = cint(Request.Form("graMasterPtTimeEnrolled"))
else
graMasterPtTimeEnrolled=0
end if
if Request.Form("graDoctorFlTimeEnrolled") <> "" then
graDoctorFlTimeEnrolled = cint(Request.Form("graDoctorFlTimeEnrolled"))
else
graDoctorFlTimeEnrolled=0
end if
if Request.Form("graDoctorPtTimeEnrolled") <> "" then
graDoctorPtTimeEnrolled = cint(Request.Form("graDoctorPtTimeEnrolled"))
else
graDoctorPtTimeEnrolled=0
end if
if Request.Form("graMasterFlTimeSelf") <> "" then
graMasterFlTimeSelf = cint(Request.Form("graMasterFlTimeSelf"))
else
graMasterFlTimeSelf=0
end if
if Request.Form("graMasterPtTimeSelf") <> "" then
graMasterPtTimeSelf = cint(Request.Form("graMasterPtTimeSelf"))
else
graMasterPtTimeSelf=0
end if
if Request.Form("graDoctorFlTimeSelf") <> "" then
graDoctorFlTimeSelf = cint(Request.Form("graDoctorFlTimeSelf"))
else
graDoctorFlTimeSelf=0
end if
if Request.Form("graDoctorPtTimeSelf") <> "" then
graDoctorPtTimeSelf = cint(Request.Form("graDoctorPtTimeSelf"))
else
graDoctorPtTimeSelf=0
end if
if Request.Form("graMasterFlTimeDom") <> "" then
graMasterFlTimeDom = cint(Request.Form("graMasterFlTimeDom"))
else
graMasterFlTimeDom=0
end if
if Request.Form("graMasterPtTimeDom") <> "" then
graMasterPtTimeDom = cint(Request.Form("graMasterPtTimeDom"))
else
graMasterPtTimeDom=0
end if
if Request.Form("graDoctorFlTimeDom") <> "" then
graDoctorFlTimeDom = cint(Request.Form("graDoctorFlTimeDom"))
else
graDoctorFlTimeDom=0
end if
if Request.Form("graDoctorPtTimeDom") <> "" then
graDoctorPtTimeDom = cint(Request.Form("graDoctorPtTimeDom"))
else
graDoctorPtTimeDom=0
end if
if Request.Form("graMasterFlTimeGrad") <> "" then
graMasterFlTimeGrad = cint(Request.Form("graMasterFlTimeGrad"))
else
graMasterFlTimeGrad=0
end if
if Request.Form("graMasterPtTimeGrad") <> "" then
graMasterPtTimeGrad = cint(Request.Form("graMasterPtTimeGrad"))
else
graMasterPtTimeGrad=0
end if
if Request.Form("graDoctorFlTimeGrad") <> "" then
graDoctorFlTimeGrad = cint(Request.Form("graDoctorFlTimeGrad"))
else
graDoctorFlTimeGrad=0
end if
if Request.Form("graDoctorPtTimeGrad") <> "" then
graDoctorPtTimeGrad = cint(Request.Form("graDoctorPtTimeGrad"))
else
graDoctorPtTimeGrad=0
end if
if Request.Form("graMasterFlTimeTA") <> "" then
graMasterFlTimeTA = cint(Request.Form("graMasterFlTimeTA"))
else
gramasterFlTimeTA = 0
end if
if Request.Form("graMasterPtTimeTA") <> "" then
graMasterPtTimeTA = cint(Request.Form("graMasterPtTimeTA"))
else
graMasterPtTimeTA=0
end if
if Request.Form("graDoctorFlTimeTA") <> "" then
graDoctorFlTimeTA = cint(Request.Form("graDoctorFlTimeTA"))
else
graDoctorFlTimeTA=0
end if
if Request.Form("graDoctorPtTimeTA") <> "" then
graDoctorPtTimeTA = cint(Request.Form("graDoctorPtTimeTA"))
else
graDoctorPtTimeTA=0
end if
if Request.Form("graMasterFlTimeRA") <> "" then
graMasterFlTimeRA = cint(Request.Form("graMasterFlTimeRA"))
else
graMasterFlTimeRA=0
end if
if Request.Form("graMasterPtTimeRA") <> "" then
graMasterPtTimeRA = cint(Request.Form("graMasterPtTimeRA"))
else
graMasterPtTimeRA=0
end if
if Request.Form("graDoctorFlTimeRA") <> "" then
graDoctorFlTimeRA = cint(Request.Form("graDoctorFlTimeRA"))
else
graDoctorFlTimeRA=0
end if
if Request.Form("graDoctorPtTimeRA") <> "" then
graDoctorPtTimeRA = cint(Request.Form("graDoctorPtTimeRA"))
else
graDoctorPtTimeRA=0
end if
if Request.Form("graMasterFlTimeSchship") <> "" then
graMasterFlTimeSchship = cint(Request.Form("graMasterFlTimeSchship"))
else
graMasterFlTimeSchship=0
end if
if Request.Form("graMasterPtTimeSchship") <> "" then
graMasterPtTimeSchship = cint(Request.Form("graMasterPtTimeSchship"))
else
graMasterPtTimeSchship=0
end if
if Request.Form("graDoctorFlTimeSchship") <> "" then
graDoctorFlTimeSchship = cint(Request.Form("graDoctorFlTimeSchship"))
else
graDoctorFlTimeSchship=0
end if
if Request.Form("graDoctorPtTimeSchship") <> "" then
graDoctorPtTimeSchship = cint(Request.Form("graDoctorPtTimeSchship"))
else
graDoctorPtTimeSchship=0
end if
if Request.Form("graMasterFlTimeIntl") <> "" then
graMasterFlTimeIntl = cint(Request.Form("graMasterFlTimeIntl"))
else
graMasterFlTimeIntl=0
end if
if Request.Form("graMasterPtTimeIntl") <> "" then
graMasterPtTimeIntl = cint(Request.Form("graMasterPtTimeIntl"))
else
graMasterPtTimeIntl=0
end if
if Request.Form("graDoctorFlTimeIntl") <> "" then
graDoctorFlTimeIntl = cint(Request.Form("graDoctorFlTimeIntl"))
else
graDoctorFlTimeIntl=0
end if
if Request.Form("graDoctorPtTimeIntl") <> "" then
graDoctorPtTimeIntl = cint(Request.Form("graDoctorPtTimeIntl"))
else
graDoctorPtTimeIntl=0
end if
if Request.Form("resExpEQInternalEndow") <> "" then
resExpEQInternalEndow = ccur(Request.Form("resExpEQInternalEndow"))
else
resExpEQInternalEndow=0
end if
if Request.Form("resExpEQInternalOther") <> "" then
resExpEQInternalOther = ccur(Request.Form("resExpEQInternalOther"))
else
resExpEQInternalOther=0
end if
if Request.Form("resExpEQGov") <> "" then
resExpEQGov = ccur(Request.Form("resExpEQGov"))
else
resExpEQGov=0
end if
if Request.Form("resExpEQDomManu") <> "" then
resExpEQDomManu = ccur(Request.Form("resExpEQDomManu"))
else
resExpEQDomManu=0
end if
if Request.Form("resExpEQDomUtil") <> "" then
resExpEQDomUtil = ccur(Request.Form("resExpEQDomUtil"))
else
resExpEQDomUtil=0
end if
if Request.Form("resExpEQDomOtherInd") <> "" then
resExpEQDomOtherInd = ccur(Request.Form("resExpEQDomOtherInd"))
else
resExpEQDomOtherInd=0
end if
if Request.Form("resExpEQForeign") <> "" then
resExpEQForeign = ccur(Request.Form("resExpEQForeign"))
else
resExpEQForeign=0
end if
if Request.Form("resExpEQTotal") <> "" then
resExpEQTotal = ccur(Request.Form("resExpEQTotal"))
else
resExpEQTotal=0
end if
if Request.Form("resExpNonEQInternalEndow") <> "" then
resExpNonEQInternalEndow = ccur(Request.Form("resExpNonEQInternalEndow"))
else
resExpNonEQInternalEndow=0
end if
if Request.Form("resExpNonEQInternalOther") <> "" then
resExpNonEQInternalOther = ccur(Request.Form("resExpNonEQInternalOther"))
else
resExpNonEQInternalOther=0
end if
if Request.Form("resExpNonEQGov") <> "" then
resExpNonEQGov = ccur(Request.Form("resExpNonEQGov"))
else
resExpNonEQGov=0
end if
if Request.Form("resExpNonEQDomManu") <> "" then
resExpNonEQDomManu = ccur(Request.Form("resExpNonEQDomManu"))
else
resExpNonEQDomManu=0
end if
if Request.Form("resExpNonEQDomUtil") <> "" then
resExpNonEQDomUtil = ccur(Request.Form("resExpNonEQDomUtil"))
else
resExpNonEQDomUtil=0
end if
if Request.Form("resExpNonEQDomOtherInd") <> "" then
resExpNonEQDomOtherInd = ccur(Request.Form("resExpNonEQDomOtherInd"))
else
resExpNonEQDomOtherInd=0
end if
if Request.Form("resExpNonEQForeign") <> "" then
resExpNonEQForeign = ccur(Request.Form("resExpNonEQForeign"))
else
resExpNonEQForeign=0
end if
if Request.Form("resExpNonEQTotal") <> "" then
resExpNonEQTotal = ccur(Request.Form("resExpNonEQTotal"))
else
resExpNonEQTotal=0
end if
PowSysAnComEco =trim(Request.Form("PowSysAnComEco"))
PowSysDynPerf =trim(Request.Form("PowSysDynPerf"))
PowSysOp =trim(Request.Form("PowSysOp"))
PowSysPlan =trim(Request.Form("PowSysPlan"))
InsulatedCond =trim(Request.Form("InsulatedCond"))
EMachinery =trim(Request.Form("EMachinery"))
PowSysComm =trim(Request.Form("PowSysComm"))
PowSysInstMeasurement =trim(Request.Form("PowSysInstMeasurement"))
PowSysRelaying =trim(Request.Form("PowSysRelaying"))
Substations =trim(Request.Form("Substations"))
SurgeProtectDev =trim(Request.Form("SurgeProtectDev"))
NukePowEngr =trim(Request.Form("NukePowEngr"))
Transformers =trim(Request.Form("Transformers"))
TransDist =trim(Request.Form("TransDist"))
EnergyDevPowGen =trim(Request.Form("EnergyDevPowGen"))
PowerElectronics =trim(Request.Form("PowerElectronics"))
PowEngrEdu =trim(Request.Form("PowEngrEdu"))
areaString = ":"
if PowSysAnComEco = "on" then
areaString = areaString & "1:"
end if
if PowSysDynPerf = "on" then
areaString = areaString & "2:"
end if
if PowSysOp = "on" then
areaString = areaString & "3:"
end if
if PowSysPlan = "on" then
areaString = areaString & "4:"
end if
if InsulatedCond = "on" then
areaString = areaString & "5:"
end if
if EMachinery = "on" then
areaString = areaString & "6:"
end if
if PowSysComm = "on" then
areaString = areaString & "7:"
end if
if PowSysInstMeasurement = "on" then
areaString = areaString & "8:"
end if
if PowSysRelaying = "on" then
areaString = areaString & "9:"
end if
if Substations = "on" then
areaString = areaString & "10:"
end if
if SurgeProtectDev = "on" then
areaString = areaString & "11:"
end if
if NukePowEngr = "on" then
areaString = areaString & "12:"
end if
if Transformers = "on" then
areaString = areaString & "13:"
end if
if TransDist = "on" then
areaString = areaString & "14:"
end if
if EnergyDevPowGen = "on" then
areaString = areaString & "15:"
end if
if PowerElectronics = "on" then
areaString = areaString & "16:"
end if
if PowEngrEdu = "on" then
areaString = areaString & "17:"
end if
sqlQuery = "select * from tbl_IEEE_graduate where GRREID="&reportID
set RSbuffer = conn.Execute(sqlQuery)
if RSbuffer.eof = false then 'if record already exist before
'update tbl_IEEE_report
sqlQuery = "update tbl_IEEE_Graduate set GRMAFTENR="&graMasterFlTimeEnrolled
sqlQuery = sqlQuery &", GRMAPTENR="&graMasterPtTimeEnrolled&", GRDOFTENR="&graDoctorFlTimeEnrolled
sqlQuery = sqlQuery &", GRDOPTENR="&graDoctorPtTimeEnrolled
sqlQuery = sqlQuery &", GRMAFTSELF="&graMasterFlTimeSELF &", GRMAPTSELF="&graMasterPtTimeSELF
sqlQuery = sqlQuery &", GRDOFTSELF="&graDoctorFlTimeSELF &", GRDOPTSELF="&graDoctorPtTimeSELF
sqlQuery = sqlQuery &", GRMAFTDOM="&graMasterFlTimeDOM &", GRMAPTDOM="&graMasterPtTimeDOM
sqlQuery = sqlQuery &", GRDOFTDOM="&graDoctorFlTimeDOM &", GRDOPTDOM="&graDoctorPtTimeDOM
sqlQuery = sqlQuery &", GRMAFTGRA="&graMasterFlTimeGrad &", GRMAPTGRA="&graMasterPtTimeGrad
sqlQuery = sqlQuery &", GRDOFTGRA="&graDoctorFlTimeGrad &", GRDOPTGRA="&graDoctorPtTimeGrad
sqlQuery = sqlQuery &", GRMAPTTA="&graMasterPtTimeTA&", GRDOFTTA="&graDoctorFlTimeTA
sqlQuery = sqlQuery &", GRDOPTTA="&graDoctorPtTimeTA&", GRMAFTTA="&graMasterFlTimeTA
sqlQuery = sqlQuery &", GRMAFTINTL="&graMasterFlTimeINTL &", GRMAPTINTL="&graMasterPtTimeINTL
sqlQuery = sqlQuery &", GRDOFTINTL="&graDoctorFlTimeINTL &", GRDOPTINTL="&graDoctorPtTimeINTL
sqlQuery = sqlQuery &", GRMAFTSCSHIP="&graMasterFlTimeSCHSHIP &", GRMAPTSCSHIP="&graMasterPtTimeSCHSHIP
sqlQuery = sqlQuery &", GRDOFTSCSHIP="&graDoctorFlTimeSCHSHIP &", GRDOPTSCSHIP="&graDoctorPtTimeSCHSHIP
sqlQuery = sqlQuery &", GRMAFTRA="&graMasterFlTimeRA &", GRMAPTRA="&graMasterPtTimeRA
sqlQuery = sqlQuery &", GRDOFTRA="&graDoctorFlTimeRA &", GRDOPTRA="&graDoctorPtTimeRA
sqlQuery = sqlQuery &", GRMOEQUIPINTERNALEndow="&resExpEQInternalEndow&", GRMOEQUIPINTERNALOther="&resExpEQInternalOther
sqlQuery = sqlQuery &", GRMOEQUIPGOV="&resExpEQGov&", GRMOEQUIPDOMMANU="&resExpEQDomManu&", GRMOEQUIPDOMUTIL="&resExpEQDomUtil
sqlQuery = sqlQuery &", GRMOEQUIPDOMOTHERIND="&resExpEQDomOtherInd&", GRMOEQUIPFOREIGN="&resExpEQForeign&", GRMOEQUIPTOTAL="&resExpEQTotal
sqlQuery = sqlQuery &", GRMONONEQINTERNALEndow="&resExpNONEQInternalEndow&", GRMONONEQINTERNALOther="&resExpNONEQInternalOther
sqlQuery = sqlQuery &", GRMONONEQGOV="&resExpNONEQGov&", GRMONONEQDOMMANU="&resExpNONEQDomManu&", GRMONONEQDOMUTIL="&resExpNONEQDomUtil
sqlQuery = sqlQuery &", GRMONONEQDOMOTHERIND="&resExpNONEQDomOtherInd&", GRMONONEQFOREIGN="&resExpNONEQForeign&", GRMONONEQTOTAL="&resExpNONEQTotal
sqlQuery = sqlQuery &" where GRREID="&reportID
Response.Write sqlQuery
Conn.Execute(sqlQuery)
else 'no record before
sqlQuery = "insert into tbl_IEEE_graduate(GRREID,GRMAFTENR,GRMAPTENR,GRDOFTENR,GRDOPTENR,GRMAFTSELF,GRMAPTSELF"
sqlQuery = sqlQuery &",GRDOFTSELF,GRDOPTSELF,GRMAFTDOM,GRMAPTDOM,GRDOFTDOM,GRDOPTDOM,GRMAFTGRA"
sqlQuery = sqlQuery &",GRMAPTGRA,GRDOFTGRA,GRDOPTGRA,GRMAPTTA,GRDOFTTA,GRDOPTTA,GRMAFTTA,GRMAFTINTL"
sqlQuery = sqlQuery &",GRMAPTINTL,GRDOFTINTL,GRDOPTINTL,GRMAFTSCSHIP,GRMAPTSCSHIP,GRDOFTSCSHIP"
sqlQuery = sqlQuery &",GRDOPTSCSHIP,GRMAFTRA,GRMAPTRA,GRDOFTRA,GRDOPTRA,GRMOEQUIPINTERNALENDOW"
sqlQuery = sqlQuery &",GRMOEQUIPINTERNALOTHER,GRMOEQUIPGOV,GRMOEQUIPDOMMANU,GRMOEQUIPDOMUTIL,GRMOEQUIPDOMOTHERIND"
sqlQuery = sqlQuery &",GRMOEQUIPFOREIGN,GRMOEQUIPTOTAL,GRMONONEQINTERNALENDOW,GRMONONEQINTERNALOTHER"
sqlQuery = sqlQuery &",GRMONONEQGOV,GRMONONEQDOMMANU,GRMONONEQDOMUTIL,GRMONONEQDOMOTHERIND"
sqlQuery = sqlQuery &",GRMONONEQFOREIGN,GRMONONEQTOTAL) values ("&reportID&","&graMasterFlTimeEnrolled
sqlQuery = sqlQuery &","&graMasterPtTimeEnrolled&","&graDoctorFlTimeEnrolled&","&graDoctorPtTimeEnrolled
sqlQuery = sqlQuery &","&graMasterFlTimeSELF&","&graMasterPtTimeSELF&","&graDoctorFlTimeSELF
sqlQuery = sqlQuery &","&graDoctorPtTimeSELF&","&graMasterFlTimeDOM &","&graMasterPtTimeDOM
sqlQuery = sqlQuery &","&graDoctorFlTimeDOM &","&graDoctorPtTimeDOM &","&graMasterFlTimeGrad
sqlQuery = sqlQuery &","&graMasterPtTimeGrad&","&graDoctorFlTimeGrad &","&graDoctorPtTimeGrad
sqlQuery = sqlQuery &","&graMasterPtTimeTA&","&graDoctorFlTimeTA
sqlQuery = sqlQuery &","&graDoctorPtTimeTA&","&graMasterFlTimeTA
sqlQuery = sqlQuery &","&graMasterFlTimeINTL &","&graMasterPtTimeINTL
sqlQuery = sqlQuery &","&graDoctorFlTimeINTL &","&graDoctorPtTimeINTL
sqlQuery = sqlQuery &","&graMasterFlTimeSCHSHIP &","&graMasterPtTimeSCHSHIP
sqlQuery = sqlQuery &","&graDoctorFlTimeSCHSHIP &","&graDoctorPtTimeSCHSHIP
sqlQuery = sqlQuery &","&graMasterFlTimeRA &","&graMasterPtTimeRA
sqlQuery = sqlQuery &","&graDoctorFlTimeRA &","&graDoctorPtTimeRA
sqlQuery = sqlQuery &","&resExpEQInternalEndow&","&resExpEQInternalOther
sqlQuery = sqlQuery &","&resExpEQGov&","&resExpEQDomManu&","&resExpEQDomUtil
sqlQuery = sqlQuery &","&resExpEQDomOtherInd&","&resExpEQForeign&","&resExpEQTotal
sqlQuery = sqlQuery &","&resExpNONEQInternalEndow&","&resExpNONEQInternalOther
sqlQuery = sqlQuery &","&resExpNONEQGov&","&resExpNONEQDomManu&","&resExpNONEQDomUtil
sqlQuery = sqlQuery &","&resExpNONEQDomOtherInd&","&resExpNONEQForeign&","&resExpNONEQTotal&")"
Response.Write sqlQuery
Conn.Execute(sqlQuery)
end if
'check if the report has been made on tbl_IEEE_reportArea
sqlQuery = "select * from tbl_IEEE_reportArea where RAREID="&reportID
'Response.Write sqlQuery
set RSbuffer = conn.Execute(sqlQuery)
'check if area string is not empty
if areaString <> ":" then
if RSbuffer.eof = false then 'there was a record before
reportAreaID = cint(rsbuffer("RAID"))
sqlQuery = "update tbl_IEEE_reportArea set RAAREA='"&areaString&"' where RAID="&reportAreaID
else
sqlQuery = "insert into tbl_IEEE_reportArea(RAREID,RAAREA) values ("&reportID&",'"&areaString&"')"
end if
end if
conn.Execute(sqlQuery)
'Response.Write sqlQuery
if decision = "move" then
goToPage = cint(Request.Form("goToPage"))
if goTOPage = 4 then
sqlQuery = "update tbl_IEEE_report set RETRACK = 4 where REID="&reportID
'Response.Write sqlQuery
conn.Execute(sqlQuery)
Response.Redirect("survey04pre.asp")
else if goToPage=3 then
Response.Redirect("survey03.asp") 'to save without exiting
else if goToPage =1 then
Response.Redirect("survey01.asp")
else if goToPage =2 then
Response.Redirect("survey02pre.asp")
else if goToPage =5 then
Response.Redirect("survey05.asp")
end if
end if
end if
end if
end if
else if decision = "exit" then
session("userID") = ""
session("reportID") = ""
response.redirect("surveyLogin.asp")
end if
end if
end if ' end of if decision <> "continue" and decision <> "exit" then
%>