PRWEBMaster

Tudo bem pessoal? Gostaria de uma ajuda para criar uma função: Tenho 5 campos, 1º QUANT | 2º SEPARAÇÃO | 3º PRODUÇÃO SMD | 4º PRODUÇÃO PTH | 5º FINALIZAR Quando coloco o valor no campo QUANT = 100 os demais campos não podem ultrapassar de 100 ai preciso que dê uma mensagem que ultrapassou o valor da quantidade. Exemplo: 1º QUANT = 100 2º SEPARAÇÃO = 25 3º PRODUÇÃO SMD = 25 4º PRODUÇÃO PTH = 25 5º FINALIZAR = 30 Ai preciso que mostre uma mensagem dizendo que ultrapassou o valor quant = 100. Obrigado

Desculpa Eu coloquei o endereço errado. Segue abaixo: LINK PAGINA Muito obrigado

Tudo bem? Segue o link para você dar uma análisada no problema que estou tendo: LINK PÁGINA Obrigado

Estou fazendo assim: set TABELA1 = oConn.execute ("SELECT DISTINCT no_os FROM TB_IMGRVS_COB ORDER BY no_os") var_total = 0 while not(TABELA1.eof) set TABELA2 = oConn.execute ("SELECT SUM(COALESCE(total_geral,0)) AS t_total FROM TB_GERAR_OF_OM_CAD WHERE no_os =" & TABELA1("no_os") & " and no_cob = "&request.QueryString("no_cob")) if not(isnull(TABELA2("t_total"))) then var_total = var_total + Cdbl(TABELA2("t_total")) end if TABELA1.MoveNext() wend Mas ainda demora para carregar o resultado, como tenho muitos registros fica demorando para aparecer a lista na tela. Obrigado

