<% Function GetRemoteAddress() if request.servervariables("HTTP_X_FORWARDED_FOR") <> "" then ips = split(request.servervariables("HTTP_X_FORWARDED_FOR"), ",") GetRemoteAddress = ips(0) else GetRemoteAddress = request.servervariables("REMOTE_ADDR") end if end function %> <% WriteNoNavHeader "Internet & Society 2002 Facebook", "Internet & Society 2002 Facebook", "", "" %> Internet & Society 2002 Facebook <% IP = GetRemoteAddress if left(IP,8) <> "140.247." and left(IP,3) <> "18." and left(IP, 8) <> "128.103." and left(IP,6) <> "65.90." then response.write "Access denied!
" response.write "Access to this page is restricted to those on the Harvard and MIT networks. However, our systems could not verify your location. " response.write "If you believe you have received this message in error, please write to Ben Edelman. Be sure to mention error code '" & IP & "' for fastest assistance." response.write "" response.end else response.write "" & vbcrlf end if crit = "TRUE " if request.querystring("intstudenttypeid")<>"" then crit = crit & " AND tStudents.StudentTypeID = " & request.querystring("intstudenttypeid") end if if Ucase(request.querystring("boolWithEnhancements"))="CHECKED" or Ucase(request.querystring("boolWithEnhancements"))="ON" then crit = crit & " AND tStudentDetails.StudentDetailID Is Not Null" end if Set conn = Server.CreateObject("ADODB.Connection") dbfilename = "\\192.168.20.9\inetpub\\dbs\\facebook.mdb" conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfilename Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM tStudentDetails RIGHT JOIN (tStudents LEFT JOIN tStudentTypes ON tStudents.StudentTypeID = tStudentTypes.StudentTypeID) ON tStudentDetails.StudentIDLink = tStudents.ID " sql = sql & " WHERE (tStudents.boolActive=Yes) AND CourseID=1 AND " & crit sql = sql & " ORDER BY tStudents.txtlastn, tStudents.txtfirstn" ' response.write "
" & sql & "
" & vbcrlf rs.open sql, conn response.write "

Get to know your fellow students by browsing the list below.

" response.write "" & vbcrlf numstudents = 0 do while not rs.eof numstudents = numstudents + 1 response.write "" & vbcrlf picurl = "" if not isnull(rs("picBaseURL")) then select case rs("StudentTypeID") case 1 'HLS if Ucase(request.querystring("getfromserver"))="TRUE" then picurl = "http://roscoe.law.harvard.edu/students/images/" & LCase(rs("picBaseURL")) & ".jpg" else picurl = "pics/hls/" & LCase(rs("picBaseURL")) & ".jpg" end if end select end if if not isnull(rs("txtOverridePicURL")) and rs("txtOverridePicURL")<> "" then picurl = rs("txtOverridePicURL") end if if picurl = "" then picurl = "nopic.gif" response.write "" & vbcrlf rs.movenext loop if numstudents = 0 then response.write "" end if rs.close set rs = nothing conn.close set conn=nothing %>
" & rs("txtfirstn") & " " & rs("txtLastN") & "
" & vbcrlf response.write rs("StudentTypeDesc") & "

" & vbcrlf response.write "" f = rs("txtField") if not isnull(f) and f <> "" then response.write "Field/Focus: " & f & "
" & vbcrlf end if if not isnull(rs("txtBook")) and rs("txtBook") <> "" then response.write "Most recent book: " & rs("txtbook") & "
" & vbcrlf end if if not isnull(rs("txtMeal")) and rs("txtMeal") <> "" then response.write "Favorite meal: " & rs("txtmeal") & "
" & vbcrlf end if if not isnull(rs("txtQ")) and rs("txtQ") <> "" and not isnull(rs("txtA")) and rs("txtA") <> "" then response.write "" & rs("txtQ") & " (custom): " & rs("txtA") & "
" & vbcrlf end if if not isnull(rs("txtURL")) and rs("txtURL") <> "" then response.write "Personal URL: " & rs("txtURL") & "
" & vbcrlf end if if not isnull(rs("txtInterests")) and rs("txtInterests") <> "" then response.write "
Other Interests: " & rs("txtInterests") & "
" & vbcrlf end if f = rs("StudentDetailID") if isnull(f) then response.write "" response.write "(If you are " & rs("txtfirstn") & ", you may enhance your listing.)" end if response.write "
No records found that meet your search criteria. Please try again.

Some pictures are provided to us through the Harvard Law School and others are provided by the Harvard University Identification Office. Your picture could be missing because you're not an HLS or HU student, because you requested a "privacy block" on your picture, or because of an error in our database or in the database of the HLS Registar's Office. If you'd prefer to include an alternative picture, or no picture at all, click on your "enhance your listing" link. Note that access to this page is limited to Harvard and MIT users.

Other questions? Read the FAQ. Technical issues (wrong email address, wrong picture, etc.)? Talk to Ben Edelman.

<% WriteStandardFooter %>