<%
Function Counter
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCounter = objFSO.OpenTextFile("e:\inetpub\websites\lovesbbq\counter.txt",1,FALSE)
count = objCounter.ReadLine
objCounter.Close
Set objCounter = objFSO.CreateTextFile("e:\inetpub\websites\lovesbbq\counter.txt",1,FALSE)
objCounter.WriteLine count + 1
objCounter.Close
For x = 1 to len(count)
char = mid(count,x,1)
Response.Write "![]()
"
next
End Function
%>
information locations
franchising menu
contact us
home
Our General Counsel is John A. Case, Jr., Esq. of Los
Angeles, California,
www.CaseWebLaw.com
**Free Shipping within the USA by UPS ground or equivalent
Website hosted by
Webtrix Designs
<%Counter()%>
-
