Checkbox - Checked - Unchecked - ASP

#1 essex

Novato no fórum

Usuários
7 posts

Sexo:Não informado

Posted 03/04/2009, 11:44

Olá Pesoal

Tenho um campo no Access de nome "aprova_jpg_sim" do tipo "Sim/Nao"

Como faço para que a caixinha do checkbox fique assinalada, pois há um valor neste campo...
mas não fica marcada e o valor é True ?

======== Modulo INCLUSAO ============

' 0 = false
' 1 = true


 If var_aprova_jpg_sim = "checkbox"   then 
	var_aprova_jpg_sim = 1 
 else
	var_aprova_jpg_sim = 0
 end if

======== Modulo ALTERACAO ============

A sua sugestao esta resultando o valor "zero" - 0 e a caixinha nao fica assinalada
no modo de edicao

select case Request.QueryString("salvar")
case "ok"
:
:
var_aprova_jpg_sim = Request.Form("c_aprova_jpg_sim") '11
:
:
:
if var_aprova_jpg_sim  = "" then var_aprova_jpg_sim = Chr(10)
:
:
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , "<", "&lt;") 
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , ">", "&gt;")
var_aprova_jpg_sim  = Replace(var_aprova_jpg_sim , "'", "''")
:
:


SQL = "UPDATE tabela SET nome_resp_vendas = '" & var_nome_resp_vendas ....
& var_horario_entr_arq & "', aprova_jpg_sim = '" & var_aprova_jpg_sim & "', aprova_jpg_nao = '" & var_aprova_jpg_nao &  "' WHERE id = " & Request.QueryString("id")

Conexao.execute(SQL)
Call Fecha_Tabelas

Response.Redirect("pesquisa.asp")

end select
SQL = "SELECT * FROM tabela WHERE id = " & Request.QueryString("id")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conexao, 3

var_id = rs("id")
:
var_aprova_jpg_nao = rs("aprova_jpg_nao")
:

rs.Close
set rs = nothing
Call Fecha_Tabelas
'conexao.Close
'set conexao = nothing
%>

<html>
<head>
<title>.: Altrerando Registro :.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">


<input name="c_aprova_jpg_sim" type="checkbox" id="c_aprova_jpg_sim" 
value="<%If var_aprova_jpg_sim Then
  var_aprova_jpg_sim = 1
Else
  var_aprova_jpg_sim = 0
End If
%>">

						
</form>
</body>
</html>

Edição feita por: DarkSign, 13/04/2009, 13:42.
Use [code] pra ajudar na visibilidade

#2 acooper

Ativo

Usuários
368 posts

Sexo:Masculino
Localidade:Recreio dos Bandeirantes

Posted 03/04/2009, 13:23

Caro, vê se ajuda.

if ag.ATIVO = true then
v = "checked"
end if
Response.Write("<input type='checkbox' name='checkbox' value='checkbox' "&v&">")

Andre Figueiredo
Analista de Sistema Senior
Tel.: + 55 - (21) 3824-4698- Cel: + 55 - (21) 9127-2772
E-Mail: andre.figueiredo@veirano.com.br
Skype: andre.figueiredo.veirano.com.br

#3 essex

Novato no fórum

Usuários
7 posts

Sexo:Não informado

Posted 03/04/2009, 18:47

Colega, muito obrigado.... quase 100%

<%If var_aprova_jpg_sim = True Then
var_aprova_jpg_sim = "checked"
End If
%>
<%Response.Write("<input type='checkbox' name='c_aprova_jpg_sim' value='checkbox' "& var_aprova_jpg_sim & ">")
%>

Tipo, se tiver TRUE o checkbox ficará "assinalado" como eu queria.... mas se eu deixar
em branco o checkbox nao consigo gravar... tenho um erro... acho que meu " if " nao esta 100%

Tenho que mover 1 ou 0 para algum lugar ai? Nao sou muito conhecedor...

tentei isse código... mas tambem nao deu....

<%If var_aprova_jpg_sim = True Then

var_aprova_jpg_sim = "checked"

Response.Write("<input type='checkbox' name='c_aprova_jpg_sim' value='checkbox' "& var_aprova_jpg_sim & ">")

else

var_aprova_jpg_sim = 0
Response.Write("<input type='checkbox' name='c_aprova_jpg_sim' value='checkbox'>")
End If
%>

Amigo, valeuuuuu - obrigado pela "luz" .. consegui agora....

Estou postando, caso possa ajudar alguem mais...

Finalmente........... eba

Se ajudar mais alguem... agora posso ativar e desativar o "bendito" checkbox -
Esta funfandoooo....

select case Request.QueryString("salvar")
case "ok"
:
:
var_aprova_jpg_sim = Request.Form("c_aprova_jpg_sim") '11
:
:
:
if var_aprova_jpg_sim = "" then var_aprova_jpg_sim = Chr(10)
:
:
var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , "<", "<")
var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , ">", ">")
var_aprova_jpg_sim = Replace(var_aprova_jpg_sim , "'", "''")
:
:

If var_aprova_jpg_sim = "checkbox" then
var_aprova_jpg_sim = 1
else
var_aprova_jpg_sim = 0
end if

SQL = "UPDATE tabela SET nome_resp_vendas = '" & var_nome_resp_vendas ....
& var_horario_entr_arq & "', aprova_jpg_sim = '" & var_aprova_jpg_sim & "', aprova_jpg_nao = '" & var_aprova_jpg_nao & "' WHERE id = " & Request.QueryString("id")

Conexao.execute(SQL)
Call Fecha_Tabelas

Response.Redirect("pesquisa.asp")

end select
SQL = "SELECT * FROM tabela WHERE id = " & Request.QueryString("id")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conexao, 3

var_id = rs("id")
:
var_aprova_jpg_nao = rs("aprova_jpg_nao")
:

rs.Close
set rs = nothing
Call Fecha_Tabelas
'conexao.Close
'set conexao = nothing
%>

<html>
<head>
<title>.: Altrerando Registro :.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="estilos.css" rel="stylesheet" type="text/css">

<%If var_aprova_jpg_sim = True Then

var_aprova_jpg_sim = "checked"

Response.Write("<input type='checkbox' name='c_aprova_jpg_sim' value='checkbox' "& var_aprova_jpg_sim & ">")

else

Response.Write("<input type='checkbox' name='c_aprova_jpg_sim' value='checkbox' "& var_aprova_jpg_sim & ">")
End If
%>

</form>
</body>
</html>

Edição feita por: essex, 03/04/2009, 18:48.

Checkbox - Checked - Unchecked

#1 essex

#2 acooper

#3 essex

0 user(s) are reading this topic

Entrar