<%@LANGUAGE="VBSCRIPT"%> ' <% 'If Session("Count") = "" then 'Dim objFSO, objCountFile ' object vars for FSO and File 'Dim strCountFileName ' filename of count text file 'Dim iCount ' count variable 'strCountFileName = "D:/dsource02/counters/BodyWrapturesc.net.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 = 1000 '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 'Session("Count") = CStr(iCount) 'End If '%> Body Wrapture Featuring Body Wraps in the greater Spartanburg South Carolina Area

Gift Certificates Available!

CLICK HERE for our $10 off SPECIAL!

"As Seen On the Tyra Banks Show" Sept. 14, 2006

 © 2004 Visual Edge Design, Inc. All Rights Reserved.
<%xFooterTextColor = "FFFFFF"%> <%xFooterLinkColor = "FFFFFF"%> <%= Session("Count")%>]