<% Select Case Request.QueryString("Id") Case 3 Response.Write "
" Case 21 Response.Write "
" Case Else Response.Write " " End Select %>