<%@ 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
%>
INTERPINO-Free Internet Piano & Music Lesson
Intermarket 21.Com (The Exclusive Importer for the US & Canada) Tel
: (323) 936 - 6114, Fax : (323) 964 - 8124, Cell
: (213) 700 - 1271 Email
: info@interstore21.com Copyright 2003-2004 ARTE. All Rights Reserved
Intermarket 21.Com (The Exclusive Importer for the US & Canada)
