<!-- #include file = "mssql.connect/connect.asp" -->
<%
Dim sql,rec,mail
sql = "SELECT DISTINCT of_email AS of_email,o.of_id FROM officer_new AS o INNER JOIN tbstatus AS s ON o.of_id=s.of_id WHERE (of_email <> '') AND position = '5' ORDER BY of_email ASC"
Set rec=Server.CreateObject("ADODB.Recordset")
rec.open sql,con
While Not rec.EOF
'Response.write (rec.fields("of_email").value)
Response.Write (rec.fields("of_email").value)
Response.write ("<br>")
rec.movenext
Wend
%>