<%@ Page Language="VB" %>
sub Page_Load(Sender as object, e as eventargs)
dim strDay as string
dim arrWeekDays() as String = {"Monday", "Tuesday", _
"Wednesday", "Thursday", "Friday"}
For Each strDay in arrWeekDays
Response.Write(strDay & "
")
exit for
Next
end sub