Välkommen till Horisont Kajak. Oss hittar du på Värmdö, knappt 4 mil från Stockholms Centrum. Paddla från oss, och du är bara ett stenkast från Stockholms förmodligen finaste paddelvatten. Här kan du hyra eller köpa kajak, följa med på utfärd eller delta i någon av våra kurser.
Interna länkar:
<%
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
'Put the name of the RSS file which you need to parse
xmlDoc.load(rssurl)
'Checks for Parsing error, If not parse corrrectly displays error
IF (xmlDoc.parseError.errorCode <> 0) THEN
Response.Write "XML error: " & xmlDoc.parseError.reason
ELSE
'Select Item nodes
SET itemNodes = xmlDoc.selectNodes("//item[@type='internal']/*")
'Response.Write itemNodes(0)
CountNodes = 0
FOR EACH item IN itemNodes
IF item.tagName = "title" THEN
strItemTitle = strItemTitle & item.text & "#%#"
CountNodes = CountNodes + 1
ELSEIF item.tagName = "link" THEN
strItemLink = strItemLink & item.text & "#%#"
END IF
NEXT
'Response.Write CountNodes
IF CountNodes <> 0 THEN
arrItemTitle = split(strItemTitle,"#%#")
arrItemLink = split(strItemLink,"#%#")
Response.Write "
"
FOR a = 0 TO UBound(arrItemTitle) - 1
Response.Write "
<%
FOR Channel = 0 TO 1
IF Channel = 0 THEN
XMLNode = "vip"
CategoryName = "Externa länkar"
ELSEIF Channel = 1 THEN
XMLNode = "category"
CategoryName = "Kategorilänkar"
END IF
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
'Put the name of the RSS file which you need to parse
xmlDoc.load(rssurl)
'Checks for Parsing error, If not parse corrrectly displays error
If (xmlDoc.parseError.errorCode <> 0) then
Response.Write "XML error: " & xmlDoc.parseError.reason
Else
'Select Item nodes
set itemNodes = xmlDoc.selectNodes("//item[@type='" &XMLNode &"']/*")
'Loops thorugh the end of file and stores each values in a array
For each item in itemNodes
if item.tagName = "title" then
strItemTitle = strItemTitle & item.text & "#%#"
elseif item.tagName = "link" then
strItemLink = strItemLink & item.text & "#%#"
elseif item.tagName = "description" then
strItemDescription = strItemDescription & item.text & "#%#"
elseif item.tagName = "comments" then
strItemComments = strItemComments & item.text & "#%#"
end if
next
'If the node has a special character that would be splitted and array would be displayed here
arrItemTitle = split(strItemTitle,"#%#")
arrItemLink = split(strItemLink,"#%#")
arrItemDescription = split(strItemDescription,"#%#")
arrItemComments = split(strItemComments, "#%#")
Response.Write "