Tudo bem? Gostaria de ver a possibilidade de verificar se meu codigo está certo, porque é quando vou gravar os dados que demora: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma","no-cache" Response.Buffer = FALSE Session.TimeOut = 1440 Server.ScriptTimeOut = 999.999 if session ("v_o_f_alterar") = 0 then Response.redirect "erro.asp" end if Session.LCID = 1033 id_cliente = request.QueryString("id_cliente") nome_empresa = request.QueryString("nome_empresa") num_os = request.QueryString("no_os") 'Função para remover caracteres especiais dos números Function RemoveReal(valor) if (valor <> "") then RemoveReal = Replace(valor, ".", ",") 'Troca vírgula por ponto end if End Function id_ch = request.QueryString("id_ch") id_cliente = request.QueryString("id_cliente") num_os = request.QueryString("no_os") id = request.QueryString("id") nome_empresa = request.QueryString("nome_empresa") descricao = request.QueryString("descricao") sistema = request.QueryString("sistema") gerar_of_om = request.QueryString("gerar_of_om") descricao = Request.Form("descricao") departamento = Request.Form("departamento") situacao_of_om = Request.Form("situacao_of_om") equipamento = Request.Form("equipamento") gerar_cob = Request.Form("gerar_cob") solicitado_por = Request.Form("solicitado_por") urgente = Request.Form("opt") separado = Request.Form("opt10") fechado_por = Request.Form("fechado_por") v_unitario = RemoveReal(Request.Form("v_unitario")) v_total = RemoveReal(Request.Form("v_total")) valor_total = RemoveReal(Request.Form("valor_total")) sub_total = RemoveReal(Request.form("sub_total")) custo_envio = RemoveReal(Request.form("custo_envio")) outros = RemoveReal(Request.form("outros")) total_geral = RemoveReal(Request.form("total_geral")) transporte = Request.form("transporte") outras = Request.form("outras") observacoes = Replace(Request.form("observacoes"),"'","''") tipo_coleta = Request.form("opt2") quant_entregue = Request.form("quant_entregue") data_entregue = Request.form("data_entregue") quant_entregue = Request.form("quant_entregue") prod_pendente = Request.QueryString("prod_pendente") prod_pago = Request.QueryString("prod_pago") desconto = Request.form("desconto") data_saida = Request.Form("data_saida") 'Conexao tabela INTERBASE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Firebird/Interbase® driver}; DBNAME=localhost:c:\Inetpub\wwwroot\sistema_interno_hcs_v.1.0\bd\BD_HCS.GDB; UID=SYSDBA;PWD=masterkey") 'Verificando quantidade de registros Set os = server.createobject("adodb.recordset") Set os = oConn.execute ("SELECT COUNT(*) AS temp FROM TB_GERAR_OF_OM_CAD_ITENS") num_rows = os("temp") os.Close() for i = 1 to num_rows id = Request.form("id_"&i) quant = Request.form("quant_"&i) quant_entregue = Request.form("quant_entregue_"&i) data_entregue = Request.form("data_entregue_"&i) quant_pendente = Request.form("quant_pendente_"&i) equipamento = Request.form("equipamento_"&i) obs_prod = Request.form("obs_prod_"&i) v_unitario = RemoveReal(Request.form("v_unitario_"&i)) v_total = RemoveReal(Request.form("v_total_"&i)) valor_total = RemoveReal(Request.form("valor_total_"&i)) prod_pendente = Request.form("opt1_"&i) prod_pago = Request.form("prod_pago_"&i) usuario_altera = session("usuario_altera") ip_altera = Request.ServerVariables("REMOTE_ADDR") set os = oConn.execute ("select * from TB_GERAR_OF_OM_CAD_ITENS where id = '"&id&"'") if not os.eof then if prod_pendente = "" then prod_pendente = "0" else prod_pendente = "1" end if 'SELECIONE CODIGO DO PRODUTO (NO_OS DA TB_GERENCIAR_PRODUCAO E GRAVA NO_OS NO CAMPO ID_PRODUTO DA TABELA TB_GERAR_OF_OM_CAD_ITENS) ' set estoque = oConn.execute ("select * from TB_GERENCIAR_PRODUCAO where equipamento = '"&equipamento&"'") ' if not (estoque.eof) then 'Obtem campo com a quantidade atual do estoque ' quant_atual_estoque = estoque("quant_estoque") 'Faz a subtração do valor gravado pelo valor obtido do estoque ' nova_quant_estoque = quant_atual_estoque - quant 'Faz UPDATE na tabela do estoque com a nova quantidade ' oConn.execute("update TB_GERENCIAR_PRODUCAO set quant_estoque = '"&nova_quant_estoque&"' where EQUIPAMENTO = '"&equipamento&"'") ' end if 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD_ITENS' oConn.execute ("update TB_GERAR_OF_OM_CAD_ITENS Set descricao = '"&descricao&"', situacao_of_om = '"&situacao_of_om&"', solicitado_por = '"&solicitado_por&"', departamento = '"&departamento&"', urgente = '"&urgente&"',equipamento = '"&equipamento&"', quant = '"&quant&"', obs_prod = '"&obs_prod&"', v_unitario = '"&v_unitario&"', v_total = '"&v_total&"', sub_total = '"&sub_total&"', custo_envio = '"&custo_envio&"', outros = '"&outros&"', total_geral = '"&total_geral&"', transporte = '"&transporte&"', outras = '"&outras&"', observacoes = '"&observacoes&"', tipo_coleta = '"&tipo_coleta&"', quant_entregue = '"&quant_entregue&"', data_entregue = '"&data_entregue&"', quant_pendente = '"&quant_pendente&"', prod_pendente = '"&prod_pendente&"', prod_pago = '"&prod_pago&"', separado = '"&separado&"', desconto = '"&desconto&"', data_saida = '"&data_saida&"' WHERE id = " & cdbl(id)) 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD' oConn.execute ("update TB_GERAR_OF_OM_CAD Set solicitado_por = '"&solicitado_por&"', descricao = '"&descricao&"', situacao_of_om = '"&situacao_of_om&"', departamento = '"&departamento&"', urgente = '"&urgente&"', total_geral = '"&total_geral&"', tipo_coleta = '"&tipo_coleta&"', separado = '"&separado&"', data_saida = '"&data_saida&"' WHERE no_os = "&Request.QueryString("no_os")) else end if next set os = nothing ato = request.Form("opt3") dd10 = request.Form("opt12") dd15 = request.Form("opt4") dd30 = request.Form("opt5") dd45 = request.Form("opt6") dd60 = request.Form("opt7") dd90 = request.Form("opt8") dd120 = request.Form("opt9") dd135 = request.Form("opt13") dd150 = request.Form("opt11") forma_pagto = request.Form("forma_pagto") data_venc_pagto = Request.Form("data_venc_pagto") valor_pagto = Request.Form("valor_pagto") anotacao1 = Request.Form("anotacao1") Function conv_data(data_venc_pagto) dia = day(data_venc_pagto) if len(dia) < 2 then dia = "0" & dia end if mes = month(data_venc_pagto) if len(mes) < 2 then mes = "0" & mes end if ano = year(data_venc_pagto) conv_data = dia & "." & mes & "." & ano End Function data_venc_pagto = conv_data(data_venc_pagto) 'Verificando quantidade de registros Set campos = server.createobject("adodb.recordset") Set campos = oConn.execute ("SELECT COUNT(*) AS temp FROM TB_INFO_PAGTO") num_rows = campos("temp") campos.Close() for i = 1 to num_rows id_ch = Request.form("id_ch_"&i) data_venc_pagto = Request.form("data_venc_pagto_"&i) forma_pagto = Request.form("forma_pagto_"&i) anotacao1 = Request.form("anotacao1_"&i) valor_pagto = Request.form("valor_pagto_"&i) 'Atualiza informaçoes no INTERBASE 'TB_CAD_CHEQUES_OF' oConn.execute ("update TB_INFO_PAGTO Set ato = '"&ato&"', dd10 = '"&dd10&"', dd15 = '"&dd15&"', dd30 = '"&dd30&"', dd45 = '"&dd45&"', dd60 = '"&dd60&"', dd90 = '"&dd90&"', dd120 = '"&dd120&"', dd135 = '"&dd135&"', dd150 = '"&dd150&"', forma_pagto = '"&forma_pagto&"', data_venc_pagto = '"&conv_data(data_venc_pagto)&"', valor_pagto = '"&valor_pagto&"', valor_pago = '0', anotacao1 = '"&anotacao1&"' WHERE id_ch = " & cdbl(id_ch)) next set campos = nothing set user = server.createobject("adodb.recordset") set user = oConn.execute ("SELECT * FROM USER_SISTEMA_HCS order by id DESC") data_acesso = Date() 'hora_acesso = Time() if not(user.eof) then novo = user("id") + 1 else novo = 1 end if Function conv_data(data_acesso) dia = day(data_acesso) if len(dia) < 2 then dia = "0" & dia end if mes = month(data_acesso) if len(mes) < 2 then mes = "0" & mes end if ano = year(data_acesso) conv_data = dia & "." & mes & "." & ano End Function data_acesso = conv_data(data_acesso) usuario = session("usuario") ip = Request.ServerVariables("REMOTE_ADDR") oConn.execute ("insert into USER_SISTEMA_HCS (id, usuario, ip, data_acesso, tela_acessada, id_cliente, no_os) Values('"&novo&"','"&usuario&"','"&ip&"','"&data_acesso&"','ALTERA O.F','"&id_cliente&"','"&num_os&"')") set user = nothing oConn.Close() Response.redirect "gerar_os.asp?id_cliente="&id_cliente&"&no_os="&num_os&"&status_os=em_andamento&msg=INSERIDO COM SUCESSO!" %> Muito Obrigado

