Function para remplazar parte de un campo

[u_goldman]

Bueno, si es una funcion te debe regresar un valor, y seguramente, no la estas asignando a ninguna variable.

Código:

<%
Function cambia_letras(campo)
             Dim fnctCampo
	if inStr(campo,"BI") >0 then
	     fnctCampo = Replace(campo,"BI","48")
	else 
		if inStr(campo,"AL")>0 then
		  fnctCampo = Replace(campo,"AL","01")
		else
		  fnctCampo = Replace(campo,"GU","20")
		end if
	end if
            cambia_letras = fnctCampo
End Function
%>

variable = cambia_letras("B1")

Response.Write variable

Salu2,