Online Banking


      Forgot Username?
      Forgot Password?

Find ATM's & Locations

Advanced Search


Contact Us

Whether you need help, have a question or just want to say hello we're only a click or phone call away.




 
 
Mail
Great Florida Bank
c/o Customer Service
15050 N.W. 79th Court Suite 200
Miami Lakes, Florida 33016

<% Function XDigits(sNumberString, nReturnLength) If nReturnLength > Len(sNumberString) Then XDigits = String(nReturnLength - Len(sNumberString), "0") & sNumberString Else XDigits = Right(sNumberString, nReturnLength) End If End Function Function validateEmail(Email) ' Checks to see if the user inputted a value ' If so, remove leading and trailing blanks and upcase it Email = ucase(trim(Email)) ' Grab the length of the email address inputted email_len=len(Email) ' if the user has inputted a value start checking it if trim(Email) <> "" then ' Loop that will check each character of the inputted value ' for the @ and the dot for counter = 1 to email_len 'If there is an @ set u_at to the position it was found in if mid(Email,counter,1)="@" then ' count the number of @'s at_counter=at_counter+1 ' if there is more than one add it to the message if at_counter > 1 then message = message &"There appears to be multiple @'s in the email address
" end if ' if this is the 1st @ note the location in the string if u_at = "" then u_at=counter end if ' end check for first @ end if ' end check for the @ 'If there is a dot (.) set u_dot to the position it was found in if mid(Email,counter,1)="." then '-- if u_dot = "" then u_dot=counter '-- end if 'end check for the first dot end if 'end check for the dot next ' Check to see if the dot comes after the @ ' and that the first dot is not the last character if (u_dot < u_at) or (len(Email) <= u_dot+1) or ((u_dot-u_at) < 2) then message = message & "Email address appears to be wrong
" end if 'end check for dot after the @ ' Scan the user input to see that all inputted values are either a letter A-Z, ' a number 0-9 or if the character is a . or and @. for counter=1 to len(Email) if (mid(Email,counter,1) <> "/") and ((mid(Email,counter,1) > chr(45)) and (mid(Email,counter,1) < chr(58))) or ((mid(Email,counter,1) > chr(63)) and (mid(Email,counter,1) < chr(91))) or (mid(Email,counter,1) = chr(95)) or (mid(Email,counter,1) = chr(46)) then else ' If it's an invalid charcter add it to the display message message = message & "Invalid character "& mid(Email,counter,1)& " found in email address
" end if 'end check for invalid characters next 'end loop for invalid characters end if 'end check for user input ' If the email address os not OK than display the message(s) ' and show the text box for user input with the last value pre-filled if message <> "" or Email = "" then errMsg = message end if validateEmail = errMsg End Function %>