The Montessori School of Yakima

Class Roster

<% Dim objConn, objRS, objRSZip, strSQL Dim strEmail, strName, strDomain set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("/data/msy.mdb") & ";" objConn.Open set objRS=Server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM Roster ORDER by Last, first asc" objRS.Open strSQL, objConn, 3, 3 set objRSZip=Server.CreateObject("ADODB.Recordset") %> <% While NOT objRS.EOF %> ") objRSZip.Close Else Response.Write("No address available.") End If %> <% objRS.MoveNext() Wend objRS.Close() Set objRS = Nothing %>

<%=(objRS("LAST"))%>, <%=(objRS("FIRST"))%>

<%=(objRS("PARENTS"))%>

<%=(objRS("PHONE"))%>

<% If len(trim(objRS("address"))) <> 0 Then Response.Write(objRS("ADDRESS") & " ") strSQL="SELECT * FROM Zipcodes WHERE zip=""" & objRS("zip") & """" objRSZip.Open strSQL, objConn, 3, 3 Response.Write(objRSZip("City") & " " & objRSZip("State") & " " & objRS("zip") & "

<% strEmail = trim(objRS("EMAIL")) if len(strEmail) <> 0 Then strName = left(strEmail, instr(strEmail, "@") - 1) strDomain = right(strEmail, len(strEmail) - instr(strEmail, "@")) Response.Write("" & strName & " (at) " & strDomain & "") Else Response.Write("No email address available.") End If %>

<%=(objRS("TEACHER"))%>