%@ LANGUAGE="VBSCRIPT" %> <% If Request.QueryString("code") <> "" Then Session("code")= Request.QueryString("code") End If %> <%Dim sCode If Session("code") <> "" Then sCode= Session("code") Else sCode= "VP1"%>