%@ LANGUAGE="VBSCRIPT" %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''' function Date_out_full(value) if mid(value,3,1) = "1" then ss = "0"& mid(value,4,1) else ss = mid(value,3,2) end if ss = ss & "-" & mid(value,5,2) & "-" & mid(value,7,2) ' & " " & mid(value,7,2) & ":" & mid(value,9,2) Date_out_full = ss end function function Date_out(value) if left(value,1) = "1" then ss = "200"& mid(value,2,1) else ss = "20" & mid(value,1,2) end if ss = ss & ". " & mid(value,3,2) & ". " & mid(value,5,2) ' & " " & mid(value,7,2) & ":" & mid(value,9,2) Date_out = ss end function function Date_mmv(value) if len(month(value))= 1then Date_mmv = year(value) & "0" & month(value) else Date_mmv = year(value) & month(value) end if end function userid = session("userid_arte") userrowid = session("userrowid") mtype = session("mtype") if len(userid) > 0 then user_check = true else user_check = false end if %>
|
|||
|
|
|||