% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Dim objFSO ' FileSystemObject Dim objTS ' TextStreamObject Dim strFileName ' Counter text File Name Dim intOldCount Dim intNewCount ' Specify the Text file to store count value ' Because We Set Create = True ' File will be Created if it does not exist strFileName = Server.MapPath("Counter.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFileName) Then Set objTS = objFSO.OpenTextFile(strFileName, 1) Else Set objTS = objFSO.CreateTextFile(strFileName, True) End If If Not objTS.AtEndOfStream Then intoldCount = objTS.ReadAll Else intoldCount = 0 End If objTS.Close intNewCount = intOldCount + 1 ' Store the value of intNewCount in Session Variable ' So you can use it on different pages Session("TotalCount")= intNewCount ' Write intNewCount value back to text file Set objTS = objFSO.CreateTextFile(strFileName, True) objTS.Write intNewCount objTS.Close Set objFSO = Nothing Set objTS = Nothing End Sub %>
![]() |
![]() |
|||
![]() |
||||
|
Welcome to
Germantown Cleaners It is a personal touch of service when you can walk into an establishment and they know exactly who you are. Simply put, fabric is important to us; In fact, it is so important that, we recognize it as being the connector of people, community and heritage. We at Germantown Cleaners are committed to not only providing exceptional service, but in the building of personal and professional relationships, which is the cornerstone of our business.
|
||||
![]() |
||||
|
Monday-Friday 7:00am-7:00pm Saturday 8:30-2:00pm
© 2008 Germantown Cleaners. All rights reserved. Site design: Joe |
||||