<% if (Request.ServerVariables("QUERY_STRING") = "") then %>

GetListCount

9

3

nlmd3.asp

description3

description2

nlmd2.asp

nlmd3.asp

description3

 <% else %> <% set obj = Server.CreateObject("MSWC.NextLink") %>

<% =obj.GetListCount("/smoke/nextlink.txt") %>

<% =obj.GetListIndex("/smoke/nextlink.txt") %>

<% =obj.GetNextURL("/smoke/nextlink.txt") %>

<% =obj.GetNextDescription("/smoke/nextlink.txt") %>

<% =obj.GetPreviousDescription("/smoke/nextlink.txt") %>

<% =obj.GetPreviousURL("/smoke/nextlink.txt") %>

<% =obj.GetNthURL("/smoke/nextlink.txt", 4) %>

<% =obj.GetNthDescription("/smoke/nextlink.txt", 4) %>

 <% end if %>