XML feed
HejJeg har nedenstående kode, hvor jeg henter mine twitter updates fra en xml feed.
Men, jeg da jeg nogengange opdaterer via min iPhone og sender min loaction med objItem.childNodes(5).text , vil jeg have den udskrevet også.
Problemet er, at hvis jeg opdaterer min twitter via mn pc sender jeg naturligvis ikke min position med, og derfor ved de updates findes objItem.childNodes(5).text slet ikke.
Hvorda laver jeg et tjek om objItem.childNodes(5).text findes eller ikke.. en if sætning fejler for mig.
Heeelp :)
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("https://twitter.com/statuses/user_timeline/24531337.rss")
'objXML.Load(Server.MapPath("megatokyo.xml"))
If objXML.parseError.errorCode <> 0 Then
'Response.Write "<pre>" & vbCrLf
'Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
'Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
'Response.Write "<strong>Text:</strong> " _
' & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
'Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For Each objItem In objItemList
strHTML = strHTML & "<li>"
strHTML = strHTML & "<p>" & indlaeg(twitter(objItem.childNodes(1).text)) & "</p>" & vbCrLf
strHTML = strHTML & "<p class=""right"">" & feeddate(objItem.childNodes(2).text) & "</p>" & vbCrLf
if not objItem.childNodes(5).text = "" then
strHTML = strHTML & "<p>Child:" & objItem.childNodes(5).text & "</p>" & vbCrLf
end if
strHTML = strHTML & "</li>" & vbCrLf
Next
Set objItemList = Nothing