Tudo bem galera do forum? Estou com uma complicação de select, que está demorando um pouco para aparecer na tela. Eu tenho uma listagem de cobranças e tem esse campo que pega o total_geral de no_cob de determinadas cobranças: <% set TABELA1 = oConn.execute ("SELECT DISTINCT no_os FROM TB_IMGRVS_COB ORDER BY no_os") var_total = 0 while not(TABELA1.eof) set TABELA2 = oConn.execute ("SELECT * FROM TB_GERAR_OF_OM_CAD WHERE no_os =" & TABELA1("no_os") & " and no_cob =" & info("no_cob") & "") while not(TABELA2.eof) var_total = var_total + Cdbl(TABELA2("total_geral")) TABELA2.MoveNext() wend TABELA1.MoveNext() wend var_total = ROUND(var_total,2) %> </span><span class="style178"> <input name="v_total_<%=i%>" type="text" class="campo_maior" disabled="disabled" id="v_total_<%=i%>" value="<%=var_total%>" size="10" alt="decimal"/> E o que acontece, demora para mostrar na tela. Gostaria de saber se tem algum jeito para deixar mais rapida? Muito Obrigado

Tudo bem? Eu deixei o insert sem o campo data_venc_pagto ai foi. E vou colocar uma validação de campo obrigatório na hora de fazer update. Muito obrigado

Tudo bem pessoal? Obrigado pelas dicas, mas não tive sucesso. Dá erro. Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) conversion error from string "null" /sistema_interno_hcs_v.1.0/hcs/ef_altera_of.asp, line 178

