Escoja un Idioma

<% '============================================ ' Create Hitcount Function '============================================ Dim hitcount, fso, f, filen, store Const ForReading = 1, ForWriting = 2, ForAppending = 8 Function GetHits(pagename, store) pagename = MakeCountPage(pagename) filen = Server.MapPath(pagename) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(filen, ForReading, True, 0) If Not f.AtEndOfStream Then hitcount = f.readall Else hitcount = 0 End if hitcount = Cint(hitcount) f.close If store Then Call WriteHits(pagename) End if hitcount = Cstr(hitcount) Set f = nothing Set fso = nothing Select Case Len(hitcount) Case 1 hitcount = "0000" & hitcount Case 2 hitcount = "000" & hitcount Case 3 hitcount = "00" & hitcount Case 4 hitcount = "0" & hitcount End Select GetHits = hitcount End Function Sub WriteHits(pagename) If session(pagename) = "" OR IsEmpty(session(pagename)) Then If hitcount = 0 OR Len(hitcount) = 0 Then hitcount = 1 Else hitcount = Cint(hitcount) + 1 End if Set f = fso.OpenTextFile(filen, ForWriting, True, 0) f.writeline(hitcount) f.close session(pagename) = hitcount End if End Sub Function MakeCountPage(pagename) MakeCountPage = StrReverse(pagename) MakeCountPage = Left(MakeCountPage,InStr(MakeCountPage, "/")-1) MakeCountPage = StrReverse(MakeCountPage) MakeCountPage = "/accountname/db/" & MakeCountPage & ".txt" End Function %>

Select a Language • Escoja un Idioma

English Español

Judge and defendant

TRIBUNALES

- Access to the Process - Acceso al Proceso -

tribunalesvideo@aol.com
1-781-254-5463
Site and graphics by Creative Web Development