<%
While NOT objRS.EOF
%>
| <%=(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") & " | ")
objRSZip.Close
Else
Response.Write("No address available.")
End If
%>
<%
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"))%> |
<%
objRS.MoveNext()
Wend
%>
