ENGR300 Student Survey

<%@ Language=VBScript %> ENGR300 Student Survey

ENGR 300 - Societal Issues in Technology

Instructor: Dr. Neil R. Quinn Jr.
<% set LogonPassword = Request.Form("LogonPassword") If Len(LogonPassword) > 0 then 'Clean data LogonPassword = replace(LogonPassword,"'","") ' response.write Logon_Name & "
" Set DB = Server.CreateObject("ADODB.connection") DB.Open "ENGR300Students", "Engr300", "engr300" SearchString = "SELECT * FROM Students WHERE (StudentID = " & LogonPassword & ")" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) session("StudentID") = 0 while not DB_Results.eof session("StudentID") = DB_Results("StudentID") session("FirstName") = DB_Results("FirstName") session("LastName") = DB_Results("LastName") DB_Results.MoveNext wend if session("StudentID") = 0 then Session.Timeout = 15 LogonPassword="" Response.redirect ("StudentSurvey.asp") end if else session("StudentID") = 0 LogonPassword="" end if %>

<%If Len(LogonPassword) = 0 then %>

<% end if %> <%If Len(LogonPassword) = 0 then %> <% end if %>

<%If session("StudentID") > 0 then ' allow only one logon per session LogonPassword="" GetStudents = "SELECT * FROM Students WHERE StudentID=" & session("StudentID") ' Response.Write GetStudents & "
" Set DB_Results = DB.Execute(GetStudents) %>

" id="StudentEntry" method="post" name="FrontPage_Form2">

First Name	<%=DB_Results("FirstName")%>
Last Name	<%=DB_Results("LastName")%>
What is your Age?	">
What is your preferred E-Mail address?	">
Grade Level
Major	">
College
Place of Work	">
Type of work you are engaged in	">
Type of industry you work in	">
Where are you from? (Country, state, town)	">
What is your native language?	">
English Fluency
Web Page Experience
What single area of Technology would you like to see covered?	">

<% end if %>