Dim name, sex, age, interest_sport, interest_music, interest_computers
name=Request.Form("name")
sex=Request.Form("sex")
age=Request.Form("age")
interest_sport = Request.Form("interest_sport")
interest_music = Request.Form("interest_music")
interest_computers = Request.Form("interest_computers")
If name<>""ThenResponse.Write("<br />Your name is " & name & ".")
EndIfIf sex<>""ThenResponse.Write("<br />You are a " & sex & ".")
EndIfIf age<>""ThenIf age = "below18"ThenResponse.Write("<br />Your age is below 18 years.")
ElseResponse.Write("<br />Your age is above 18 years.")
EndIfEndIfIf interest_sport = "on"ThenResponse.Write("<br />You are interested in sports.")
EndIfIf interest_music = "on"ThenResponse.Write("<br />You are interested in music.")
EndIfIf interest_computers = "on"ThenResponse.Write("<br />You are interested in computers.")
EndIf