
<%@ Language=VBScript %>
<% Option Explicit %>
<%
   'Create an array that contains
   'the days of the week
   Dim aWeekDays(6)
   aWeekDays(0) = "Sunday"
   aWeekDays(1) = "Monday"
   aWeekDays(2) = "Tuesday"
   aWeekDays(3) = "Wednesday"
   aWeekDays(4) = "Thursday"
   aWeekDays(5) = "Friday"
   aWeekDays(6) = "Saturday"


   'Build the querystring
   Dim iLoop, strQueryString
   For iLoop = LBound(aWeekDays) to UBound(aWeekDays)
      strQueryString = strQueryString & "WeekDays=" & aWeekDays(iLoop)
      strQueryString = strQueryString & "&"
   Next

   'Cut off the last character
   strQueryString = Left(strQueryString, Len(strQueryString) - 1)

   'Now, create the actual hyperlink
%>

   <A HREF="ReceiveArray.asp?<%=strQueryString%>">ReceiveArray.asp</A>

   <FORM METHOD=POST ACTION="ReceiveArray.asp">
<%
   For iLoop = LBound(aWeekDays) to UBound(aWeekDays) %>
      <INPUT TYPE=HIDDEN NAME=WeekDays VALUE="<%=aWeekDays(iLoop)%>">
<%   Next %>
     <P>
     <INPUT TYPE=SUBMIT>
   </FORM>