<% option explicit %> <% 'constants const pageId = "links" 'variables dim jpeg 'jpeg object to open images dim fileSystem 'the filesystem object dim objXML 'xml object dim links 'array of link objects in xml dim numLinks 'number of links in the xml dim i 'loop counter dim linksDir 'the links directory on the server dim filename 'the filename of a links image dim link dim linkText dim description dim linkType dim endline, tab endline = chr(10) tab = chr(9) 'Create instance of AspJpeg Set jpeg = Server.CreateObject("Persits.Jpeg") 'create the filesystem object set fileSystem = Server.CreateObject("Scripting.FileSystemObject") 'load the xml file Set objXML = Server.CreateObject("Microsoft.XMLDOM") 'do not do asynchronous download objXML.async = False 'load the document objXML.Load(Server.MapPath("xml/" & pageId & ".xml")) 'check for loading errors If objXML.parseError.errorCode <> 0 Then 'handle the error, do not continue processing! End If 'get all the gallery subtrees Set links = objXML.getElementsByTagName("link") 'get number of links numLinks = links.length 'get the folder on the server set linksDir = fileSystem.GetFolder(Server.MapPath("images/links")) %> daveberlin.com
daveberlin.com:<%=pageId%>

Links

<% 'loop through all links for i = 0 to (numLinks - 1) 'get link information link = links.item(i).childNodes(xmlHref).text filename = links.item(i).childNodes(xmlPath).text linkText = links.item(i).childNodes(xmlTitle).text description = links.item(i).childNodes(xmlDescription).text linkType = links.item(i).childNodes(xmlLinkType).text 'open the image to get width and height jpeg.open linksDir & "/" & filename response.write ( "" &_ "" & endline & tab & tab ) next %>

copyright © 2006 daveberlin.com • all rights reserved • About • Contact • RSS
style