Latest News
360 Arcade Model to Get Internal Memory
Pioneer Pioneers 400 GB Disc
Ghostbusters: The Video Game Coming in June?
Gardening Mama Coming to a DS near You
Interpol Announced for XBLA Release
Sam & Max Set for Another Go
The Witcher: Rise of the White Wolf Coming to Consoles this Summer
Ready 2 Rumble Revolution Coming to Wii
Harry Potter Going LEGO?
Uncharted 2 Gets First Details
More News...
<%
On Error Resume Next
platform=""
If(InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)-2>0) Then
platform=Mid(Request.ServerVariables("SCRIPT_NAME"), 2, InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)-2)
End If
If(platform="psx2") Then
platform="ps2"
End If
If(platform="ds") Then
platform="nintendods"
End If
endNumber=InStr(2, Request.ServerVariables("SCRIPT_NAME"), "cheats", 1)-InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)-1
startnumber=0
If(endnumber<=0) Then
startnumber=4
endNumber=InStr(2, Request.ServerVariables("SCRIPT_NAME"), "preview", 1)-InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)-1
End If
If(endnumber<=0) Then
startnumber=4
endNumber=InStr(2, Request.ServerVariables("SCRIPT_NAME"), "review", 1)-InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)-1
End If
If(endnumber>0 and Len(platform)>0) Then
game=Mid(Request.ServerVariables("SCRIPT_NAME"), InStr(2, Request.ServerVariables("SCRIPT_NAME"), "/", 1)+(1+startnumber), endnumber-startnumber)
SET xmlDOM = Server.CreateObject("msxml2.domdocument")
xmlDOM.async = False
xmlDOM.setProperty "ServerHTTPRequest", True
xmlDOM.Load("http://www.n4g.com/rss/PartnerFeed.aspx?PartnerID=cheatcc-45b6&Records=10&Page=1&Timeline=-1&Channel="+ platform +"&ContentType=-1&GameTitle=" + game + "&Featured=0&OrderBy=date")
'Get all of the
- tags in the feed
SET itemList = xmlDOM.getElementsByTagName("item")
'Iterate over each item
For Each item In itemList
'Parse the item children
For each child in item.childNodes
Select case lcase(child.nodeName)
case "title"
title = child.text
case "link"
link = child.text
End Select
Next
'Build the HTML for each bullet item
strHTML = strHTML & ""
strHTML = strHTML & Server.HTMLEncode(title)
strHTML = strHTML & ""
strHTML = strHTML & "
"
strHTML = strHTML & "
"
Next
SET xmlDOM = Nothing
SET itemList = Nothing
if(Len(strHTML)>0) Then
strHTML = "Related Articles
" + strHTML
strHTML="" + strHTML
strHTML="
" + strHTML
strHTML="
" + strHTML
Response.Write(strHTML)
End If
End If
'Response.Write(game)
'Response.Write(platform)
%>