Response.Write ""
End If
end sub
sub Populate_EveryXWeeksDropdown(SelectedDay,MaxSelectable,Ordinal)
MyFunctionTest = IsNumeric(SelectedDay)
If MyFunctionTest <> 0 Then
SelectedDay = CInt(SelectedDay)
Else
SelectedDay = 0
End If
Do
MyFunctionCount = MyFunctionCount + 1
Response.Write ""
Loop Until MyFunctionCount = CInt(MaxSelectable)
end sub
sub Populate_WeekdayDropdown(SelectedWeekday)
Do
MyFunctionCount = MyFunctionCount + 1
Select Case MyFunctionCount
Case 1
MyWeekdayName = "Sunday"
Case 2
MyWeekdayName = "Monday"
Case 3
MyWeekdayName = "Tuesday"
Case 4
MyWeekdayName = "Wednesday"
Case 5
MyWeekdayName = "Thursday"
Case 6
MyWeekdayName = "Friday"
Case 7
MyWeekdayName = "Saturday"
End Select
Response.Write ""
Loop Until MyFunctionCount = 7
end sub
sub Populate_YearDropdown(SelectedYear,FirstYearToShow,LastYearToShow)
MyFunctionTest = IsNumeric(SelectedYear)
If MyFunctionTest <> 0 Then
SelectedYear = CInt(SelectedYear)
Else
SelectedYear = 0
End If
MyFunctionCount = FirstYearToShow
Do
Response.Write ""
MyFunctionCount = MyFunctionCount + 1
Loop Until MyFunctionCount > LastYearToShow
end sub
sub Populate_YearDropdownAsTwoDigits(SelectedYear,FirstYearToShow,LastYearToShow)
MyFunctionTest = IsNumeric(SelectedYear)
If MyFunctionTest <> 0 Then
SelectedYear = CInt(SelectedYear)
Else
SelectedYear = 0
End If
MyFunctionCount = Mid(FirstYearToShow, 3)
MyFunctionCount = CInt(MyFunctionCount)
Do
Response.Write ""
MyFunctionCount = MyFunctionCount + 1
Loop Until MyFunctionCount > CInt(Mid(LastYearToShow, 3))
end sub
sub Populate_YearDropdownAsTwoDigits_IncludingNone(SelectedYear,FirstYearToShow,LastYearToShow,DescriptionOfNone)
MyFunctionTest = IsNumeric(SelectedYear)
If MyFunctionTest <> 0 Then
SelectedYear = CInt(SelectedYear)
Else
SelectedYear = 0
End If
MyFunctionCount = Mid(FirstYearToShow, 3)
MyFunctionCount = CInt(MyFunctionCount)
Response.Write ""
Do
Response.Write ""
MyFunctionCount = MyFunctionCount + 1
Loop Until MyFunctionCount > CInt(Mid(LastYearToShow, 3))
end sub
sub Populate_MonthDropdownIncludingUnknown(SelectedMonth)
MyFunctionTest = IsNumeric(SelectedMonth)
If MyFunctionTest <> 0 Then
OneKingdomView.org
Microsoft VBScript runtime
error '800a000d'
Type mismatch: 'ShowLoginLogoutUpdateMyProfileLinks'