<% Function ShowFileList(folderspec) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc If Lcase(Right(f1.name,4)) = ".doc" Then URL = Replace(Server.URLEncode(f1.name),"+","%20") DocName = Left(f1.name, Len(f1.name) - 4) Response.Write "  " & DocName & "
" End If Next End Function %>
 
 


 

Sångtexter

Nedan finner du mina publicerade sångtexter i Microsoft Word format (.doc):

   

<%ShowFileList "."%>

...full som en djävla kastrull!!

 

För musik och info till respektive text, se under musik.