% Dim firstNumber, firstLower, firstUpper, firstOther, latterNumber, _ latterLower, latterUpper, latterOther, passwordLength, extraChars firstNumber = "false" firstLower = "true" firstUpper = "true" firstOther = "false" latterNumber = "true" latterLower = "true" latterUpper = "true" latterOther = "false" passwordLength = 8 extraChars = "" Function getRandomNum(lbound, ubound) For j = 1 To (250 - ubound) Randomize getRandomNum = Int(((ubound - lbound) * Rnd) + 1) Next End Function Function getRandomChar(number, lower, upper, other, extra) numberChars = "0123456789" lowerChars = "abcdefghijklmnopqrstuvwxyz" upperChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" otherChars = "`~!@#$%^&*()-_=+[{]}\\|;:"""'\,<.>/? " charSet = extra if (number = "true") Then charSet = charSet + numberChars if (lower = "true") Then charSet = charSet + lowerChars if (upper = "true") Then charSet = charSet + upperChars if (other = "true") Then charSet = charSet + otherChars jmi = Len(charSet) getRandomChar = Mid(charSet, getRandomNum(1, jmi), 1) End Function Function getPassword(length, extraChars, firstNumber, firstLower, _ firstUpper, firstOther, latterNumber, latterLower, latterUpper, latterOther) rc = "" If (length > 0) Then rc = rc + getRandomChar(firstNumber, firstLower, firstUpper, firstOther, extraChars) End If For idx = 1 To length - 1 rc = rc + getRandomChar(latterNumber, latterLower, latterUpper, latterOther, extraChars) Next getPassword = rc End Function strUltraPass = getPassword(passwordLength, extraChars, _ firstNumber, firstLower, firstUpper, firstOther, _ latterNumber, latterLower, latterUpper, latterOther) %> <%Session("svuser") = strUltraPass%> <%Session("svpassword") = strUltraPass%>
|
|||||
Recurring EAGO Membership Dues PaymentYou may now pay your EAGO membership dues by credit card! Please select the option below to set up your dues payment on a recurring basis. You can use the option below to select to pay your monthly dues with your credit card. Note that you can only use this option to pay recurring payments monthly of 90.00. If you would like to pay by credit card for anything else, please use the one time option available here. This means that each month the credit card you enter below will be charged. You will receive an email confirmation of your charge. Monthly Recurring charge of 90.00:
Note: By selecting this option your card will be charged each month on the 1st of the month automatically. If you would like to make a one time only payment, click here
|
|||||
| Contact Us | Privacy Statement | Refund and Cancellation Policy | Copyright © 2004 - 2008 AdAstra Technologies, Inc. All Rights Reserved. |
|||||