Tudo bem pessoal? Só uma dúvida, tenho um campo DATE e preciso que quando vou gravar alguma informação o campo DATE fica NULL. Como que procedo no .asp? Estou usando ibexpert e asp. Muito Obrigado.

Ok, vou fazer essas verificações. Muito obrigado pelas dicas.

Tudo bem galera? Seguinte, tenho 2 tabelas no meu banco de dados, aonde a tabela_1 tem os campos: no_os, id_cliente e alguns campos a mais, e na tabela_2 tem no_os, id_cliente, e mais uns 50 campos. Quando eu clico para gerar um ordem de serviço ele gera um numero de no_os nas 2 tabelas, sendo que a tabela_2 eu posso adicionar vários registros no_os com o mesmo número. Só que essas 2 tabelas já está passando de 1.000 registros e ta dificultando a gravação demorando quase 1 minuto para gravar. Uso ibexpert e firebird, linguagem ASP. Seria possível me darem uma idéia de como posso melhorar o desempenho. Muito obrigado

Tudo bem pessoal? Não estou conseguindo resolver esse problema. Fiz alguns testes mas não vai mesmo. Muito obrigado

Na tabela tem 70 campos. Meu codigo faz conforme já colocado no começo deste post, ele faz a alteração dos campos em várias tabelas. Muito obrigado.

Então, mas a minha duvida é como executar isso, tipo no ibexpert que uso para fazer o banco de dados eu consigo rodar o script, mas minha duvida quais as informações preciso. Sou iniciante em asp e peguei uma bomba para desenvolver. Muito Obrigado

Tudo bem pessoal? Como que eu faço para que quando uma data que está gravada numa tabela e passa desta data um determinado campo é gravado 1 = VENCIDO? Tipo tenho um pagamento que vence dia 08/04/2010 se chega dia 09/04/2010 automaticamente no campo status muda para 1 = VENCIDO. Muito Obrigado

Não to entendendo. Quando gero um novo registro vai rapido, mas quando vou alterar dados ele demora. Como executar o mesmo update no banco? conforme sua pergunta. Muito Obrigado

Não. So quando vou fazer a alteração. Muito Obrigado.

