my code looks like this:
------
While not rsFiles.EOF
file = rsFiles("FileName"

rtn = InStr(1,file, "."

if rtn > 0 then
extension = Right(file, (Len(file)-rtn+1))
end if
for l=0 to 49
if strComp(Cstr(extArray(l)),extension,1)=0 then
exit for
else
extArray(arrayinc) = extension
arrayinc= arrayinc + 1
exit for
end if
next
rsFiles.MoveNext
wend
for l=0 to 49
%>
<tr><TD BGCOLOR="#99FF99"> <% Response.write extArray(l) %></TD></TR>
<%
next
-------------------------
Currently all the extensions are shown in the array, thats why I think my string comparision doesn't work.
If anyone can see a probelm could they plz tell me whats wrong. The code is meant to swift out all the duplicate extensions and leave only distinct extenstions in the array.
Thanks