%
'Check For Error Codes
if Request.Querystring("ErrCode") <> "" Then
ErrorCode = Request.Querystring("ErrCode")
elseif Request("ErrCode") <> "" Then
ErrorCode = Request("ErrCode")
end if
sqlx = "sp_get_leagues"
set rsLeagues = doGetRS(sqlx)
tempDay = ""
do while not rsLeagues.EOF
currentDay = rsLeagues("LEAGUE_DAYOFWEEK")
if currentDay <> tempDay then
if tempDay = "" then
Listing = ""
else
Listing = Listing & "
"
end if
Select Case currentDay
Case 1
Listing = Listing & "Monday - "
Case 2
Listing = Listing & "Tuesday - "
Case 3
Listing = Listing & "Wednesday - "
Case 4
Listing = Listing & "Thursday - "
Case 5
Listing = Listing & "Friday - "
Case 6
Listing = Listing & "Saturday - "
Case 0
Listing = Listing & "Sunday - "
End SELECT
tempDay = currentDay
end if
Listing = Listing & " " & trim(rsLeagues("LEAGUE_NAME")) & " " & TimeValue(rsLeagues("LEAGUE_TIME")) & " "
rsLeagues.movenext
Loop
%>
|
|
||||||
| © 2004 Palazzo di Bocce, Inc. All rights reserved. | |||||||
![]() |
![]() |
||||||