Olá pessoal, tudo bem? Estou com um grande problema, estou desenvolvendo um sistema e assim ela já tem muito registro, quando vou gravar algo em certas telas demora quase 1 minuto. Estou usando assim: <% [b]Response.CacheControl = "no-cache" Response.AddHeader "Pragma","no-cache" Response.Buffer = FALSE Session.TimeOut = 1440 Server.ScriptTimeOut = 999.999 if session ("v_o_f_alterar") = 0 then Response.redirect "erro.asp" end if 'Função para remover caracteres especiais dos números Function RemoveReal(valor) if (valor <> "") then RemoveReal = Replace(valor, ".", ",") 'Troca vírgula por ponto end if End Function Session.LCID = 1046 id_deb = request.QueryString("id_deb") id_ch = request.QueryString("id_ch") id_cliente = request.QueryString("id_cliente") num_os = request.QueryString("no_os") num_cob = request.QueryString("no_cob") id = request.QueryString("id") nome_empresa = request.QueryString("nome_empresa") descricao = request.QueryString("descricao") sistema = request.QueryString("sistema") gerar_of_om = request.QueryString("gerar_of_om") data_cobranca = Request.form("data_cobranca") data_fechado = Request.QueryString("data_fechado") tipo_cob = Request.Form("tipo_cob") situacao_cob = Request.form("situacao_cob") gerar_cob = Request.form("gerar_cob") informe_cob = Replace(Request.form("informe_cob"),"'","''") usuario_altera = session("usuario") ip_altera = Request.ServerVariables("REMOTE_ADDR") 'Conexao tabela INTERBASE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Firebird/Interbase® driver}; DBNAME=localhost:c:\Inetpub\wwwroot\sistema_interno_hcs_v.1.0\bd\BD_HCS.GDB; UID=SYSDBA;PWD=masterkey") 'if situacao_cob = "2" then ' fechado_por = session("usuario") ' data_fechado = cdate(FormatDateTime(Date, 2)) 'else ' data_fechado = "" 'end if 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD oConn.execute ("update TB_GERAR_COB_CAD Set data_cobranca = '"&data_cobranca&"', tipo_cob = '"&tipo_cob&"', informe_cob = '"&informe_cob&"', gerar_of_om = '"&gerar_of_om&"' WHERE no_cob = "&request.QueryString("no_cob")) 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD_ITENS' oConn.execute ("update TB_GERAR_COB_CAD_ITENS Set data_cobranca = '"&data_cobranca&"', tipo_cob = '"&tipo_cob&"', informe_cob = '"&informe_cob&"', gerar_of_om = '"&gerar_of_om&"' WHERE id = " & cdbl(id)) 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_CAD' oConn.execute ("update TB_GERAR_COB_CAD Set data_cobranca = '"&data_cobranca&"' WHERE no_cob = "&Request.QueryString("no_cob")) ato = request.Form("opt3") dd10 = request.Form("opt10") dd15 = request.Form("opt4") dd30 = request.Form("opt5") dd45 = request.Form("opt6") dd60 = request.Form("opt7") dd90 = request.Form("opt8") dd135 = request.Form("opt12") dd120 = request.Form("opt9") dd150 = request.Form("opt11") forma_pagto = request.Form("forma_pagto") data_venc_pagto = Request.Form("data_venc_pagto") anotacao1 = Request.Form("anotacao1") numeracao = Request.Form("numeracao") 'Verificando quantidade de registros Set campos = server.createobject("adodb.recordset") Set campos = oConn.execute ("SELECT COUNT(no_os) AS temp FROM TB_INFO_PAGTO") num_rows = campos("temp") campos.Close() for i = 1 to num_rows id_ch = Request.form("id_ch_"&i) data_venc_pagto = Request.form("data_venc_pagto_"&i) forma_pagto = Request.form("forma_pagto_"&i) numeracao = Request.form("numeracao_"&i) anotacao1 = Request.form("anotacao1_"&i) valor_pagto = RemoveReal(Request.form("valor_pagto_"&i)) data_pago = Request.form("data_pago_"&i) valor_pago = RemoveReal(Request.form("valor_pago_"&i)) status_pagto = Request.form("status_pagto_"&i) 'Atualiza informaçoes no INTERBASE 'TB_INFO_PAGTO oConn.execute ("update TB_INFO_PAGTO Set ato = '"&ato&"', dd10 = '"&dd10&"', dd15 = '"&dd15&"', dd30 = '"&dd30&"', dd45 = '"&dd45&"', dd60 = '"&dd60&"', dd90 = '"&dd90&"', dd120 = '"&dd120&"', dd135 = '"&dd135&"',dd150 = '"&dd150&"', forma_pagto = '"&forma_pagto&"', numeracao = '"&numeracao&"', data_venc_pagto = '"&data_venc_pagto&"', valor_pagto = '"&valor_pagto&"', data_pago = '"&data_pago&"', valor_pago = '"&valor_pago&"', status_pagto = '"&status_pagto&"', anotacao1 = '"&anotacao1&"' WHERE id_ch = " & cdbl(id_ch)) set campos = nothing next 'Verificando quantidade de registros Set credito = server.createobject("adodb.recordset") Set credito = oConn.execute ("SELECT COUNT(no_os) AS temp FROM TB_CREDITO") num_rows = credito("temp") credito.Close() for i = 1 to num_rows id = Request.form("id_"&i) quant = Request.form("quant_"&i) observacao = Request.form("observacao_"&i) data_credito = Request.form("data_credito_"&i) valor_credito = RemoveReal(Request.form("valor_credito_"&i)) 'Atualiza informaçoes no INTERBASE 'TB_CREDITO_DEBITO oConn.execute ("update TB_CREDITO Set quant = '"&quant&"', observacao = '"&observacao&"', data_credito = '"&data_credito&"', valor_credito = '"&valor_credito&"' WHERE id = " & cdbl(id)) set credito = nothing next 'Verificando quantidade de registros Set debito = server.createobject("adodb.recordset") Set debito = oConn.execute ("SELECT COUNT(no_os) AS temp FROM TB_DEBITO") num_rows = debito("temp") debito.Close() for i = 1 to num_rows id_deb = Request.form("id_deb_"&i) quant_deb = Request.form("quant_deb_"&i) observacao_deb = Request.form("observacao_deb_"&i) data_debito = Request.form("data_debito_"&i) valor_debito = RemoveReal(Request.form("valor_debito_"&i)) 'Atualiza informaçoes no INTERBASE 'TB_DEBITO oConn.execute ("update TB_DEBITO Set quant_deb = '"&quant_deb&"', observacao_deb = '"&observacao_deb&"', data_debito = '"&data_debito&"', valor_debito = '"&valor_debito&"' WHERE id_deb = " & cdbl(id_deb)) set debito = nothing next oConn.Close() %> Será que estou fazendo algo de errado? Demora muito para gravar. Muito Obrigado.

