visning af kolonner

Jeg fik den til at vise kolonnerne, men der er flere af kolonnerne der blive vist flere gange:
her kan i se hvad jeg mener
http://www.sendit.dk/asp/eksperten/vis.asp

og her kommer koden:
<%
    databasenavn = \"navnet.mdb\"
    tabelnavn = \"nick\"
    scriptname = Request(\"scriptname\")
   
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(databasenavn)
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open strDSN
   
    Set Rs = Conn.OpenSchema(4)

Do while not rs.eof
    if not lcase(Rs(\"COLUMN_NAME\")) = \"data\" then
        ColumnName = LCase(Rs(\"COLUMN_NAME\"))
        ColumnHasDefault = CInt(Rs(\"COLUMN_HASDEFAULT\"))
        IsNullable = CInt(Rs(\"IS_NULLABLE\"))
        DataType = CInt(Rs(\"DATA_TYPE\"))
        FieldLength = CLng(\"0\" & Rs(\"CHARACTER_MAXIMUM_LENGTH\"))
        response.write ColumnName & \"<br>\"
        \'response.write DataType & \"<br>\"
        \'response.write FieldLength & \"<br>\"
        response.write \"<br>\"
    end if
    rs.movenext
loop
%>