Bo udtrykte præcist:
> Fandt dette script her på siden og har justeret det til mit brug.
> Jeg vil dog gerne når man trykker på linket, at der åbnes i et
> nyt vindue. I gamle dage hed det target="_new", mne jeg kan ikke
> få noget sat ind så det lykkes.
> En venlig sjæl der vil hjælpe ?
>
> <%
> '
> ****************************************************************
> ' Dette script kan benyttes gratis, frit, og uden at indhente
> tilladelse først
> ' - dog må selve kildekoden ikke distribueres på andre sites end
> HTML.dk
> ' Kontakt HTML.dk hvis du er i tvivl
> '
> ****************************************************************
>
> ' Adressen på det RSS-feed der skal loades
> extURL = "
http://www.bt.dk/bt/seneste/rss"
>
> ' 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
>
> end if
> next
>
>
>
> ' Å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 & "#%#"
> 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(arrItemTitle) - 21
> response.write "<br>"
> response.write "<a href='" & arrItemLink(a) & "'>" &
> arrItemTitle(a) &"</a>"
> ' Description udskrives hvis den eksisterer
> if strItemDescription <> "" then
> response.write "<br />" & arrItemDescription(a)
> end if
> response.write "</br>"
> next
> response.write "</br>"
>
> ' Vi rydder op
> set channelNodes = nothing
> set itemNodes = nothing
>
> End If
>
> %>
I moderne tider, venstreklikker man for at åbne i samme fane, og
højreklikker for at åbne i en ny fane. target er til framesets - lidt
afhængig af doctype.
Alternativet er at åbne et nyt vindue med javascript. Men selv dette
kan brugeren (heldigvis) blokere for, eller selv betemme hvordan skal
foregå.
Birger
--
http://varmeretter.dk - billig, sund og hurtig mad
http://bbsorensen.dk