Tudo bem? Gostaria de saber como faço INDICES no ibexpert, se tem como criar via codigo utilizando SQL? Preciso muitoooo da ajuda. Muito Obrigado :blink:

Tudo bem galera? Estou tendo dificuldades em criar indices nas minhas tabelas, pois fiz uma pesquisa e fala que com os indices bem definidos o banco de dados fica rápido. Gostaria de saber se podem me ajudar. Muito obrigado :unsure:

Tudo bem? Não estou conseguindo fazer os indices no interbase (ibexpert). :wacko:

Pode me passar informações de como montar esses indices? Por favor. Muito Obrigado :unsure:

Opa tudo bem? Estou usando o IBEXPERT (INTERBASE) extensão do banco de dados .GDB

Tudo bem pessoal? Tenho uma pagina de alteração de dados aonde tenho uma tabela com bastante registros. Quando vou fazer a alteração nos dados demora muito para gravar na tabela, eu estou utilizando isso: 'Verificando quantidade de registros SQL = ("SELECT COUNT(*) AS temp FROM TB_GERAR_OF_OM_CAD_ITENS") Set os = oConn.execute(SQL) num_rows = os("temp") os.Close() for i = 1 to num_rows id = Request.form("id_"&i) quant = Request.form("quant_"&i) equipamento = Request.form("equipamento_"&i) tipo_sistema = Request.form("tipo_sistema_"&i) versao_sistema = Request.form("versao_sistema_"&i) serie_sistema = Request.form("serie_sistema_"&i) contador_sistema = Request.form("contador_sistema_"&i) teclas_sistema = Request.form("teclas_sistema_"&i) data_anterior_sistema = Request.form("data_anterior_sistema_"&i) tecnico = Request.form("tecnico_"&i) v_unitario = Request.form("v_unitario_"&i) v_total = Request.form("v_total_"&i) lc_status = Request.form("lc_status_"&i) 'Atualiza informaçoes no INTERBASE 'TB_MANUTENCAO_CAD_ITENS' oConn.execute ("update TB_GERAR_OF_OM_CAD_ITENS Set solicitado_por = '"&solicitado_por&"', ser_realizado = '"&ser_realizado&"', acessorios_env = '"&acessorios_env&"', quant = '"&quant&"', equipamento = '"&equipamento&"', tipo_sistema = '"&tipo_sistema&"', versao_sistema = '"&versao_sistema&"', serie_sistema = '"&serie_sistema&"', contador_sistema = '"&contador_sistema&"', teclas_sistema = '"&teclas_sistema&"', tecnico = '"&tecnico&"', v_unitario = '"&v_unitario&"', v_total = '"&v_total&"', sub_total = '"&sub_total&"', custo_envio = '"&custo_envio&"',total_geral = '"&total_geral&"', tipo_coleta = '"&tipo_coleta&"', cliente_informado = '"&cliente_informado&"', contato = '"&contato&"', informado_dia = '"&informado_dia&"', responsavel = '"&responsavel&"', observacoes = '"&observacoes&"', lc_status = '"&lc_status&"', fechado_por = '"&fechado_por&"', usuario_altera = '"&usuario_altera&"', ip_altera = '"&ip_altera&"', conf_at = '"&conf_at&"', conf_exp = '"&conf_exp&"', urgente = '"&urgente&"', gerar_cob = '"&gerar_cob&"', data_anterior_sistema = '"&data_anterior_sistema&"', data_retirada = '"&data_retirada&"', status_of_om = '"&status_of_om&"', expedicao = '"&expedicao&"' WHERE id=" & cdbl(id)) 'Atualiza informaçoes no INTERBASE 'TB_MANUTENCAO_CAD' oConn.execute ("update TB_GERAR_OF_OM_CAD Set urgente = '"&urgente&"', fechado_por = '"&fechado_por&"', total_geral = '"&total_geral&"', tipo_coleta = '"&tipo_coleta&"', status_of_om = '"&status_of_om&"', expedicao = '"&expedicao&"' WHERE no_os = "&Request.QueryString("no_os")) next Só que fazendo uns teste é no Select que está a demora. Será que alguém poderia me ajudar??? Por favor!!!! :unsure:

Obrigado Consegue resolver este problema.