NxSQL = "SELECT distinct nombre, id FROM rcursos"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open NxSQL, oConn,3,1
Do While not Rs.EOF
Response.Write ("<Font Face = ""Arial"" size = ""2"">"&TRIM(Rs("nombre")))
Response.Write ("<BR>")
Rs.Movenext
Loop
