<% i=160500 iMinutes=i\60000 iSeconds=(i mod 60000)\1000 If iSeconds > 9 Then Response.Write = iMinutes & ":" & iSeconds Else Response.Write = iMinutes & ":0" & iSeconds End if %>