Function para remplazar parte de un campo

[Shaka]

Porque esta funcion me da error?

Código:

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

Me dice:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub
/cmv/view/home.asp, línea 48, columna 24
Replace(campo,"BI","48")
-----------------------^
Podran ayudarme?
Gracias

[Muzztein]

las funciones son rutinas que devuelven un valor
las sub rutinas son rutinas que hacen algo.

la diferencia es que un replace es una funcion, por lo tanto devuelve un valor.
en este caso no le estas diciendo a que le estas asignado el valor que arroja el replace.


osea tu funcion quedaria asi:

Código:

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

[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,

[trasgukabi]

variablesalida=Replace(campo,"BI","48")

[Shaka]

Muchas gracias,
Gracias a ustedes he solucionado el problema y he aprendido mas
De nuevo
muchas gracias

[trasgukabi]

No te quejarás, tres maneras diferentes de decir lo mismo!! jjjejejejjejej