<%@ Language=VBScript %> <% option explicit %> VBScript Demo - Temperatures

VBScript Demonstration - Temperatures

 

<% dim cent dim fahr dim answer cent = request.form("cent") fahr = request.form("fahr") if cent <> "" and fahr <> "" then fahr = "" cent = "" answer = "Try again, you had two entries." elseif cent <> "" or fahr <> "" then if cent <> "" then answer = (cent * 1.8) + 32 & " F" else answer = (fahr - 32) * (5/9) & " C" end if else answer = "" end if %>

Enter Temperature in Fahrenheit:

or

Enter Temperature in Centigrade:

<% if answer <> "" then response.write("The result is...: " & answer & "") %>