che stupido :P

lascia perdere quella di prima

così è più semplice...
longline ha ragione

codice:
<%

function controllaparola(parola)

	dim ii,flag,temp
	
	flag = false
	for ii=1 to len(parola)
	
		if instr(temp,mid(parola,ii,1)) <> 0 then
			flag = true
			exit for
		end if
		temp = temp & mid(parola,ii,1)
	
	next
	controllaparola = flag
	
end function

miaparola = "simone"

if controllaParola(miaparola) then
	response.write "ripetizione"
else
	response.write "nessuna ripetizione"
end if

%>