% 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 PaymentPay your EAGO membership dues by credit card! Note that you can use the first 3 options to sign up for recurring payments monthly, quarterly or annually. Enter your information one time and it will automatically bill you when your next invoice is due. If you would like to make a one-time payment, please choose the very last option from the list below. Recurring Monthly Payment: Click here to charge your card Monthly for dues Click here to charge your card Quarterly for dues Click here to charge your card Annually for dues If you would like to make a one time only payment, click here Note: By selecting this option your card will be charged automatically.
|
|||||
Copyright © 2004 - 2010 AdAstra Technologies, Inc. All Rights Reserved. |
|||||