We have moved to www.illustratedherbal.com ...

Please update your bookmarks/favourites ...

<% Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim I ' standard looping var strCountFileName = Server.MapPath(Request.ServerVariables("SCRIPT_NAME") & ".cnt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) If Not objCountFile.AtEndOfStream Then iCount = CLng(objCountFile.ReadAll) Else iCount = 0 End If objCountFile.Close Set objCountFile = Nothing iCount = iCount + 1 Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) objCountFile.Write iCount objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing Response.Write iCount %> visits since September 9, 2006 ...

hair pins uk 360 wigs uk hair extensions ash brown hair extensions curly human hair wigs uk cheap hair extensions blue ombre hair extensions lace wig payment plan human hair how often should you wash tape in extensions hairdressing courses london free real hair wigs