Como fazer a função receber o parametro ?

[MarKteus 1]

Criei uma função assim:

 

function CriaCombo(aTab, oCampo, cMensa)

if len(aTab(oCampo)) > 0 then

response.write aTab(oCampo)

else

response.write "Não definido ainda"

end if

end function

 

e chamo ela assim:

 

<select name="nomeFunc">

<option value="<%=CriaCombo("rsTabelas","id","Não definido")%>" selected><%= CriaCombo("rsTabelas","id","Não definido")%></option>

</select>

 

Porém se dou um response.write em aTab lá na função nada é exibido, ou seja, os parametros que estou passando estão chegando lá vazio e olha que estou mandando texto, o que é que pode estar acontecendo ?

[jrcardozo 4]

acho que sua função está incompleta já que não utilizou o parametro oMensa, mas eu faria algo assim:

 

 

Sub CriaCombo(oValor, cMensa)
 if len(oValor) > 0 then 
 response.write oValor
 else
 response.write cMensa
 end if 
end Sub

<select name="nomeFunc">

<option value="<%Call CriaCombo(rsTabelas("id"),"Não definido")%>" selected><%Call CriaCombo(rsTabelas("id"),"Não definido")%></option>

</select>

[MarKteus 1]

acho que sua função está incompleta já que não utilizou o parametro oMensa, mas eu faria algo assim:

 

 

Sub CriaCombo(oValor, cMensa)
 if len(oValor) > 0 then 
 response.write oValor
 else
 response.write cMensa
 end if 
end Sub

<select name="nomeFunc">

<option value="<%Call CriaCombo(rsTabelas("id"),"Não definido")%>" selected><%Call CriaCombo(rsTabelas("id"),"Não definido")%></option>

</select>

 

Mas o fato de não estar utilizando um valor passado acarretaria no erro relatado ?