<%
Option Explicit
Dim MyCL
Dim TheCount
Dim I
Set MyCL = Server.CreateObject("MSWC.NextLink")
TheCount = MyCL.GetListCount("CLList.txt")
%>
