<% Dim oFile, oFso, sText, sFilename dim bOK 'if (strlen($filePath) == 0) { print ("Hakupalvelin-virhe: Ympäristöasetuksia ei löydy."); return; } 'if (strlen($act) == 0) { print ("Hakupalvelin-virhe: Ympäristömuuttujia ei löydy."); return; } bOK = true sFilename = filePath + "CONTROL.DYN" Set oFso = Server.CreateObject("Scripting.FileSystemObject") if (oFso.FileExists(sFilename) = false) then response.write "Hakupalvelin-virhe: Kontrolli-tiedostoa ei löydy. " + sFilename bOK = false end if if (bOK = true) then 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") = "Upd" oXMLQuery.selectSingleNode("//Root").setAttribute("db") = Db oXMLQuery.selectSingleNode("//Root").setAttribute("uid") = uid oXMLQuery.selectSingleNode("//Root").setAttribute("pw") = pw select case (sAct) case "0" oXMLQuery.selectSingleNode("//Root/DOCUMENT/ACT").Text = sAct case "32" oXMLQuery.selectSingleNode("//Root/DOCUMENT/ACT").Text = sAct oXMLQuery.selectSingleNode("//Root/DOCUMENT/APP").Text = sApp oXMLQuery.selectSingleNode("//Root/DOCUMENT/TIE").Text = sTie case "31" oXMLQuery.selectSingleNode("//Root/DOCUMENT/ACT").Text = sAct oXMLQuery.selectSingleNode("//Root/DOCUMENT/APP").Text = sApp oXMLQuery.selectSingleNode("//Root/DOCUMENT/TEL").Text = sKas oXMLQuery.selectSingleNode("//Root/DOCUMENT/PVM").Text = sPvm oXMLQuery.selectSingleNode("//Root/DOCUMENT/OTS").Text = sOts oXMLQuery.selectSingleNode("//Root/DOCUMENT/TIE").Text = sTie sFilename = filePath + sTie if (oFso.FileExists(sFilename) = false) then response.write "Hakupalvelin-virhe: Siirto-tiedostoa ei voi lukea. " + sFilename bOK = false else Set oFile = oFso.OpenTextFile(sFilename, 1) sText = oFile.readAll oFile.close set oFile = Nothing 'set oFso = Nothing oXMLQuery.selectSingleNode("//Root/DOCUMENT/TXT").Text = sText end if end select if (bOK = true) then oXMLQuery.loadXML (oDB.XMLRequest(oXMLQuery.xml)) if (InStr(oXMLQuery.xml,"STATUS=""OK""") = 0) then response.write "Hakupalvelin-virhe." else response.write "DYNASTIAOK / UPDATE" end if end if end if set oFso = Nothing %>