Bo formulerede spørgsmålet:
> Har lånt dette script fra denne side, og har forsøgt at ligge
> target blank ind efter jeg har tilrettet scriptet til mit behov,
> men det lykkedes ikke.
>
> Tro jeg har prøvet alt - undtagen det rigtige.
>
> Er der en venligsjæl der vil hjælpe ?
>
> ' RSS-feedet loades
> set xmlDoc = createObject("Msxml.DOMDocument")
> xmlDoc.async = false
> xmlDoc.setProperty "ServerHTTPRequest", true
> xmlDoc.load(extURL)
>
> ' Check at RSS-feedet er loadet korrekt
> If (xmlDoc.parseError.errorCode <> 0) then
> ' Udskriv eventuelle fejl (for nem fejlretning)
> Response.Write "XML error: " & xmlDoc.parseError.reason
> ' Fortsæt hvis alt er ok
> Else
>
> ' Åbn elementet <channel>
> set channelNodes = xmlDoc.selectNodes("//channel/*")
>
> for each entry in channelNodes
> ' De tre obligatoriske elementer i channel lægges i variable
> if entry.tagName = "title" then
> strChannelTitle = entry.text
> elseif entry.tagName = "description" then
> strChannelDescription = entry.text
> elseif entry.tagName = "link" then
> strChannelLink = entry.text
> end if
> next
>
> ' De tre obligatoriske elementer i channel udskrives
> response.write ""
> response.write ""
> response.write ""
> response.write ""
>
> ' Åbn elementerne <item>
> set itemNodes = xmlDoc.selectNodes("//item/*")
>
> For each item in itemNodes
> ' Elementerne i channel lægges i variable med #%# som
> adskillelse
> 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 & "#%#"
> end if
> next
>
> ' Elementerne i channel splittes i arrays
> arrItemTitle = split(strItemTitle,"#%#")
> arrItemLink = split(strItemLink,"#%#")
> arrItemDescription = split(strItemDescription,"#%#")
>
> ' Elementerne i channel udskrives
> response.write ""
> for a = 0 to UBound(arrItemDescription) - 16
> response.write ""
> response.write ""
> ' Description udskrives hvis den eksisterer
> if strItemDescription <> "" then
> response.write "<br />" & arrItemDescription(a)
> end if
> response.write "</li>"
> next
> response.write ""
>
> ' Vi rydder op
> set channelNodes = nothing
> set itemNodes = nothing
>
> End If
Det er bedre at lade brugeren vælge selv om der skal åbnes nyt vindue
eller ikke.
Hvorfor vil du bestemme hvordan brugeren skal browse?
Birger
--
http://varmeretter.dk - billig, sund og hurtig mad
http://bbsorensen.dk