Postagens
Opa.... legal gostei da otimização do código. Não me considero "o cara" na programacao em ASP... mas, estou tentando melhorar sempre e dicas como a sua e de outros colegas que contribuem para com as pessoas como eu e demais que buscam ajuda aqui são sempre bem show - e TODOS aprendem - Muito obrigado!
Mas, como poderia fazer para pintar somente o(s) campo(s) de outra cor quer forem alterados ?
Poderias me dar uma dica como seria, por favor?
Abraço
- Fórum WMO
- → Viewing Profile: Posts: essex
Community Stats
- Group Usuários
- Active Posts 7
- Profile Views 769
- Member Title Novato no fórum
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
0
Neutral
User Tools
Friends
essex hasn't added any friends yet.
Latest Visitors
Posts I've Made
In Topic: Ao Alterar Um Um Campo Pintar Com Cor
22/04/2009, 19:19
In Topic: Ler Campo Sim/nao Do Access
14/04/2009, 11:49
Tentei desta forma e deu certo... na listagem mostra o checkbox assinalado...
Obrigado pela atenção
<!--#include file="conexao.asp"-->
<%
Dim Conexao
Call Abre_Tabelas
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_sim = rs("aprova_jpg_sim")
var_aprova_jpg_nao = rs("aprova_jpg_nao")
var_arquivo_aberto = rs("arquivo_aberto")
var_arquivo_pdf = rs("arquivo_pdf")
var_digital_sim = rs("digital_sim1")
var_digital_nao = rs("digital_nao1")
%>
:
:
<%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
%>
Obrigado pela atenção
<!--#include file="conexao.asp"-->
<%
Dim Conexao
Call Abre_Tabelas
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_sim = rs("aprova_jpg_sim")
var_aprova_jpg_nao = rs("aprova_jpg_nao")
var_arquivo_aberto = rs("arquivo_aberto")
var_arquivo_pdf = rs("arquivo_pdf")
var_digital_sim = rs("digital_sim1")
var_digital_nao = rs("digital_nao1")
%>
:
:
<%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
%>
In Topic: Checkbox - Checked - Unchecked
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>
<%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>
- Fórum WMO
- → Viewing Profile: Posts: essex
- Privacy Policy
- Regras ·
