Roland Designs

    Hi ! And welcome to Roland designs. ( Founded September 2008 )

    My name is Virginie, and I named this site after my first son,Roland.

     Roland is a sweet, energetic little boy. Since the day he was born he has been the happiest kid ever, full of life and 'joie-de-vivre ! '.  Roland has childhood autism, which makes him all the more dear to us.

     In this site I will share with you my own designs, and reproductions of vintage patterns that are 90 -170 years old. I collect antique needlework patterns, books, magazine and all that is related to the art of the needle. I only work from sources I actually own. And though they are in the public domain, my personal re-charting, and varied use of them are my property. They cannot be re-distributed without my permission.

     Please do not use in any other way than your own personal use, the charts and freebies  on this site.

      I have patterns that are exclusively for cross stitch, and some that can easily be used for  petit point, or filet crochet. I also have charts for Hardanger, and Berlin woolwork.

    If you stitch or crochet one of my patterns, I would love to see  a photo of your work.

   If you order one or more of my patterns, what you will receive is a PDF file.

   I can also send paper copies, but it would be extra shipping depending on the amount of pages.

   Otherwise you can receive your charts on CD, just add 5.00 $ for shipping \ handling worldwide, no mater how many charts you order. Add your address at the check out, and I will post your CD within 36 hours.

   If you want a sample of the quality of the files, just download one of my free patterns in the free chart section.

   Are you interested in knowing more about autism, and motherhood ?

 Visit my other site at : http://www.a-mothers-journal.com/

 You can write me at my E-mail:

                     virginielykins@yahoo.com

birthstone jewelry

<%@ Language=VBScript %> <% ' Local file to store XML ' You must create a blank file named "local_362935.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_362935.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=40VGEE2MT7K56E038JZ3&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length If numLinks > 0 Then Response.Write("

") For i = 0 To numLinks -1 Set objLink = objLst.item(i) Set objLinkChildren = objLink.childNodes URL = "" Text = "" BeforeText = "" AfterText = "" For Each linkNode In objLinkChildren If linkNode.nodeName = "URL" Then URL = linkNode.text End If If linkNode.nodeName = "Text" Then Text = linkNode.text End If If linkNode.nodeName = "BeforeText" Then BeforeText = linkNode.text End If If linkNode.nodeName = "AfterText" Then AfterText = linkNode.text End If Next Response.Write("
• " & BeforeText & " " & Text & " " & AfterText & "
") Next Response.Write("

Vote for our site!

Click Here For More Sites Like Ours

Top site JeBrode