solo letras o numeros

[wachuwe]

hola a todos
necesito validar una cadena. Esta cadena solo a de tener letras o numeros, nada de caracteres raros. ¿hay alguna funcion que me evite escribir todas las letras y numeros?
parte del codigo es:

Select Case letra=Mid(GetFileNameTemp, Pos, 1)
Case "a", "A", "0",.......,"Z":
temp=temp&letra
End Select

en donde pongo los puntos suspensivos tendria que ir escribiendo todos las letras minusculas y mayuscual y todos los numeros
hay algo que me evite todo este trabajo???

Gracias y Un saludo

[carcellan]

Comprueba su valor ASCII con la función ASC:

los números están entre 48 y 55, las letras mayúsculas entre 65 y 90 y las minúsculas entre 97 y 122

Saludos

[ElAprendiz]

alguien tiene esa funcion por ahi?

[AlZuwaga]

podrías hacer algo así:

Código:

<%
function letrasynumeros(cadena)
letrasynumeros = true
carPermitidos = "0123456789abcdefghijklmnñopqrstuvwxyz"

for i = 1 to len(cadena)
	carActual = mid(cadena,i,1)
	if InStr(LCase(carPermitidos), Lcase(carActual)) = 0 then
		letrasynumeros = false
		exit for
	end if
next
end function

if not letrasynumeros("5*6AbB") then response.write "¿qué parte de <em>sólo letras y números</em> no has entendido?"
%>

[ElAprendiz]

yo habia hecho algo asi

Código:

Function error_texto(texto)
arreglo=split(texto)
for i=lbound(arreglo) to ubound(arreglo)
	if arreglo(i)<chr(48) or (arreglo(i) >chr(57) and arreglo(i)<chr(65)) or (arreglo(i)>chr(90) and arreglo(i) <chr(97)) or arreglo(i)>chr(122) then
		error_texto=1
	end if
next
End Function

probare ese tambien