home >> missing classmates
	We are still missing a number of classmates. If you know the whereabouts of any of these people, please drop us a line so we can track them down and get them off this list. <% 'Declare variables DIM objConn,objRec, color, strText, strDate, strStatus, strName Const DatabasePath = "Data Source=//nawinfs03/home/users/web/b1585/rh.mhs86/database/mhs86.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Set objConn = Server.CreateObject("ADODB.Connection") 'Connect to the toolkit datasource objConn.Open DatabasePath Set objRec = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT fname, lname, mname FROM Roster WHERE LOST = Yes;" 'Query issues for the selected market objRec.Open strSQL, objConn %> <% Dim intCounter intCounter = 0 do until objRec.EOF %> <% IF intCounter = 3 THEN Response.Write("") intCounter = 0 Response.Write("") ELSE intCounter = intCounter + 1 END IF objRec.movenext loop%> <%response.write objRec("fname")%> <%response.write objRec("lname")%> <% objRec.close objConn.close set objRec = nothing set objConn = nothing %>
	Please see the mhs86.com Privacy Policy.