Jag har en sida som via ett script listar alla filer i mappen (nyhetsbrev) Problemet är att filnamnen inte blir länkade. Någon som vet hur det skall ordnas? Här är den kod jag har.Listning av filer från en mapp skall länkas
<%
'Listar alla filer i mappan nyhetsbrev
Dim objFSO, objFile, objFolder, strwebPath, strTest
strwebpath = "nyhetsbrev"
strTest = "http://www.vardnu.nu"
Set objFSO=_
Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=_
objFSO.GetFolder(Server.MapPath("..\..\nyhetsbrev"))
Response.Write "<b>"&"Lista över nyhetsbrev" &"</b>" &"<P>"
For Each objFile in objFolder.Files
Dim filext: filext = Len(objFSO.GetExtensionName(objFile.name)) + 1
Dim fillangd: fillangd = Len(objFile.name)
'Skriver ut filnamnen utan filändelsen
Response.Write Left((objFile.name),fillangd-filext) & "<br>"
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>