Xml

Svar på alla dina frågor är jajemen.
Gör det själv i mitt projekt som snart är 1½ år gammalt.

Mvh,

Toppen jue!

Jag tycker att det är konstigt att ingen fråga har ställts om XML här i VB-forumet än... Jag sökte o sökte, men inte fan hittade jag nånting

Ett projekt på 1½ år? Får man fråga vad projektet handlar om då? Du kanske är webmaster förresten, och inte bara utvecklar en applikation och går vidare sen?

Jaja, jag ska sluta fråga! Tack för det snabba svaret

Well, det är löpande utveckling av en e-handelsapplikation. Komponenter, MSXML3, lite asp (så lite som möjligt) och överst ett lager xml-xsl. Skojsigt som attans faktiskt.

Webmaster? Usch, nej.
Jag är systemutvecklare med e-handel som fokus, men jag jobbar endast med interna projekt, vilket har inneburit ett och samma webbprojekt sedan förra våren.

Mvh,

Intressant! Det är sånt som är kul ju!

Det var det jag tänkte; @nders som webmaster? Nej, nej...

Vilket företag arbetar du åt?

Red} Ah, såg det nu... Scribona, va?

Red_2} Eller, förresten, nej? Varför har du en länk till scribona.no i din profil eg.?

Eller, förresten, jo.

Jag jobbar åt Scribona, fast mitt fokus ligger helt på den norska marknaden. www.scribona.no är min lilla baby, och den rör man inte ostraffat.

Den användes tidigare i Sverige också, men inte nu längre.

(Jag sitter alltså i Sverige och jobbar åt Mette-Marit.)

Mvh,

Där ser man

Nu är det ju så att jag inte lyckas med det här med XMLen... Vet inte vad jag gör för fel?

Det är möjligt att det är nånting när jag dimmar mina olika objekt, sätter de flesta till DOMDocument jue

Public Sub Log(ByVal strLogFile As String, ByVal strError As String)
    On Error Resume Next
    
    Dim objXML As MSXML.DOMDocument
    Dim objRoot As MSXML.DOMDocument
    Dim objNew As MSXML.DOMDocument
    Dim objEvent As MSXML.DOMDocument
    Dim bIsLoaded As Boolean
    
    Set objXML = New MSXML.DOMDocument
    objXML.async = False
    bIsLoaded = objXML.Load(strLogFile)
    
    If bIsLoaded Then
        Set objRoot = objXML.documentElement
    Else
        Set objRoot = objXML.createElement("IntranetLog")
        objXML.appendChild (objRoot)
    End If
    
    Set objNew = objXML.createElement("Event")
    
    Set objEvent = objXML.createElement("File")
    objEvent.Text = objRequest.ServerVariables("SCRIPT_NAME")
    objNew.appendChild (objEvent)
    
    Set objEvent = objXML.createElement("Date")
    objEvent.Text = Now()
    objNew.appendChild (objEvent)
    
    Set objEvent = objXML.createElement("Error")
    objEvent.Text = strError
    objNew.appendChild (objEvent)
    
    objRoot.appendChild (objNew)
    
    If Not bIsLoaded Then
        Dim objPI As MSXML.IXMLDOMProcessingInstruction
        Set objPI = objXML.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
        
        objXML.insertBefore objPI, objXML.childNodes(0)
        
        Set objPI = Nothing
    End If
    
    objXML.Save (strLogFile)
    
    Set objEvent = Nothing
    Set objNew = Nothing
    Set objRoot = Nothing
    Set objXML = Nothing
    
    If Err Then
        With objResponse
            .Clear
            .Write "<b>Error while writing logfile " & strLogFile & "</b><br>"
            .Write Err.Description
            .End
        End With
    End If
End Sub

Något uppenbart fel där?

Det är möjligt att det är nånting när jag dimmar mina olika objekt, sätter de flesta till DOMDocument jue

Det är möjligt.
Ditt dokument skall vara DOMDocument, men dina element skall vara MSXML2.IXMLDOMElement.

Mvh,

Och du, ta bort on error resume next, så du kan få felmeddelanden. Som jag kan få se.

Mvh,

Aah! Där har vi nog problemet... IXMLDOMElement alltså

Men jag fångar väl mina errors med If Err Then, eller hur? För jag får ju ut felmeddelanden

Det löd nånting med property not set, eller likande. Kommer inte ihåg i huvudet, men det lät som att det hade att göra med typen av variabeln

Tack!

Fortfarande samma fel, trots att jag har ändrat deklarationen...

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Object doesn't support this property or method

Finns det inget sätt att ta reda på vilken rad felet uppstår på?