<%@ LANGUAGE=VBScript %> Speed Conversion <% Function getFactor( strUnitCode ) Select Case strUnitCode Case "A" getFactor = 1 Case "B" getFactor = 39.37 / 12 Case "C" getFactor = 3600 / 1000 Case "D" getFactor = 3600 / 5280 * 39.37 / 12 End Select End Function Function getUnitName( strUnitCode ) Select Case strUnitCode Case "A" getUnitName = "m/sec" Case "B" getUnitName = "ft/sec" Case "C" getUnitName = "km/hr" Case "D" getUnitName = "mi/hr" End Select End Function Dim strValue strValue = Request( "value" ) Dim dValue If IsNumeric( strValue ) Then dValue = CDbl( strValue ) Else dValue = 0 End If Dim strFrom strFrom = Request( "from" ) Dim strTo strTo = Request( "to" ) %>

Speed Conversion

<%= dValue %> <%= getUnitName( strFrom ) %> = <%= dValue / getFactor( strFrom ) * getFactor( strTo ) %> <%= getUnitName( strTo ) %>