| <% e = new Enumerator(Pages) s = '' c = 0 for (; !e.atEnd(); e.moveNext()) { if (e.item().Published) { if (c>0) s += ' | ' if (Page.Name != e.item().Name) s += '' + e.item().Title + '' else s += e.item().Title c++ } } if (c>1) Response.Write(s) %> |
Welcome to the Delphi 6 Developers Guide WebSnap Demonstration Application!
This application will demonstrate many of the new features in Delphi 6 and WebSnap. Feel free to browse around and look at the code involved. There is a lot of power, and thus a lot to learn, in WebSnap, so take your time and don't try to absorb it all at once.