VBScript : Sample Code : Mapraider.com Content Sharing System

This sample illustrates how to dump a list of the Top 10 Unreal Tournament 2003 maps from Mapraider.com using VBScript/ASP. Keep in mind that you can display the data however you want - you don't have to list them out like this.	Back to the Content Sharing Page


<%@ Language="VBScript" %>
<% OPTION EXPLICIT %>

<!--#include file="inc.mapraider.asp"-->

<%

' ====================================================================
' MapRaider test page
' --------------------------------------------------------------------

' --------------------------------------------------------------------
' Code written by John Dailey and is Copyright (c)
' 2003 by John Dailey unless otherwise stated.
' Based on the JScript ASP version written by Conan Theobald
'
' Visit: www.mapraider.com
' Email: info@mapraider.com
' ====================================================================

' Initialization

Dim oMapraider, sHTML, oMap

sHTML = ""

Set oMapraider = new XMLMapRaiderClass

oMapRaider.IncludeFile( "Top10_UT2003" )
oMapRaider.Update

' Display the Top-10 highest rated Unreal Tournament 2003 maps:

Set oMap = oMapraider.FindFirst( "Top10_UT2003" )

Do While ( Not oMap Is Nothing  )

	' For code optimization, it would be a good idea to 
	' concatenate this in another way other than using '&'
	sHTML = sHTML & _
		"<p style=""clear: both;"">" & _
			"<img src=""" & oMap("screenshot") & """ align=""left"" />" & _
			"<b>Name:</b> " & oMap("title") & "<br />" & _
			"<b>Score:</b> " & oMap("score") & "<br />" & _
			"<b>Description:</b> " & oMap("description") & _
		"</p>"
		
	Set oMap = oMapraider.FindNext

Loop

Response.Write sHTML

Set oMap = nothing

Set oMapraider = nothing

%>