For an overview on Blogger Label Lists read
Blogger Label List for FTP Accounts (ASP.NET). Below is the code used to create a Label List using Classic ASP with VBScript.
Modify the first line to point to your label folder. Then correct the spelling of
bl0gger-labels. It is purposely misspelled as to not throw off the count on this page. Save this code with a .asp file extension and then use a server-side include to place in onto your page template.
'-- add your label directory here
labelDir = Server.MapPath("/myblog/labels/")
'-- Check for Directory
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(labelDir) Then
Response.Write "<ul>"
Set labelFolder = FSO.GetFolder(labelDir)
Set labelBlogs = labelFolder.Files
For each label in labelBlogs
Set labelFile = FSO.GetFile(label)
Set labelStream = labelFile.OpenAsTextStream (1, -2)
iLabelCount = 0
'-- Read the file line by line
Do While Not labelStream.AtEndOfStream
Line = labelStream.readline
LineCount = Sgn(InStr(Line,"bl0gger-labels"))
iLabelCount = iLabelCount + LineCount
Loop
Response.Write "<li>" + Replace(labelFile.Name,".asp","") & " (" + CSTR(iLabelCount) & ")</li>"
Set labelStream = nothing
Set labelFile = nothing
Next
Response.Write "</ul>"
Else
Response.Write "<p>No labels in folder: " & labelDir & "</p>"
End If
Set FSO = nothing
Below is an example of using a server-side include inside a Classic ASP page.
<div id="divLabelList">
<!--#include virtual="/inc/theme.asp"-->
</div>
Back in the day,
Ev would have been proud of me.
Labels: ASP, Blogger, VBscript