<% Function isAlpha(str) Dim iPos, bolValid iPos = 1 bolValid = True While iPos <= Len(str) and bolValid if Asc(UCase(Mid(str,iPos,1))) < Asc("A") or _ Asc(UCase(Mid(str,iPos,1))) > Asc("Z") then _ bolValid = False iPos = iPos + 1 Wend isAlpha = bolValid End Function %>