Liste over notater fra kirkebøger.
Alle filerne er i TIF-format, så du skal have en læse installeret.
Ved at højreklikke på linket, kan du vælge "Gem destination som..."
for at gemme filen på din computer.
Kirkebogen står i filnavnet (linket):
<% strPathInfo = Request.ServerVariables("PATH_INFO") strPhysicalPath = Server.MapPath(strPathInfo) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Set objFolder = objFile.ParentFolder Set objFolderContents = objFolder.Files dim strReplace dim strText For Each objFileItem in objFolderContents strText = objFileItem.Name ' tjek om filnavn starter med årstal if right(strText,"3") = "tif" then ' Ja, det gør det så udskriv: Response.write "" Response.Write(strText & "