<%
If IsEmpty(Request.QueryString("Show")) Then
  Response.Write objCR.ChooseContent("cr.txt")
Else
  objCR.GetAllContent("cr.txt")
End If
%>
