<% Dim ID ID = reqiest("id") select case ID case "1" response.write ID case "2" response.write ID case else end select %>