%
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
%>
<%
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 |
|
|
|
|
|
|
|
<%
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 oXMLQuery.selectSingleNode("//Root").childNodes(iLaskin-1).getAttribute("KASITTELIJA")
response.write " "
response.write sPvm2
response.write " | "
response.write " | "
response.write ""
response.write oXMLQuery.selectSingleNode("//Root").childNodes(iLaskin-1).getAttribute("OTSIKKO")
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 "
Ei asiakirjoja annetuilla ehdoilla | "
end if
response.write "
|
"
'oliko eka tulossivu
if (iAlo = 1) then
response.write " 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 | "
else
response.write "Seuraava sivu"
end if
set oXMLQuery = nothing
%>
©