<% Const adOpenStatic = 3 'Open a RecordSet using a static cursor Const adLockReadOnly = 1 'Open a RecordSet in read-only mode Dim GameRS Dim iPageSize Dim iPageCount Dim iNbrOfRecords Dim DispBy Dim sSQLdisplay iCurrentPage = Request.QueryString("Page") if iCurrentPage = "" or iCurrentPage = 0 then iCurrentPage = 1 iPageSize = Request.QueryString("PerPage") if iPageSize = "" then iPageSize = 10 DispBy = Request.QueryString("DispBy") if DispBy = "" then DispBy = "Package_Name" if DispBy = "Package_Genre" then sSQLdisplay = " and Package_Genre like '%" & Request.QueryString("Detail") & "%'" elseif DispBy = "Package_Rating" then sSQLdisplay = " and Package_Rating like '%" & Request.QueryString("Detail") & "%'" end if Dim DBConn Dim sSQL Dim adoDB : Set conn = Server.CreateObject("ADODB.Connection") DBConn = "DSN=sms" conn.open DBConn sSQL = "SELECT Package_Name, Package_ID, Package_Fee, Package_Developer, Package_Publisher, Package_Rating FROM packaging_table " & _ "WHERE ServiceProvider = 'GODS' and Status = 1 and Package_Fee > 0 and Package_ActiveDate < Now() and Package_ExpireDate > Now() and Package_ID <> 'TKGAPREY1147277052404' " & _ sSQLdisplay & "and Package_ID IN (SELECT package_ID ) ORDER BY Package_Name ASC" Set GamesRS = Server.CreateObject("ADODB.Recordset") GamesRS.PageSize = iPageSize GamesRS.CacheSize = iPageSize GamesRS.CursorLocation = 3 ' adUseClient GamesRS.Open sSQL, conn, adOpenStatic, adLockReadOnly iPageCount = GamesRS.PageCount if int(iCurrentPage) > int(iPageCount) then iCurrentPage = 1 iNbrOfRecords = GamesRS.RecordCount if iNbrOfRecords <> 0 then GamesRS.AbsolutePage = iCurrentPage %> Triton™is your ticket to the fast lane!
<% if iNbrOfRecords < (iCurrentPage)*iPageSize then iLastRecordonPage = iNbrOfRecords else iLastRecordonPage = (iCurrentPage)*iPageSize end if %>

Showing <% response.write ((iCurrentPage-1)*iPageSize)+1%> - <% response.write iLastRecordonPage %> of <% response.write iNbrOfRecords %>

    <% Dim i Dim GameATitle Dim GameADescription Dim GameAPkgNbr Dim GameBTitle Dim GameBDescription Dim GameBPkgNbr i = 2 Set RegX = NEW RegExp While not (GamesRS.EOF or i > iPageSize) GameATitle = null GameADescription = null GameAPkgNbr = null GameBTitle = null GameBDescription = null GameBPkgNbr = null i = i + 2 'if GamesRS("Package_Name") = "Prey Preload" then GamesRS.MoveNext 'if not (GamesRS.EOF) then GameATitleUnfiltered = GamesRS("Package_Name") SearchPattern = "Preload" ReplaceString = "" RegX.Pattern = SearchPattern RegX.Global = True GameATitle = RegX.Replace(GameATitleUnfiltered, ReplaceString) REMOTE_FILE_URL = "http://cdn.distream.com/PC/Description/" & GameATitleUnfiltered & ".txt" Set objXML=Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", REMOTE_FILE_URL, False objXML.Send sGameADescription = objXML.ResponseText sGameADescription = left(sGameADescription,130) sGameADescriptionNew = null arrGameADescription = split(cstr(sGameADescription), " ") For j=0 to (ubound(arrGameADescription)-1) sGameADescriptionNew = sGameADescriptionNew & " " & arrGameADescription(j) Next sGameADescriptionNew = sGameADescriptionNew & "..." GameAPkgNbr = GamesRS("Package_ID") GameAPkgPub = GamesRS("Package_Publisher") GameAPkgDev = GamesRS("Package_Developer") GameAPkgFee = GamesRS("Package_Fee") 'if not (GamesRS.EOF Or GamesRS.AbsolutePage = iCurrentPage) then GamesRS.MoveNext GamesRS.MoveNext 'end if if not (GamesRS.EOF) then GameBTitle = GamesRS("Package_Name") GameBTitleUnfiltered = GamesRS("Package_Name") SearchPattern = "Preload" ReplaceString = "" RegX.Pattern = SearchPattern RegX.Global = True GameBTitle = RegX.Replace(GameBTitleUnfiltered, ReplaceString) GameBPkgPub = GamesRS("Package_Publisher") GameBPkgDev = GamesRS("Package_Developer") GameBPkgFee = GamesRS("Package_Fee") REMOTE_FILE_URL = "http://cdn.distream.com/PC/Description/" & GameBTitleUnfiltered & ".txt" Set objXML=Server.CreateObject("Microsoft.XMLHTTP") objXML.Open "GET", REMOTE_FILE_URL, False objXML.Send sGameBDescription=objXML.ResponseText sGameBDescription = left(sGameBDescription,130) sGamebDescriptionNew = null arrGameBDescription = split(cstr(sGameBDescription), " ") For j=0 to (ubound(arrGameBDescription)-1) sGameBDescriptionNew = sGameBDescriptionNew & " " & arrGameBDescription(j) Next sGameBDescriptionNew = sGameBDescriptionNew & "..." set objXML=Nothing GameBPkgNbr = GamesRS("Package_ID") 'if not (GamesRS.EOF Or GamesRS.AbsolutePage <> iCurrentPage) then GamesRS.MoveNext if not (GamesRS.EOF) then GamesRS.MoveNext end if %> <% if GameBPkgNbr <> "" then %> <% else %> <% end if %> <% if GameBPkgNbr <> "" then %> <% else %> <% end if %> <% if GameBPkgNbr <> "" then %> <% else %> <% end if %> <% if GameBPkgNbr <> "" then %> <% else %> <% end if %> <% if GameBPkgNbr <> "" then %> <% else %> <%end if %> <% Wend %>
    <% response.write(GameATitle) %> <% response.write(GameBTitle) %>    

    Publisher: <% response.write(GameAPkgPub) %>

    Publisher: <% response.write(GameBPkgPub) %>

     

    Developer: <% response.write(GameAPkgDev) %>

    Developer: <% response.write(GameBPkgDev) %>

     

    <% response.write(sGameADescriptionNew) %>

    <% response.write(sGameBDescriptionNew) %>

     

    More InformationMore Information 
<% if iCurrentPage <> 1 then %> " id="prev" class="nextPage">Prev Page <% end if %> <% if int(iCurrentPage) <> int(iPageCount) then %> " id="next" class="nextPage">Next Page <% end if %>
    <% set sourceXML = Server.CreateObject("Msxml2.DomDocument") sourceXML.async = false sourceXML.setProperty "ServerHTTPRequest", true sourceXML.load CStr("http://www.playtriton.com/topgames.xml") styleFile = Server.MapPath("triton_topgames.xsl") set style = Server.CreateObject("Msxml2.DomDocument") style.async = false style.load styleFile sourceXML.transformNodeToObject style, Response set sourceXML = nothing set style = nothing %>

– No need to physically procure the game. You can stream it now!

– No need to wait for lengthy download and installation processes. You can play within minutes!

– No need to search the web for updates, and modifications. Triton™ provides these for you!

Triton™ is a registerd Trademark of Digital Interactive Streams, Inc. 2006 ©

<% Set conn = Nothing Set GamesRS = Nothing %>