Не стандартный вывод таблицы ASP (SQLServer)

<%Dim Conn, RS, strSQL, strOut
strOut1="Provider=SQLOLEDB.1; Source=ESETOV;Workstation ID=ESETOV;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strOut1
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT d.dept, u.fio, u.tel, u.mail  FROM s_users as u inner join s_dept as d on u.dept=d.id order by d.dept"
RS.Open strSQL, Conn
RS.MoveFirst
strOut = strOut & "<center><P><font color=red><h2>Список пользователей Call Register<h2></font></center>"
strOut = strOut & "<hr>"
strOut = strOut & "<TABLE BORDER=""1"" width=""100%"">"
strOut = strOut & "<TR><TH>Департамент / Отдел</TH><TH>ФИО</TH><TH>Телефон</TH><TH>E-мail</TH></TR>"
Do While Not RS.EOF
    strOut = strOut & "<TR>"
    strOut = strOut & "<TD width=""40%"">" & RS.Fields("dept") & "</TD>"
    strOut = strOut & "<TD width=""30%"">" & RS.Fields("fio") & "</TD>"
    strOut = strOut & "<TD width=""10%"">" & RS.Fields("tel") & "</TD>"
    strOut = strOut & "<TD width=""20%""> <a href=mailto:"& RS.Fields("mail") &" >" & RS.Fields("mail") & "</a></TD>"
    strOut = strOut & "</TR>"
RS.MoveNext
Loop
strOut = strOut & "</TABLE>"
strOut = strOut & "<HR>"
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Write strOut
%>