<% ' Set Initial Conditions QueryForm = Request.ServerVariables("PATH_INFO") FiO2 = "" PaO2 = "" NewQuery = FALSE ' Did the user press a SUBMIT button to execute the form? If so get the form variables. if Request.ServerVariables("REQUEST_METHOD") = "POST" then FiO2 = Request.Form("FiO2") PaO2 = Request.Form("PaO2") MAP = Request.Form("MAP") NewQuery = TRUE end if %> 
                                                [MAP x FiO2 x 100 ]
The equation used to calculate to index is: OI= -------------------
                                                         PaO2
<% if NewQuery then 'trap no decimal errors. if FiO2 > 1 or FiO2 < .01 then Response.Write "Please enter an FiO2 range between .01 and 1.00
" else Response.Write "" oi=(FiO2*MAP*100)/PaO2 Response.Write "" end if end if %>
Mean Airway Pressure (MAP)
Post ductal PaO2
Inspired O2 (FiO2) Where for room air FiO2=0.21 and for 100% O2 FiO2=1.0
Oxygenation Index (OI)" & CStr(Round(oi)) & "