<% dim vbpingcnt dim vbregcnt dim codecountercnt Public Sub GetDownloadCounts() Dim objFSO, cnt, filename, filepath, filehold Set objFSO = Server.CreateObject("Scripting.FileSystemObject") filepath = Server.MapPath("\downloads\") filename = "/vbping.txt" filehold = filepath & filename 'Open the text file for vbping' Dim objTextStream if objFSO.FileExists(filehold) then set objTextStream = objFSO.OpenTextFile(filehold, 1) cnt = int(rTrim(objTextStream.ReadLine)) objTextStream.Close Set objTextStream = Nothing else 'set objTextStream = objFSO.OpenTextFile(filehold, 2, True) 'objTextStream.Write "1" ''cnt = 1 cnt = 0 end if vbpingcnt = cnt 'now open the text file for vbreg' filename = "/vbreg.txt" filehold = filepath & filename if objFSO.FileExists(filehold) then set objTextStream = objFSO.OpenTextFile(filehold, 1) cnt = int(rTrim(objTextStream.ReadLine)) objTextStream.Close Set objTextStream = Nothing else 'set objTextStream = objFSO.OpenTextFile(filehold, 2, True) 'objTextStream.Write "1" ''cnt = 1 cnt = 0 end if vbregcnt = cnt 'now open the text file for vbreg' filename = "/codecounter.txt" filehold = filepath & filename if objFSO.FileExists(filehold) then set objTextStream = objFSO.OpenTextFile(filehold, 1) cnt = int(rTrim(objTextStream.ReadLine)) objTextStream.Close Set objTextStream = Nothing else 'set objTextStream = objFSO.CreateTextFile(filehold, True) 'objTextStream.Write "1" ''cnt = 1 cnt = 0 end if codecountercnt = cnt End Sub '------------------------------------------------------------------------------------------------' Public Sub NewDownload() Dim objFSO, cnt, filename, filepath, filehold Set objFSO = Server.CreateObject("Scripting.FileSystemObject") filepath = Server.MapPath("\downloads\") filename = "/" & Request.Form("hidType") filehold = filepath & filename 'Open the text file' Dim objTextStream if objFSO.FileExists(filehold) then set objTextStream = objFSO.OpenTextFile(filehold, 1) cnt = int(rTrim(objTextStream.ReadLine)) cnt = cnt + 1 objTextStream.Close set objTextStream = objFSO.OpenTextFile(filehold, 2) objTextStream.Write cnt else set objTextStream = objFSO.OpenTextFile(filehold, 2, True) objTextStream.Write "1" cnt = 1 end if objTextStream.Close Set objTextStream = Nothing End Sub '------------------------------------------------------------------------------------------------' if not isEmpty(Request.Form("hidType")) then NewDownload end if 'now get the download counts for each file' GetDownloadCounts %> Armbrust Consulting
All files here have been developed by Armbrust Consulting.

There is no fee to download or use these files, we only ask that you provide us with some feedback.

Network Utilities:
  • Code Counter (Downloaded <%=codecountercnt%> Times)
  • VBPing (Downloaded <%=vbpingcnt%> Times)

    • DLLs:
  • VBRegistry (Downloaded <%=vbregcnt%> Times)

    • Coming Soon:
  • VBEncrypt

    • Click on a file name to view a description and download the file.
    Interested in working with us? Contact us on-line -- and be sure to check out our sample work!

    armbrustconsulting.com