|
Content Linking List Box by Charles
Carroll
Here is a script that will turn the Content
Linking elements into a pull-down list so people can arbitrarily jump from one topic to
another....
filename=/learn/test/cljump.asp
<HTML><HEAD><TITLE>cljump.asp</TITLE></HEAD>
<body bgcolor="#FFFFFF">
<FORM ACTION="cljumprespond.asp">
<%
Set TL = Server.CreateObject ("MSWC.NextLink")
maxi= cint(TL.GetListCount("/learn/learn.txt"))
%>
<SELECT name="whichtopic">
<OPTION SELECTED VALUE="">Select a Topic...
<%for i=1 to maxi%>
<OPTION value=
<%=TL.GetNthURL("/learn/learn.txt",i)%>
>
<%
desc=TL.GetNthDescription("/learn/learn.txt",i)
if mid(desc,1,1)="*" then
desc=mid(desc,2)
else
desc=" " & desc
end if
%>
<%=desc%>
<%next%>
</SELECT> <INPUT VALUE="Jump to Lesson" TYPE=submit></FORM>
</BODY>
</HTML>
The script named cljumprespond.asp
that implements the jump looks like this:
filename=/learn/test/cljumprespond.asp
<%
response.redirect request.querystring("whichtopic")
%>
|