<% if Session("BeenUpFront") = false then Response.Redirect("/") end if response.Expires = -1 Dim conn, rs, tlimit, tstring, lat(100), lon(100), callsign(100), i, tripid(100), numberofflights, spd(100), xpdr(100), rego(100), tstamp(100), vsp(100), typ(100), alt(100), trk(100), hago(100), mago(100), dago(100) set conn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") conn.Open(Application("DBConnectVesselLog")) set rs = conn.Execute("SELECT * FROM tabContent WHERE DataName LIKE 'Maintenance'") if rs("DataContent") = 0 then dbmaint = 0 else dbmaint = 1 end if %> Untitled

Emergencies list

The following lists display emergencies from the past 48 hours as well as historic emergencies since openATC became operational.

Important: An emergency is qualified as any instance where the pilots of an aircraft are setting the transponder code to 7700, 7600 or 7500. All this means is that some sort of event has prompted the pilots to demand priority handling by ATC. In many cases this is due to a passenger having a medical emergency. Scaremonger tabloids beware! This list has absolutely no meaning whatsoever when judging whether an airline is safe or not!

<% if dbmaint = 1 then%>

Database index maintenance is currently ongoing. During that time, the find emergencies function is not available. Sorry for the inconvenience. This usually takes no longer than 15 minutes, please come back and try again then.



<% else set rs = conn.Execute("exec sp_FindAllEmergencies") i = 0 While not rs.EOF callsign(i) = rs("Callsign") xpdr(i) = rs("xpdr") typ(i) = rs("type") rego(i) = rs("registration") tstamp(i) = DanDate(rs("tstamp"), "%d %b %Y %H:%M:%S") dago(i) = abs(DateDiff("d", Now(), rs("tstamp"))) hago(i) = abs(DateDiff("h", Now(), rs("tstamp")))-1 mago(i) = abs(DateDiff("n", Now(), rs("tstamp"))) tripid(i) = rs("ID") i = i + 1 rs.MoveNext wend rs.Close numberofflights = i if numberofflights = 0 then response.Write "

No emergencies found

" else response.Write "

Found the following Emergencies:


" response.Write "" end if for i = 0 to numberofflights - 1 Response.Write "" next response.Write "
CallsignTypeRegistrationCodeTime of flight (UTC)How long ago?
" & _ "" & _ "" & callsign(i) & " " & _ typ(i) & " " & _ "" & rego(i) & " " & _ xpdr(i) & " " & _ tstamp(i) & "" & _ Int(mago(i) / 60) & "h " & round((mago(i) / 60 - Int(mago(i) / 60)) * 60,0) & "m ago (" & dago(i) & " days ago)
" set rs = nothing end if 'dbmaint = 1 conn.Close() set rs = nothing set conn = nothing %> This page served times