Survey Administrator Login

<%@ Language=VBScript %> Survey Administrator Login <% dim login, loginFail dim conn dim RSbuffer dim sqlQuery 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

<% if loginFail = "yes" then %> Login failed <% else %> Administrator Login <% end if %> username password >>User login

<% else if login= "yes" then user = trim(Request.form("user")) pass = trim(Request.Form("pass")) sqlQuery = "select * from tbl_IEEE_USER where USUSERNAME='"&user&"' and USID in (select AUUSID from" sqlQuery = sqlQuery & " tbl_IEEE_approved_user where AUADMIN=1)" Response.Write sqlQuery&"
" set RSbuffer = conn.Execute(SQLQuery) if RSBuffer.eof = false then session("userID") = cint(RSbuffer("USID")) Response.Redirect("surveyAdmin.asp") else Response.Redirect("SurveyAdminLogin.asp?loginFail=yes") end if end if end if %>