290807.



A continuacion veremos el script para validar un numero RUT (Numero de Identidad en Chile)

Primero una pagina que pregunta por el rut, luego en otra el script que lo procesa e indica si el numero ingresado es válido o invalido. Espero que a todos los chilenos les sea útil.

pagina1.asp

<FORM METHOD="post" ACTION="pagina2.asp">
<B>Rut </B>
<INPUT TYPE="text" NAME="rut" SIZE="10">
<INPUT TYPE="text" NAME="dig" SIZE="3">
<INPUT TYPE="submit" NAME="Submit" VALUE="Comprobar">
</FORM>

pagina2.asp

<%
rut= trim(request.form("rut"))
dig=trim(request.form("dig"))
tur=strreverse(rut)
mult = 2

for i = 1 to len(tur)
if mult > 7 then
mult = 2
end if
suma = mult * mid(tur,i,1) + suma
mult = mult +1
next

valor = 11 - (suma mod 11)

if valor = 11 then
codigo_veri = "0"
elseif valor = 10 then
codigo_veri = "k"
else
codigo_veri = valor
end if

if Cstr(dig)=Cstr(codigo_veri) then
response.write "El rut esta correcto"
else
response.write "El rut esta incorrecto"
end if
%>