% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim strWeek strWeek = Trim(Request.QueryString("week")) %>
|
|
|
Week
<% Response.Write strWeek %>
|
|
<%
If strWeek = "1" Then
Response.Write "
"
ElseIf strWeek = "2" Then
Response.Write " "
ElseIf strWeek = "3" Then
Response.Write " "
ElseIf strWeek = "4" Then
Response.Write " "
ElseIf strWeek = "5" Then
Response.Write " "
ElseIf strWeek = "6" Then
Response.Write " "
ElseIf strWeek = "7" Then
Response.Write " "
ElseIf strWeek = "8" Then
Response.Write " "
ElseIf strWeek = "9" Then
Response.Write " "
ElseIf strWeek = "10" Then
Response.Write " "
ElseIf strWeek = "11" Then
Response.Write " "
ElseIf strWeek = "12" Then
Response.Write " "
ElseIf strWeek = "13" Then
Response.Write " "
ElseIf strWeek = "14" Then
Response.Write " "
ElseIf strWeek = "15" Then
Response.Write " "
ElseIf strWeek = "16" Then
Response.Write " "
ElseIf strWeek = "17" Then
Response.Write " "
ElseIf strWeek = "18" Then
Response.Write " "
ElseIf strWeek = "19" Then
Response.Write " "
ElseIf strWeek = "20" Then
Response.Write " "
ElseIf strWeek = "23" Then
Response.Write " "
ElseIf strWeek = "24" Then
Response.Write " "
ElseIf strWeek = "25" Then
Response.Write " "
ElseIf strWeek = "26" Then
Response.Write " "
ElseIf strWeek = "27" Then
Response.Write " "
ElseIf strWeek = "28" Then
Response.Write " "
ElseIf strWeek = "29" Then
Response.Write " |
|
Click here to print Close this window |