<% 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
285 days until Christmas Day View Cart  Items=0  
SEARCH
BROWSE
 ANCHOR
 BEADING
 BEARS
 BOOKS PUBLICATIONS
 BRAID TRIMMINGS
 BUTTONS
 CHARMS
 CLOVER
 COATS
 CONTAINERS
 CRAFT
 CRYSTALS
 CURTAINING
 DARICE
 DISCONTINUED
 DMC
 ELASTIC
 EVENWEAVE FABRICS
 FABRIC
 FASTENERS
 FEATHERS
 HABERDASHERY
 HOTSPOTZ
 INTERFACING
 JEWELLERY CRAFT
 KITCHEN
 KNITTING CROCHET
 LACE
 LIGHTS AND MAGNIFIER
 LIVING BEAUTIFULLY
 MACHINE ACCESSORIES
 MACHINE EMBROIDERY
 MANCHESTER
 NEEDLEWORK
 NOVELTY
 OLFA
 PAPERCRAFT
 PATCHWORK QUILTING
 PATTERNS
 RIBBON
 SCISSORS CUTTERS
 SEW EASY
 SEWING THREAD
 STITCHERY KITS
 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-2010.      Sunday, March 14, 2010 00:51:45

<% rsNewsArticles.Close %>