<%@ Language=VBScript %> COEN120 Student Survey

COEN 120 - Real Time Computing

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 "COEN120StudentsSpring2004", "COEN120Students", "COEN120Students" 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 %>

COEN120 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 Birthday(yyyy/mm/dd)? 

">

 What is your Engineering Login Name? 

">

 What is your preferred E-Mail address? 

">

 Grade Level 

 Lab Section 

 Final Section 

 Major 

">

 College 

 High School? 

">

 Religion? 

">

 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 desired topic area of Real Time Systems would you like to see covered? 

">

<% end if %>