indentificar espacios en blancos

[nancy8120]

hola,
estoy haciendo lo siguiente ingreso una cadena desde un textbox y la valido segun varios
caracteres que yo misma le di como permitidos, en caso de que la cadena tenga algun caracter
fuera de los permitidos me debe mandar error,
Pero dentro de los permitidos le quiero agregar espacio en blanco pero no se como identificar el espacio en blanco
cada ves que ingreso un espacio en blanco me rompe y me manda error
este es el codigo

<%
texto=request.form("texto")
c=Lcase(texto)

letras="abcdefghijklmnñopqrstuvwxyz"
numeros="0123456789"
dihitos="&-_$@="
' space
'response.write cint(Len(texto))
estado=1
t=0
Do While (estado=1) or (t=cint(Len(texto)))
For contador = 1 To Len(texto)

if InStr(letras,c)<>"" or InStr(numeros,c)<>"" or InStr(dihitos,c)<>"" then
if t=cint(Len(texto)) then
estado=0
mensaje="ok"
end if
if not InStr(dihitos,c) then
mensaje="error"
end if
if InStr(letras,c)<>"" and InStr(numeros,c)<>"" and InStr(dihitos,c)<>"" then
mensaje="ok"
end if


end if
t=t+1
Next
loop
if estado=0 then
response.write c
response.write "<BR>"
response.write mensaje
end if


%>
saludos