Caixa De Confirmação

[ccgpirado]

Eu estou querendo uma caixa de confirmação onde escreva letras e numeros para confirmação de votos, quem puder me ajudar eu agradeço desde já.

[dark0]

amigo, não entendi a sua duvida.

que tipo de confirmação você quer ..?

especifique melhor a duvida aí, ok?

abraços

[§uiciDa£]

sabe aqles negocinhos q quando você vai votar aparece uma imgn com uns textos loucos, pra digitar o mesmo q estra escrito lá ??

tipo anti spam (se não me engano)...

porem, eu num sei fazer

[bareta]

esse codigo gera o codigo ai para fazelo funcionar já é outros 500....

<% 
Function GeraString(tamString, tipo, tamParte) 
tamString = Int(tamString) 'nº de caracteres em cada parte 
tipo = Int(tipo) 'tipo da String: 1 alfanumérica, 2 = só letras, 3 = números 
tamParte = Int(tamParte) 'nº de partes que será criada 
if IsNumeric(tamString) = False OR tamString = 0 then 
tamString = 5 
end if 
if IsNumeric(tipo) = False OR tipo = 0 then 
tipo = 1 
end if 
if IsNumeric(tamParte) = False OR tamParte = 0 then 
tamParte = 3 
end if 
if tipo = 1 then 
MyArr = Array("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") 
elseif tipo = 2 then 
MyArr = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") 
else 
MyArr = Array("1","2","3","4","5","6","7","8","9","0") 
end if 
for d = 1 to tamParte 
for i = 1 to tamString 
Randomize 
StringGerada = StringGerada & MyArr(Int(Rnd*UBound(MyArr))) 
next 
varRand = StringGerada 
if tamParte = 1 then 
StringFinal = StringFinal & "{" & varRand & "}" 
else 
if d = tamParte then 
StringFinal = StringFinal & varRand & "}" 
else 
if d = 1 then 
StringFinal = StringFinal & "{" & varRand & " - " 
else 
StringFinal = StringFinal & varRand & " - " 
end if 
end if 
end if 
StringGerada = "" 
next 
GeraString = StringFinal 
End Function 
%>

<div align='center' style="font-family:verdana; font-size:11px"> 
<%=GeraString(7, 1, 1)%> 
</div>