Metropoli BBS - channels.asp

VIEWER: channels.asp MODE: TEXT (ASCII)

<%@ LANGUAGE="VBSCRIPT" %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=utf-8">
<BASE TARGET="TRANSCRIPT">
</HEAD>
<BODY>


<%
Dim fs, f, f1, fc
Dim strTranscriptPath
Dim strChannelName

L_ChannnelsAvailable_StaticText	= "Channels Available:"


response.write "<P><B>" + L_ChannnelsAvailable_StaticText + "</B></P>" + vbCrLf


strTranscriptPath = Server.MapPath(".")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(strTranscriptpath)
Set fc = f.SubFolders

For Each f1 in fc 	
	strChannelName = Server.URLEncode(f1.name)
	response.write "  <A HREF=Transcript.Asp?CHNL="+ strChannelName + ">" + f1.name + "</A><BR>" + vbCrLf
Next


%>
<!-- Insert HTML here -->

</BODY>
</HTML>

[ RETURN TO DIRECTORY ]