<% Dim aName If Request.QueryString("name") <> "" Then aName = Trim(Request.QueryString("name")) Select Case aName Case "new" Response.Write "New" Response.End Case "top" Response.Write "Top"
Response.End Case Else Response.Write "Other" Response.End End Select Else Response.Write "No Value" Response.End End If %>
<% Dim aName If Request.QueryString("name") <> "" Then aName = LCase(Request.QueryString("name")) Select Case aName Case "new" Response.Write "New" Response.End Case "top" Response.Write "Top"
Response.End Case Else Response.Write "Other" Response.End End Select Else Response.Write "No Value" Response.End End If %>