Help me write this function for ASP

I have a website where I am summing up the total dollar value of registrants using a function that looks like the following: There is also another function that is formatted the same just with different values.

Code:

<% Dim intEarlyBird Function EarlyPrice() Dim strRegArray(10) Dim intLoop Select Case lstReg1Type 'registration type from the first grouping Case Individual strRegArray(1) = 105 Case Spouse strRegArray(1) = 95 Case ActivePulpitPastor strRegArray(1) = 75 Case SpecialStudentRate strRegArray(1) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg2Type 'registration type from the second grouping Case Individual strRegArray(2) = 105 Case Spouse strRegArray(2) = 95 Case ActivePulpitPastor strRegArray(2) = 75 Case SpecialStudentRate strRegArray(2) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg3Type 'registration type from the third grouping Case Individual strRegArray(3) = 105 Case Spouse strRegArray(3) = 95 Case ActivePulpitPastor strRegArray(3) = 75 Case SpecialStudentRate strRegArray(3) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg4Type 'registration type from the fourth grouping Case Individual strRegArray(4) = 105 Case Spouse strRegArray(4) = 95 Case ActivePulpitPastor strRegArray(4) = 75 Case SpecialStudentRate strRegArray(4) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg5Type 'registration type from the fifth grouping Case Individual strRegArray(5) = 105 Case Spouse strRegArray(5) = 95 Case ActivePulpitPastor strRegArray(5) = 75 Case SpecialStudentRate strRegArray(5) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg6Type 'registration type from the sixth grouping Case Individual strRegArray(6) = 105 Case Spouse strRegArray(6) = 95 Case ActivePulpitPastor strRegArray(6) = 75 Case SpecialStudentRate strRegArray(6) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg7Type 'registration type from the seventh grouping Case Individual strRegArray(7) = 105 Case Spouse strRegArray(7) = 95 Case ActivePulpitPastor strRegArray(7) = 75 Case SpecialStudentRate strRegArray(7) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg8Type 'registration type from the eigth grouping Case Individual strRegArray(8) = 105 Case Spouse strRegArray(8) = 95 Case ActivePulpitPastor strRegArray(8) = 75 Case SpecialStudentRate strRegArray(8) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg9Type 'registration type from the ninth grouping Case Individual strRegArray(9) = 105 Case Spouse strRegArray(9) = 95 Case ActivePulpitPastor strRegArray(9) = 75 Case SpecialStudentRate strRegArray(9) = 75 Case Else Response.Redirect "ErrorType.asp" End Select Select Case lstReg10Type 'registration type from the tenth grouping Case Individual strRegArray(10) = 105 Case Spouse strRegArray(10) = 95 Case ActivePulpitPastor strRegArray(10) = 75 Case SpecialStudentRate strRegArray(10) = 75 Case Else Response.Redirect "ErrorType.asp" End Select '-- Sum up the total selections For intLoop = 1 to 10 intEarlyBird = intEarlyBird + Cint(strRegArray(intLoop)) Next End Function %>

I am then calling the function from another .asp page.

But where I am lost is how to write code to determine which function to call based on the current date? The registration price changes after March 31,2001.

Below is the code for the .asp page that calls the two and functions

any ideas? Code please.

Code:

'-- Call the Date Functions MyDate = Date If MyDate <= "03/31/01" Then EarlyPrice() Else RegPrice() gDateEarlyPassed = EarlyPrice() gDateRegularPassed = RegPrice() If gDateEarlyPassed = intEarlyBird Then 'continue Else gDateRegularPassed = intRegBird 'continue End If '-- Add new record to the database