<%
function tstr(cvar)
lenstr=len(trim(cvar))
'response.write now()
'response.write"
"
'response.write lenstr
'response.write"
"
yearstr=left(cvar,4)
rightstr=right(cvar,lenstr-5)
'response.write rightstr
'response.write"
"
pos2=instr(rightstr,"-")+5
'response.write pos2
'response.write"
"
monthstr=trim(mid(cvar,6,pos2-6))
'response.write "mon="&monthstr
'response.write"
"
pos3=instr(cvar," ")
datestr=trim(mid(cvar,pos2+1,pos3-pos2))
'response.write "date="&datestr
'response.write"
"
pos4=instr(cvar,":")
hourstr=trim(mid(cvar,pos3+1,pos4-pos3-1))
'response.write "hour="&hourstr
'response.write"
"
rightstr2=right(cvar,lenstr-pos4)
'response.write "hour="&rightstr2
'response.write"
"
if len(monthstr)=1 then
monthstr="0"+monthstr
end if
if len(datestr)=1 then
datestr="0"+datestr
end if
if len(hourstr)=1 then
hourstr="0"+hourstr
end if
tstr=yearstr+"-"+monthstr+"-"+datestr+" "+hourstr+":"+rightstr2
end function
%>