bir siteden rss verilerini çekiyorum kod tam çalışıyor ancak istediğim bu siteden çektiğim verilerin linklerine tıkladığımda farklı pencerede açması mevcut pencerenin kapanmaması bu konuda yardımınızı istiyorum kodlar şöyle :
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "iso-8859-9" %>
<?xml version="1.0" encoding="iso-8859-9"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>
<%
Dim objXML
Dim objItemList
Dim objItem
Dim I
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.zaguda.net/rss/haber/genel.xml")
'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
' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description
Response.Write "<p>"
response.write "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("title").Text & "</a></b>"
response.write "<a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.childNodes(1).text & "</a>"
Response.Write "</p>"
Next
Set objItemList = Nothing
%>
</body>
</html>
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "iso-8859-9" %>
<?xml version="1.0" encoding="iso-8859-9"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>
<%
Dim objXML
Dim objItemList
Dim objItem
Dim I
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.zaguda.net/rss/haber/genel.xml")
'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
' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description
Response.Write "<p>"
response.write "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("title").Text & "</a></b>"
response.write "<a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.childNodes(1).text & "</a>"
Response.Write "</p>"
Next
Set objItemList = Nothing
%>
</body>
</html>