small battles - Miniatures Wargaming

<% Option Explicit Response.Buffer = True %> small battles - Miniatures Wargaming <% Dim gallery_num, scan_num gallery_num = Trim(Request("Gallery")) scan_num = Trim(Request("Scan")) Dim xml Set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False xml.load (Server.MapPath("xml/GWgalleryScans.xml")) Dim gallery_name, gallery_index Dim scan_image, scan_caption gallery_name = xml.documentElement.childNodes(gallery_num-1).childNodes(0).text gallery_index = xml.documentElement.childNodes(gallery_num-1).childNodes(1).text scan_image = xml.documentElement.childNodes(gallery_num-1).childNodes(1+scan_num).childNodes(0).text scan_caption = xml.documentElement.childNodes(gallery_num-1).childNodes(1+scan_num).childNodes(1).text Set xml = Nothing %>

small battles <%= gallery_name %>

Back to Gallery

<%= scan_image %>

<%= scan_caption %>