<%@ 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 "ENGR300StudentsWinter2002", "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 %>

ENGR300 Student Survey

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

Login with your Student ID#

<%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 %>