Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

essex

[Resolvido] Checkbox - Checked - Unchecked

Por , em ASP Clássico

Recommended Posts

jrcardozo    4

jrcardozo
Postado 

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

possivelmete o if acima corrija pois coê compara uma variavel com uma string e o resultado tenta atribuir um inteiro

 

PS. não li todo os posts, respondi de acordo com o ultimo erro apresentado

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Aquilo é o código inteiro? Se for é aí que está o erro.

 

Você tem que armazenar algo na variável var_aprova_jpg_sim . Onde está fazendo isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

essex    0

essex
Postado

quase 100% - tive uma luz com outro colega...

 

 

<%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 & ">")

%>

 

O problema é que quando quero desabilitar o registro e tento salvar tenho o erro abaixo

 

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/tip1/alteracao1.asp, line 543

 

 

Acho que tenho que melhorar algo ali no meu "if" .............

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kalmfs    0

Kalmfs
Postado

Vê se isso te ajuda cara.

<% 
		  Dim texto_m2, texto_t2, texto_n2
		  If edita.Fields.Item("manha2").Value <> 0 Then 
		  texto_m2 = "checked=""checked"""
		  End If
		  If edita.Fields.Item("tarde2").Value <> 0 Then 
		  texto_t2 = "checked=""checked"""
		  End If
		  If edita.Fields.Item("noite2").Value <> 0 Then 
		  texto_n2 = "checked=""checked"""
		  End If
		  %>
			<label>
			<input type="checkbox" name="manha2" id="manha2" <%= texto_m2 %> />Manhã</label>
			<label>
			<input type="checkbox" name="tarde2" id="tarde2" <%= texto_t2 %> />Tarde</label>
			<label>
			<input type="checkbox" name="noite2" id="noite2" <%= texto_n2 %> />Noite</label>

Compartilhar este post

Link para o post
Compartilhar em outros sites

essex    0

essex
Postado

Finalmente........... eba http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito