I use this so far, it's part of my Database Navigator (The file one is very similar, only it goes into directories , and so forth showing all the exe/ocx/dll versions)<br><br>Note how it calls itself, and processes a Form post<br><br><FONT FACE=monospace><br><%@ Language=VBScript %><br><HTML><br><HEAD><br> <Title>DataBase Navigator</Title><br> <Script Language="JavaScript"><br> <!--<br> function Go(thePath)<br> {<br> DSNFrm.Path.value = thePath;<br> DSNFrm.submit();<br> }<br> --><br> </Script><br></HEAD><br><BODY><br><Form name="DSNFrm" action="DSNNav.asp" method="post"><br> <input type="hidden" name="Path"><br></Form><br><%<br>set OU = Server.CreateObject("WsUtil.ODBCs"

<br>Dim KeyLoop<br><br>If not IsEmpty(Request.Form("Path"

) and Request.Form("Path"

<> "Root" then<br> Dim AllValue<br> AllValue = OU.getallValName(Request.Form("Path"

)<br> <br> If VarType(AllValue) = vbArray + vbVariant then<br> %><br> <INPUT type="button" value="Back" onclick="Go('Root')"><br> <Table border=1 width="75%" align=center><br> <TH align=center colspan=2 bgcolor=Black><Font color=White> <%=Request.Form("Path"

%> </Font></TH><br> <TR><br> <TD bgcolor=Black align=center><Font color=White> Setting </Font></TD><br> <TD bgcolor=Black align=center><Font color=White> Value </Font></TD><br> </TR><br> <%<br> For KeyLoop = 0 to UBound(AllValue)<br> %><br> <TR><br> <TD><%=AllValue(KeyLoop,0)%> </TD><br> <TD><%=AllValue(KeyLoop,1)%> </TD><br> </TR><br> <%<br> next<br> %></Table><% <br> end if<br>else<br> Dim AllDSN<br> AllDSN = OU.GetAllDSN<br> <br> If VarType(AllDSN) = vbArray + vbVariant then<br> %><br> <Table border=1 width="75%" align=center><br> <TH align=center colspan=2 bgcolor=Black><Font color=White> Root </Font></TH><br> <TR><br> <TD align=center bgcolor=Black><Font color=White> System DSN Name </Font></TD><br> <TD align=center bgcolor=Black><Font color=White> Driver </Font></TD><br> </TR><br> <%<br> For KeyLoop = 0 to UBound(AllDSN)<br> %><br> <TR><br> <TD onclick="Go('<%=AllDSN(KeyLoop,0)%>')"><%=AllDSN(KeyLoop, 0)%> </TD><br> <TD ><%=AllDSN(KeyLoop, 1)%> </TD><br> </TR><br> <%<br> next<br> %></Table><%<br> end if<br>end if<br>%><br></BODY><br></HTML><br></font><br><br> <p>Karl<br><a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a><br><a href=
</a><br>Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)