How do I display time in military format?

There are at least three options for this. 
 
One is to change regional settings to display time in military format. I don't like to do this because it can break existing code, and can change depending on who is logged into the server (if anyone). 
 
The second is to use string formatting. Here is an example: 
 

<%      ft = formatdatetime(time(),3)      response.write "Standard time:<p>" & formatdatetime(ft,3)      if right(ft,2)="PM" then           t = split(ft,":")           milhour = clng(t(0))          if clng(left(ft,2))<12 then milhour = milhour +12           mtime = cstr(milhour) & ":" & t(1)           mtime = mtime & ":" & left(t(2),2)       elseif clng(left(ft,2))=12 then ' this handles midnight only          mtime = "00:"          mins = datepart("n",ft)          secs = datepart("s",ft)          mtime = mtime & left("00",2-len(mins)) & mins          mtime = mtime & left("00",2-len(secs)) & ":" & secs      else          mtime = left(ft,len(ft)-3)       end if       response.write "<p>Military time:<p>" & mTime   %>

 
The third is to use SQL Sevrer to convert it for you: 
 

<%      response.write "Standard time:<p>" & time()      set conn = CreateObject("ADODB.Connection")      conn.open "<connection string>"      sql = "SELECT CONVERT(CHAR(8),(CONVERT(DATETIME,CURRENT_TIMESTAMP,113)),114)"      set rs = conn.execute(sql)      response.write "<p>Military time:<p>" & rs(0)      rs.close: set rs = nothing  %>

 
The advantage with SQL is you could change it to CHAR(12) and get millisecond accuracy (the above scripts only get down to the second).