te dice si el rut es correcto o no ;)
Bueno, fuera de broma te puedo ayudar un poko con el codigo mas no con el fin ...
<%
aux = Request.form("Rut") ' toma el valor del campo RUT recojido de un formulario y lo asigna la variable AUX
verif = Request.form("rutverif") ' toma el valor del campo RUTVERIF recojido de un formulario y lo asigna la variable VERIF
factor = 2 'asigna el valor de 2 a la variable FACTOR
suma = 0 ' Inicializa la variable sume en cero
k = "k" ' asigna el caracter K a la variable K
cero = 0 ' Inicializa la variable sume en cero
Do While aux <> 0 ' Mientras aux sea diferente de cero
digito = aux Mod 10 ' toma el resto de la division de aux entre diez
suma = suma + (factor * digito) ' Asigna el valor a la variable SUMA sumandole el valo de Suma a la multiplicacion de de la variable factor por digito
aux = Int (aux / 10) ' Asigna el valor de la parte entera de la division de aux entre diez
factor = (factor + 1) ' Le suma una 1 a la variable factor. contador
If factor = 8 Then ' Si factor llega a 8 entonces
factor = 2 ' factor pasa a ser 2 otra vez
End If
Loop
'bueno esta esta como suelto pero deberia
dv = 11 - suma Mod 11 'Restarle 11 a el resto de la division de suma entre 11 y lo asigna a la variable dv
If dv = 10 Then ' si dv es igual a diez
dv = k 'dv es igual a k
End If
If dv = 11 Then ' Si dv es igual a once
dv = cero ' dv es igual a CERO como cadena
End If
Response.Write "El rut: " & Request.form("Rut") & " - " & Request.form("rutverif") & "<br>"
If verif = dv Then ' Si la variable verif tiene el mismo valor que dv
Response.Write "es correcto" ' Escribe que El rut ... ... es correcto
Else 'de lo contrario
Response.Write "es incorrecto" ' Escribe que El rut ... ... es incorrecto
End If
%>
-------------------
Espero no me haya pelao
<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>
Usuario # 3359 en los foros</div>