<% Dim oFile, oFso, sText Set oFso = Server.CreateObject("Scripting.FileSystemObject") if (oFso.FileExists(Server.MapPath("../pohjat/HEADER.HTM")) = true) then Set oFile = oFso.OpenTextFile(Server.MapPath("../pohjat/HEADER.HTM"), 1) sText = oFile.readAll oFile.close set oFile = Nothing sText = Replace(sText, "", "", 1, -1) select case (sApp) case "5" 'perusaski sText = Replace(sText, "", "Poistuminen | Juurikansio", 1, -1) sText = Replace(sText, "", "

Haun tulos
Asiakirjat

", 1, -1) case "4" 'vhp sText = Replace(sText, "", "Poistuminen | Viranhaltijat", 1, -1) sText = Replace(sText, "", "

Haun tulos
Viranhaltijapäätökset

", 1, -1) case else 'kokous sText = Replace(sText, "", "Poistuminen | Toimielimet", 1, -1) sText = Replace(sText, "", "

Haun tulos
Kokousasiat

", 1, -1) end select sText = Replace(sText, "", " | Ohje", 1, -1) sText = Replace(sText, "", " | Avaa haku", 1, -1) response.write sText end if set oFso = Nothing %> <% if (len(sTxt) > 0) then sTxt = Replace(sTxt, "ä", "ä", 1, -1) sTxt = Replace(sTxt, "Ä", "Ä", 1, -1) sTxt = Replace(sTxt, "ö", "ö", 1, -1) sTxt = Replace(sTxt, "Ö", "Ö", 1, -1) sTxt = Replace(sTxt, "å", "å", 1, -1) sTxt = Replace(sTxt, "Å", "Å", 1, -1) end if dim sPvm2 if (len(sPvm) > 0) then sPvm2 = Mid(sPvm,7,4) + "-" + Mid(sPvm,4,2) + "-" + Mid(sPvm,1,2) end if dim oDB dim oXMLQuery set oDB = Server.CreateObject("DJulkaisu.clsXMLRequest") set oXMLQuery = Server.CreateObject("Microsoft.XMLDOM") oXMLQuery.LoadXML("") oXMLQuery.selectSingleNode("//Root").setAttribute("srv") = host oXMLQuery.selectSingleNode("//Root").setAttribute("action") = "Sel" oXMLQuery.selectSingleNode("//Root").setAttribute("db") = db oXMLQuery.selectSingleNode("//Root").setAttribute("uid") = uid oXMLQuery.selectSingleNode("//Root").setAttribute("pw") = pw oXMLQuery.selectSingleNode("//Root/DOCUMENT/APP").text = sApp oXMLQuery.selectSingleNode("//Root/DOCUMENT/TEL").text = sKas oXMLQuery.selectSingleNode("//Root/DOCUMENT/PVM").text = sPvm2 oXMLQuery.selectSingleNode("//Root/DOCUMENT/DIR").text = sDir oXMLQuery.selectSingleNode("//Root/DOCUMENT/TXT").text = sTxt oXMLQuery.selectSingleNode("//Root/DOCUMENT/KOH").text = sKoh oXMLQuery.selectSingleNode("//Root/DOCUMENT/JAR").text = sJar oXMLQuery.LoadXML(oDB.XMLRequest(oXMLQuery.xml)) dim iAlo dim iParillinen dim iLaskin dim iLaskin2 if (sAlo = "") then iAlo = 1 else iAlo = cint(sAlo) end if iParillinen = -1 iLaskin2 = 0 for iLaskin = iAlo to oXMLQuery.selectSingleNode("//Root").childNodes.length If (iParillinen > 0) then response.write "" else response.write "" end if sPvm2 = oXMLQuery.selectSingleNode("//Root").childNodes(iLaskin-1).getAttribute("PVM") sPvm2 = Mid(sPvm2,9,2) + "." + Mid(sPvm2,6,2) + "." + Mid(sPvm2,1,4) response.write "" response.write "" response.write "" iParillinen = iParillinen * -1 iLaskin2 = iLaskin2 + 1 if (iLaskin2 >= cint(sSiv)) then exit for end if next set oDB = nothing 'loytyko yhtaan if (iLaskin2 = 0) then response.write "" end if response.write "" 'oliko eka tulossivu if (iAlo = 1) then response.write "" else response.write "Seuraava sivu" end if set oXMLQuery = nothing %>
<% select case (sApp) case "5" 'perusaski response.write " Kansio/Pvm" case "4" 'vhp response.write " Viranhaltija/Pvm" case else 'kokous response.write " Toimielin/Kokous" end select %>    Otsikko
  " response.write oXMLQuery.selectSingleNode("//Root").childNodes(iLaskin-1).getAttribute("KASITTELIJA") response.write "
  " response.write sPvm2 response.write "		 " response.write oXMLQuery.selectSingleNode("//Root").childNodes(iLaskin-1).getAttribute("OTSIKKO") response.write "
  Ei asiakirjoja annetuilla ehdoilla
 

  Edellinen sivu" else response.write "

  Edellinen sivu" end if response.write " | " 'onko sivuja jaljella if (iLaskin < oXMLQuery.selectSingleNode("//Root").childNodes.length) then iAlo = iAlo + cint(sSiv) response.write "Seuraava sivu

©