<% Set rsNewsArticles = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM tblNewsArticles ORDER BY ID DESC" rsNewsArticles.Open strSQL, cn, 1 Set fs = CreateObject("Scripting.FileSystemObject") %> Needleworx - News



 






News
View Cart  Items=0  
SEARCH
BROWSE
 ANCHOR
 BEADING
 BEARS
 BOOKS PUBLICATIONS
 BRAID TRIMMINGS
 BUTTONS
 CHARMS
 CLOVER
 COATS
 CONTAINERS
 CRAFT
 CURTAINING
 DARICE
 DMC
 ELASTIC
 FABRIC
 FASTENERS
 FEATHERS
 HABERDASHERY
 INTERFACING
 JEWELLERY CRAFT
 KITCHEN
 KNITTING CROCHET
 LACE
 LIGHTS AND MAGNIFIER
 LIVING BEAUTIFULLY
 MACHINE ACCESSORIES
 MACHINE EMBROIDERY
 MANCHESTER
 NEEDLEWORK
 OLFA
 PAPERCRAFT
 PATCHWORK QUILTING
 PATTERNS
 RIBBON
 SCISSORS CUTTERS
 SEW EASY
 SEWING THREAD
 STITCHERY PATTERNS
 TOWEL
 TRANSFERS
 UNIRIBBON
 WADDING FILLING
 SPECIALS
<% Do Until rsNewsArticles.EOF Set f = fs.OpenTextFile(Server.MapPath("/") & "/pubs/" & rsNewsArticles("ID") & ".txt", 1) %> "> <% rsNewsArticles.MoveNext Loop %>
<% =FormatDateTime(rsNewsArticles("Date"),1) %> <% =rsNewsArticles("Title") %>
<% =f.ReadAll %>

© Arvee Seejay Pty Ltd, 2001-2008.      Sunday, July 20, 2008 09:59:40

<% rsNewsArticles.Close %>