Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[DWMX]Necesito asp para validar RUT:-)

76 views
Skip to first unread message

Alvaro Martinez

unread,
Nov 19, 2002, 8:21:34 AM11/19/02
to
Hola a todos, algun chileno que sea tan amable y tenga el codigo asp para
validar un rut, agradeceria mucho que lo compartiera conmigo.
lo necesito urgente, gracias por la ayuda.
saludos.


papayero

unread,
Dec 27, 2002, 2:18:54 PM12/27/02
to
este codigo me llego, ojala te sirva

**********formrut.asp**************

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<html>

<body>

<FORM METHOD="POST" ACTION="rut.asp">

<p>RUT<br>

<INPUT NAME="RUT" TYPE="TEXT" size="15" maxlength="10">

<INPUT NAME="DIG" TYPE="TEXT" size="5" maxlength="1">

</p>

<p><br>

<INPUT name="Aceptar" TYPE="SUBMIT" id="Aceptar" value="Aceptar">

</p>

</FORM>

</body>

</html>

******rut.asp******

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<html>

Variable rut: <%=Request.Form("RUT")%><br>

Variable digito: <%=Request.Form("DIG")%><br>

<body>

<%

Dim factores

Dim total

Dim digito

Dim digver

Dim rut

factores = "5432765432"

digito=Request.Form("DIG")

rut=Request.Form("RUT")

total=0

if len(rut)=9 then rut="0"& rut

if len(rut)=8 then rut="00"& rut

if len(rut)=7 then rut="000"& rut

if len(rut)=6 then rut="0000"& rut

For i = 1 To 10

total = total + (Cint(Mid(factores,i,1)) * Cint(Mid(rut,i,1)))

Next

digver = 11 - (total Mod 11)

If digver = 10 Then

digito = "K"

ElseIf digver = 11 Then

digito = "0"

Else

digito = digver

End If

if digito <> DIG then response.write "DIGITO INCORRECTO"

%>

<br>

<%response.write(digito)%>

</body>

</html>


0 new messages