<%@ LANGUAGE=VBScript %>
<%
' ************* Four-Digit Random Number Generator *******************
Function GetRandomNumber1(LowerBound,UpperBound)
Randomize()
GetRandomNumber1 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetRandomNumber2(LowerBound,UpperBound)
Randomize()
GetRandomNumber2 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetRandomNumber3(LowerBound,UpperBound)
Randomize()
GetRandomNumber3 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetRandomNumber4(LowerBound,UpperBound)
Randomize()
GetRandomNumber4 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Dim GetRandomNumber
GetRandomNumber = (GetRandomNumber1(0,99))
GetRandomNumber = (GetRandomNumber & GetRandomNumber2(0,99))
GetRandomNumber = (GetRandomNumber & GetRandomNumber3(0,99))
GetRandomNumber = (GetRandomNumber & GetRandomNumber4(0,99))
' ************* Four-Digit Random Number Generator *******************
Function GetBatchNumber01(LowerBound,UpperBound)
Randomize()
GetBatchNumber01 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetBatchNumber02(LowerBound,UpperBound)
Randomize()
GetBatchNumber02 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetBatchNumber03(LowerBound,UpperBound)
Randomize()
GetBatchNumber03 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetBatchNumber04(LowerBound,UpperBound)
Randomize()
GetBatchNumber04 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Dim GetBatchNumber
GetBatchNumber = (GetBatchNumber01(0,99))
GetBatchNumber = (GetBatchNumber & GetBatchNumber02(0,99))
GetBatchNumber = (GetBatchNumber & GetBatchNumber03(0,99))
GetBatchNumber = (GetBatchNumber & GetBatchNumber04(0,99))
' ************* Four-Digit Random Number Generator *******************
Function GetLotNumber01(LowerBound,UpperBound)
Randomize()
GetLotNumber01 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetLotNumber02(LowerBound,UpperBound)
Randomize()
GetLotNumber02 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetLotNumber03(LowerBound,UpperBound)
Randomize()
GetLotNumber03 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Function GetLotNumber04(LowerBound,UpperBound)
Randomize()
GetLotNumber04 = Int((upperbound-lowerbound+1) * Rnd + lowerbound)
End Function
Dim GetLotNumber
GetLotNumber = (GetLotNumber01(0,99))
GetLotNumber = (GetLotNumber & GetLotNumber02(0,99))
GetLotNumber = (GetLotNumber & GetLotNumber03(0,99))
GetLotNumber = (GetLotNumber & GetLotNumber04(0,99))
%>
Chris Anderson - Send a Ramona postcard
