Rotina Para Agilizar Ifs

[Jony Walker]

Eu estou morrendo aqui de tanto colocar if para uns 30 campos da minha tabela, alguém aí teria como me ajudar a criar um for para que eu substitua cada condicional de cada campo ??

Tipo para cada valor que entrar em um campo da tabela vazio substituir pelo valor zero....

Ia agilizar pra caraca meu, estou quebrando a cabeça pra montar um aqui e num sai nada..

[cyberalexxx]

função é solucao:

function formata(valor)
   if len(valor) = 0 then
      formata = "0"
   else
      formata = valor
   end if
end function

'usando a função
response.write formata(rs("campo"))

[Jony Walker]

vixxx cyberalexx, esse teu script eu até gostei, mas o q eu estava falando era na hora de inserir na tabela do banco, tipo assim:

if agv = "" then

agv = 0

end if

ai pra num fazer isso trocentas vezes nos checkboxes q eu tenho, tentar montar um for pra agilizar o eskema...

Desculpas, acho q me expliquei mal

[cyberalexxx]

voce pode usar a função na hora de inserir:

[/code]

[Jony Walker]

Valeu cyberalexx, vou implementar essa function e retorno com o resultado. !!!

[Jony Walker]

Se eu quiser implementar para uso em checkboxes como faço ??

function formata(valor)

  if (valor) = 1 then

    formata = true

  else

    formata = false

  end if

end function

   

[cyberalexxx]

Se eu quiser implementar para uso em checkboxes como faço ??

function formata(valor)

  if (valor) = 1 then

    formata = true

  else

    formata = false

  end if

end function

   

não costumo trabalhar com campos do tipo verdadeiro/falso, geralmente eu uso um campo numérico e armazeno 0 ou 1, tenta da maneira que voce postou se der erro coloque o true e o false entre aspas

[Jony Walker]

Putz eu estou fazendo assim (usando checkboxes):

  function formata(valor)

  if valor = "on" then

    formata = true

  else

    formata = false

  end if

end function

   

Mesmo assim tah saindo tudo false no retorno, q q pega ??

[JCMPJ]

Veja se ajuda:

São campos tipo checkbox, certo, então se não for marcado sempre retorna um "", por outro lado se for marcado vai retornar o que foi especificado no parametro value. Caso os campos correspondentes no bando de dados forem do tipo BIT (sim/não no access), pode fazer como está abaixo.

function valorBoolean(strBoo)

Dim aux

If strboo <> "" Then

aux = 1

Else

aux = 0

End IF

valorBoolean = Cint(aux) ' para forçar um cast

End function

[Jony Walker]

Cara, o value do campo é o standard "checkbox", e só retorna 0 nessa função, independente do usuáriuo ter checkado o campo ou não

[JCMPJ]

Então cara seu HTML deve estar assim Oh

<input type="checkbox" name="agv" value="">

Falou.

Acerta isso ai, tipo assim Oh

<input type="checkbox" name="agv" value="AlgumaCoisa">

[[ GuTo ]]

Faça isso e veja:

dim var1
var1 = Request.Form("checkbox")

se o valor de var1 for numérico não tem problema. se o valor de var1 for igual a ZERO, será falso, ou seja, qualquer valor diferente de zero é true então complementamos:

if NOT isnumeric(var1) then var1 = false
var1 = Cbool(var1)
response.write var1

Para conferir, dê valor numéricos e valores de string para var1 e teste.

Dê o valor "0" (Zero) como string, que será retornado false.

Bem simples!

Então, nos seus checkboxes, coloque value="1"... se for preenchido, este valor será "preenchido/checkado". Caso contrário, o valor padrão é 0/false.

até!

[Jony Walker]

Valewu Guto, mas tah dando tudo errado por aqui...

O campo do banco é sim/não... como faço pra dar insert nessa joça direito e como posso fazer a passagem de informação do checkbox para sim/não como uma function porque eu tenho mais uns 8 campos pra inserir e num queria lotar o script de ifs....