|
|
עו"ד משה כהן
|
|
|
הוסף את האתר למועדפים
|
<%
iday = day(now())
imonth = month(now())
Response.Write "![]() "
Response.Write "![]() "
%>
|
אתרים משפטיים
|
|
דעות מאמרים שאלות ותשובות
|
<%=Day(NOW())&"/" &Month(NOW())&"/"&Year(NOW())%>
נושאים/קישורים
|
|
|
פלילי
|
|
דעות ומאמרים
|
תעבורה
|
|
|
מפה
|
|
|
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\txt\hits.txt"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
%><%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & "![]() "
Next
Response.Write Display
%>
צור קשר
|
|
|
|
|
אודות האתר
|
אודות האתר
|
|
