|
|
Site Directory
<%
dim nextlink, count, intcount, length
set nextlink = Server.CreateObject("MSWC.NextLink")
count = nextlink.GetListCount("links.txt")
for intcount = 1 to count
dim link,txtdes,mySeparator,PositionSeparator,Title
link = "http://" & nextlink.GetNthURL ("links.txt",intcount)
txtdes = nextlink.GetNthDescription("links.txt",intcount)
mySeparator = "#"
length = len(txtdes)
If InStr(txtdes, mySeparator) Then
PositionSeparator = InStr(1, txtdes, mySeparator)
Title = mid(txtdes, PositionSeparator + 1 , length - PositionSeparator)
Else
Title = txtdes
End If
dim instring,linktext
instring = InStr(txtdes, mySeparator)
linktext = left(txtdes, instring-1)
%>
-
<%=linktext%>
<%=Title%>
<%=link%>
<% next %>
|
|
|
