Problema con rut

[Cony28]

Hola amigos:
estoy haciendo una validacion de rut no me arroja ningun error pero quiero que me despliege el digito verificador y no me lo tira, tengo lo siguiente:

<%
Function codigo_veri(rut)
rut=request.Form("rut")
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"
Response.Write(codigo_veri)

elseif valor = 10 then
codigo_veri = "k"
Response.Write(codigo_veri)

else
codigo_veri = valor
response.Write(valor)
end if
end function
%>
entonces quiero que el response.write me tire el digito verificador, pero me sale la pagina vacia sin ningun error.El rut lo lleno de un formulario que llama a la pagina.
Gracias!!!!

[skatomundo]

pasando un Request.form("rutvalor") desde el formulario o submit

luego hago call a la funcion:

ESO ME FUNCIONO A MI...

CHEK LaDY

Código:

<form action="rut.asp?inicio=1" method="post">
<input name="rut" type="text">
<input name="A" type="submit" value="Ver Digito">
</form>
<%
if request.QueryString("inicio") = 1 then
 call codigo_veri(request.Form("rut"))
 Function codigo_veri(rut) 
	rut = request.Form("rut")
	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_veri2 = "0"
	elseif valor = 10 then 
		codigo_veri2 = "k" 
	else 
		codigo_veri2 = valor 
	end if 
	response.Write("El rut Conformado: " & rut &"-"& codigo_veri2)
 end function 
 
end if
%>

[skatomundo]

si si hay algo demas... la decla de RUT x 2 si es valor de la funcion.. :(

[Muzztein]

checa esto


<%
Function codigo_veri(rut)
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
end function


paso = codigo_veri(13069666)
response.write paso

%>