essex

Olá Pessoal

Quero pintar com uma cor o campo ou os campos que forem alterados... como faço...

Tentei o código abaixo mas nao deu certo, sempre mostra linha pintada em vermelho...

-------------------------------------------------------------------------------------------------------------------

SQL = "UPDATE tabela SET nome_resp_vendas = '" & var_nome_resp_vendas & "', nome_resp_producao = '" ............ etc...... & "', data_hora_vendas ='" & var_data_hora_vendas & "' WHERE id = " & Request.QueryString("id")

Conexao.execute(SQL)
Call Fecha_Tabelas

Response.Redirect("pesquisa_vendas1.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_nome_resp_vendas = rs("nome_resp_vendas")

%>

<%
' ========== ERRO AQUI !!!!

if var_nome_resp_producao = rs("nome_resp_producao") then %>
<span style="color:black">
<% var_nome_resp_producao = rs("nome_resp_producao") %>
<% response.write("teste = mostra cor pintada")%>
</span>

<% else %>

<span style="color:red">
<% var_nome_resp_producao = rs("nome_resp_producao") %>
<% response.write("teste = mostra cor pintada")%>
</span>

<% end if %>




Alguem teria alguma dica....

Uso XP - SP 3 - IIS já instalado com um alias INTRA no micro 1.


192.168.1.1 - Modem / Roteador :

192.168.1.2 - Micro 1

Tenho uma pasta com arquivos asp.


192.168.1.3 - Estou no micro 2 agora e digitei http://192.168.1.2/intra/index.asp
e nao abre a página????

Era para ser simples pelo que andei lendo por ai na net, o que estou esquecendo ?

Alguem pode me dar uma força, por favor?

Abraço

Grato



Olá pessoal


Solução ====>>> Desativar o Firewall do Windows XP

Essa bagaça estava bloqueando....

Resolvido....

Olá

Assim eu listo os registros, esta funcionando certinho ...

Minha dúvida é buscar o valor do campo do tipo SIM/NAO para listá-lo como os outros campos... nao estou
conseguindo buscar da tabela, alguem poderia me dar uma dica por favor?


<!--#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

%>

<input name="ckbox_pedido" type="text" class="formata_campo11" id="ckbox_pedido"
value="<%=rs("Nome") %>" size="1" maxlength="1" readonly="true">

<input name="ckbox_orcamen" type="text" class="formata_campo11" id="ckbox_orcamen"
value="<%=rs("cidade") %>" size="1" maxlength="1" readonly="true">


' A duvida esta na linha abaixo ... como pego o valor do campo ?
' Nao sei como pegar o valor da tabela e armazenar nesta variavel para lista

<%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
%>

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>