A Metallica

Mili, infelizmente não funcionou!!! segue os endereços HTML: http://comportamentoassertivo.com.br/Flash...l/gallery8.html ASP: http://comportamentoassertivo.com.br/ O problema é que este é um banner dinamico com XML mas quando visualizo no html eu o vejo e ele funciona mas quando aplico o mesmo na home do site ele não aparece ficaria nesta area em branco do site. alguém pode me ajudar! Aguardo Obrigado

Inseri um arquivo no SWF em uma pagina asp, mas quando visualiso a pagina o espaço do flash esta lá mas não aparece tenho que fazer algo em especial? <script language="javascript"> if (AC_FL_RunContent == 0) { alert("This page requires AC_RunActiveContent.js."); } else { AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0','width','450','height','240','id','gallery','align','middle','src','SWF/gallery','quality','high','bgcolor','#ffffff','name','gallery','allowscriptaccess','sameDomain','allowfullscreen','false','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','SWF/gallery' ); //end AC code } </script> <noscript> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="450" height="240" id="gallery" align="middle"> <param name="allowScriptAccess" value="sameDomain" /> <param name="allowFullScreen" value="false" /> <param name="movie" value="SWF/gallery.swf" /><param name="quality" value="high" /><param name="bgcolor" value="#ffffff" /> <embed src="SWF/gallery.swf" quality="high" bgcolor="#ffffff" width="450" height="240" name="gallery" align="middle" allowScriptAccess="sameDomain" allowFullScreen="false" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object> </noscript>

E ai Rafael, Procurei mas o que eu achei foi http://www.virtuastore.ro/whatis.htm www.virtuastore.net http://www.virtuastore.com.br mas nenhuma deles comenta sobre este tema "Banco de Ruas e CEP" você pode me dar outra referencia. Obrigado

Oi Pessoal, Tenho um formulario de cadastro simple mas queria implementar uma consulta do endereço pelo cep. Como faço tenho que comprar um banco de CEP e Ruas, contratar uma locação ? alguém que já vez pode me explicar... Aguardo Obrigado

E Ai Bareta, tentei fazer o que você passou mas tambem não esta gravadno segue o codigo, desta forma da o seguinte erro: Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: 'objConn' /ccee/enviar_id.asp, line 91 <!--#INCLUDE file="conexao.asp"--> <% varDATA = day(now())&"/"&month(now())&"/"&Year(now()) txt_nome = request.form("txt_nome") nivel = request.form("nivel") 'PARTE I – Escolha as opções que refletem sua percepção ou observação sobre a comunicação interna na CCEE PARTEI_1_1 = request.form("PARTEI_1_1") PARTEI_1_2 = request.form("PARTEI_1_2") PARTEI_1_3 = request.form("PARTEI_1_3") PARTEI_2_1 = request.form("PARTEI_2_1") PARTEI_2_2 = request.form("PARTEI_2_2") PARTEI_2_3 = request.form("PARTEI_2_3") PARTEI_3_1 = request.form("PARTEI_3_1") PARTEI_3_2 = request.form("PARTEI_3_2") PARTEI_3_3 = request.form("PARTEI_3_3") PARTEI_4_1 = request.form("PARTEI_4_1") PARTEI_4_2 = request.form("PARTEI_4_2") PARTEI_4_3 = request.form("PARTEI_4_3") PARTEI_4_4 = request.form("PARTEI_4_4") PARTEI_4_5 = request.form("PARTEI_4_5") PARTEI_4_6 = request.form("PARTEI_4_6") PARTEI_4_7 = request.form("PARTEI_4_7") PARTEI_4_8 = request.form("PARTEI_4_8") PARTEI_4_9 = request.form("PARTEI_4_9") PARTEI_4_10 = request.form("PARTEI_4_10") PARTEI_4_11 = request.form("PARTEI_4_11") PARTEI_4_12 = request.form("PARTEI_4_12") PARTEI_4_13 = request.form("PARTEI_4_13") PARTEI_4_14 = request.form("PARTEI_4_14") PARTEI_5_1 = request.form("PARTEI_5_1") PARTEI_5_2 = request.form("PARTEI_5_2") PARTEI_5_3 = request.form("PARTEI_5_3") PARTEI_5_4 = request.form("PARTEI_5_4") PARTEI_5_5 = request.form("PARTEI_5_5") PARTEI_5_6 = request.form("PARTEI_5_6") PARTEI_5_6_outros = request.form("PARTEI_5_6_outros") PARTEI_6_tecnicas = request.form("PARTEI_6_tecnicas") PARTEI_6_administrativas = request.form("PARTEI_6_administrativas") PARTEI_6_rh = request.form("PARTEI_6_rh") PARTEI_6_Conselho = request.form("PARTEI_6_Conselho") PARTEI_7_1 = request.form("PARTEI_7_1") PARTEI_7_2 = request.form("PARTEI_7_2") PARTEI_7_3 = request.form("PARTEI_7_3") PARTEI_7_4 = request.form("PARTEI_7_4") PARTEI_7_5 = request.form("PARTEI_7_5") 'PARTE II – Escolha as opções que expressam sua opinião sobre a eficácia dos canais de comunicação (se refletem ou não o objetivo proposto de divulgar as informações e se atingem todo o público da CCEE). PARTEII_1A = request.form("PARTEII_1A") PARTEII_1B = request.form("PARTEII_1B") PARTEII_2A = request.form("PARTEII_2A") PARTEII_2B = request.form("PARTEII_2B") PARTEII_3A = request.form("PARTEII_3A") PARTEII_3B = request.form("PARTEII_3B") PARTEII_4A = request.form("PARTEII_4A") PARTEII_4B = request.form("PARTEII_4B") PARTEII_5A = request.form("PARTEII_5A") PARTEII_5B = request.form("PARTEII_5B") PARTEII_6A = request.form("PARTEII_6A") PARTEII_6B = request.form("PARTEII_6B") PARTEII_6C = request.form("PARTEII_6C") 'PARTE III – Responda as perguntas a seguir. Por favor, apresente detalhes e informações que possam contribuir para a melhoria da comunicação interna na empresa. PARTEIII_1 = request.form("PARTEIII_1") PARTEIII_2 = request.form("PARTEIII_2") PARTEIII_3 = request.form("PARTEIII_3") PARTEIII_4 = request.form("PARTEIII_4") PARTEIII_5 = request.form("PARTEIII_5") 'Inclusão do controle de OS sub abre_conn Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\ccee.mdb" end sub 'Aqui vai Incluir no Bando de dados abre_conn sql = "insert into TABOS (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"', '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"', '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')" set rsINCLUIR = objConn.Execute(sql) response.Write("Parabens") sub fecha_conn objConn.close Set objConn = Nothing End sub Response.Redirect("sucesso.asp") %>

E ai Raphael, Fiz o que você passou mas ele exibe a mensagem de "Parabens" mas não grava no banco de dados. segue como ficou <!--#INCLUDE file="conexao.asp"--> <% varDATA = day(now())&"/"&month(now())&"/"&Year(now()) txt_nome = request.form("txt_nome") nivel = request.form("nivel") 'PARTE I – Escolha as opções que refletem sua percepção ou observação sobre a comunicação interna na CCEE PARTEI_1_1 = request.form("PARTEI_1_1") PARTEI_1_2 = request.form("PARTEI_1_2") PARTEI_1_3 = request.form("PARTEI_1_3") PARTEI_2_1 = request.form("PARTEI_2_1") PARTEI_2_2 = request.form("PARTEI_2_2") PARTEI_2_3 = request.form("PARTEI_2_3") PARTEI_3_1 = request.form("PARTEI_3_1") PARTEI_3_2 = request.form("PARTEI_3_2") PARTEI_3_3 = request.form("PARTEI_3_3") PARTEI_4_1 = request.form("PARTEI_4_1") PARTEI_4_2 = request.form("PARTEI_4_2") PARTEI_4_3 = request.form("PARTEI_4_3") PARTEI_4_4 = request.form("PARTEI_4_4") PARTEI_4_5 = request.form("PARTEI_4_5") PARTEI_4_6 = request.form("PARTEI_4_6") PARTEI_4_7 = request.form("PARTEI_4_7") PARTEI_4_8 = request.form("PARTEI_4_8") PARTEI_4_9 = request.form("PARTEI_4_9") PARTEI_4_10 = request.form("PARTEI_4_10") PARTEI_4_11 = request.form("PARTEI_4_11") PARTEI_4_12 = request.form("PARTEI_4_12") PARTEI_4_13 = request.form("PARTEI_4_13") PARTEI_4_14 = request.form("PARTEI_4_14") PARTEI_5_1 = request.form("PARTEI_5_1") PARTEI_5_2 = request.form("PARTEI_5_2") PARTEI_5_3 = request.form("PARTEI_5_3") PARTEI_5_4 = request.form("PARTEI_5_4") PARTEI_5_5 = request.form("PARTEI_5_5") PARTEI_5_6 = request.form("PARTEI_5_6") PARTEI_5_6_outros = request.form("PARTEI_5_6_outros") PARTEI_6_tecnicas = request.form("PARTEI_6_tecnicas") PARTEI_6_administrativas = request.form("PARTEI_6_administrativas") PARTEI_6_rh = request.form("PARTEI_6_rh") PARTEI_6_Conselho = request.form("PARTEI_6_Conselho") PARTEI_7_1 = request.form("PARTEI_7_1") PARTEI_7_2 = request.form("PARTEI_7_2") PARTEI_7_3 = request.form("PARTEI_7_3") PARTEI_7_4 = request.form("PARTEI_7_4") PARTEI_7_5 = request.form("PARTEI_7_5") 'PARTE II – Escolha as opções que expressam sua opinião sobre a eficácia dos canais de comunicação (se refletem ou não o objetivo proposto de divulgar as informações e se atingem todo o público da CCEE). PARTEII_1A = request.form("PARTEII_1A") PARTEII_1B = request.form("PARTEII_1B") PARTEII_2A = request.form("PARTEII_2A") PARTEII_2B = request.form("PARTEII_2B") PARTEII_3A = request.form("PARTEII_3A") PARTEII_3B = request.form("PARTEII_3B") PARTEII_4A = request.form("PARTEII_4A") PARTEII_4B = request.form("PARTEII_4B") PARTEII_5A = request.form("PARTEII_5A") PARTEII_5B = request.form("PARTEII_5B") PARTEII_6A = request.form("PARTEII_6A") PARTEII_6B = request.form("PARTEII_6B") PARTEII_6C = request.form("PARTEII_6C") 'PARTE III – Responda as perguntas a seguir. Por favor, apresente detalhes e informações que possam contribuir para a melhoria da comunicação interna na empresa. PARTEIII_1 = request.form("PARTEIII_1") PARTEIII_2 = request.form("PARTEIII_2") PARTEIII_3 = request.form("PARTEIII_3") PARTEIII_4 = request.form("PARTEIII_4") PARTEIII_5 = request.form("PARTEIII_5") 'Aqui vai Incluir no Bando de dados sub abre_conexao sql = "insert into TABOS (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"', '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"', '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')" response.write sql response.end set rsINCLUIR = conn.Execute(sql) End Sub response.Write("Parabens") 'Response.Redirect("sucesso.asp") %>

Quanto ao "on error resume next" não tem não os dados na Banco estão sendo frevados como string TEXTO?? ACESSA O LINK http://www.crbasso.com.br/ccee/pesq_ccee.asp OS VALORES QUE SÃO PASSADOS VIA REQUEST SÃO NUMERICOS, COLOCANDO O CONVERSOR ENDE É NUMERO E ONDE É TEXTO PODE RESOLVER ? EXEMPLO site = cstr(request.form("txt_site")) necessidades = cint(request.form("txt_necessidades"))

TENHO ESTA PTOGRAMAÇÃO QUE DEVE INSERIR OS DADOS NA TABELA NA HORA DE EXECUTAR RETORNA A RESPOSTA DE OK MAS NÃO INCLUI NO BANCO O QUE PODE SER? NÃO VOU COLOCAR O CODGO INTEIRO PORQUE É MUITO GRANDE SE alguém PUDER ME AJUDAR SEREI GRATO ... PARTEIII_1 = request.form("PARTEIII_1") PARTEIII_2 = request.form("PARTEIII_2") PARTEIII_3 = request.form("PARTEIII_3") PARTEIII_4 = request.form("PARTEIII_4") PARTEIII_5 = request.form("PARTEIII_5") 'Aqui vai Incluir no Bando de dados sub abre_conexao sql = "insert into ccee (Nome, Nivel, PARTEI_1_1, PARTEI_1_2, ARTEI_1_3, PARTEI_2_1, PARTEI_2_2, PARTEI_2_3, PARTEI_3_1, PARTEI_3_2, PARTEI_3_3, PARTEI_4_1, PARTEI_4_2, PARTEI_4_3, PARTEI_4_4, PARTEI_4_5, PARTEI_4_6, PARTEI_4_7, PARTEI_4_8, PARTEI_4_9, PARTEI_4_10, PARTEI_4_11, PARTEI_4_12, PARTEI_4_13, PARTEI_4_14, PARTEI_5_1, PARTEI_5_2, PARTEI_5_3, PARTEI_5_4, PARTEI_5_5, PARTEI_5_6, PARTEI_5_6_outros, PARTEI_6_tecnicas, PARTEI_6_administrativas, PARTEI_6_rh, PARTEI_6_Conselho, PARTEI_7_1, PARTEI_7_2, PARTEI_7_3, PARTEI_7_4, PARTEI_7_5, Viver_A, Viver_B, Internet_A, Internet_B, Bomdia_A, Bomdia_B, Canal_A, Canal_B, CampInst_A, CampInst_B, Integracao_A, Integracao_B, Integracao_C, PARTEIII_1, PARTEIII_2, PARTEIII_3, PARTEIII_4, PARTEIII_5, data ) values ('"&txt_nome&"', '"&nivel&"', '"&PARTEI_1_1&"', '"&PARTEI_1_2&"', '"&PARTEI_1_3&"', '"&PARTEI_2_1&"', '"&PARTEI_2_2&"', '"&PARTEI_2_3&"', '"&PARTEI_3_1&"', '"&PARTEI_3_2&"', '"&PARTEI_3_3&"', '"&PARTEI_4_1&"', '"&PARTEI_4_2&"', '"&PARTEI_4_3&"', '"&PARTEI_4_4&"', '"&PARTEI_4_5&"', '"&PARTEI_4_6&"', '"&PARTEI_4_7&"', '"&PARTEI_4_8&"', '"&PARTEI_4_9&"', '"&PARTEI_4_10&"', '"&PARTEI_4_11&"', '"&PARTEI_4_12&"', '"&PARTEI_4_13&"','"&PARTEI_4_14&"', '"&PARTEI_5_1&"', '"&PARTEI_5_2&"', '"&PARTEI_5_3&"', '"&PARTEI_5_4&"', '"&PARTEI_5_5&"', '"&PARTEI_5_6&"', '"&PARTEI_5_6_outros&"', '"&PARTEI_6_tecnicas&"', '"&PARTEI_6_administrativas&"', '"&PARTEI_6_rh&"', '"&PARTEI_6_Conselho&"', '"&PARTEI_7_1&"', '"&PARTEI_7_2&"', '"&PARTEI_7_3&"', '"&PARTEI_7_4&"', '"&PARTEI_7_5&"', '"&PARTEII_1A&"', '"&PARTEII_1B&"', '"&PARTEII_2A&"', '"&PARTEII_2B&"', '"&PARTEII_3A&"', '"&PARTEII_3B&"', '"&PARTEII_4A&"', '"&PARTEII_4B&"', '"&PARTEII_5A&"', '"&PARTEII_5B&"', '"&PARTEII_6A&"', '"&PARTEII_6B&"', '"&PARTEII_6C&"', '"&PARTEIII_1&"', '"&PARTEIII_2&"', '"&PARTEIII_3&"', '"&PARTEIII_4&"', '"&PARTEIII_5&"', '"&varDATA&"')" set rsINCLUIR = conexao.Execute(sql) End Sub response.Write("Parabens") 'Response.Redirect("sucesso.asp") %> ARQUIVO DE CONCEXÃO Dim Conexao sub abre_conexao Set conexao = Server.CreateObject ("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\localuser\EU\banco\ce.mdb;" end sub sub fecha_conexao Conexao.close Set Conexao = Nothing End sub OBRIGADO

Alguém sabe um modo simples de desenvolver uma paginação de uma consulta do banco ? [Voltar] e [Avançar] Aguardo

alguém tem um tutorial de um sitema de RSS Feed com acesso à banco de dados access? Aguardo Obrigado

Tenho uma aplicação que faz uma comparação da data do treinamento, que no servidor de teste funciona corretamente mas no servidor do site dá Erro "Stack Overflow" - '80020009' Servidor CR BASSO http://www.crbasso.com.br/index.asp?link=94&cur=GR16 Servidor de TESTE http://201.28.214.250/index.asp?link=94&cur=GR16 Não consigo entender porque deste erro alguém pode me ajudar aplicação Alinha que é indicato é que esta com <<< >>> <% varNUMTREIN = 0 varDATA = "" if rsDATA.eof then Response.Write("Não há data definida no momento para esse treinamento") else while not rsDATA.eof <<< while cdate(left(rsDATA("CURDIA"),2)&"/"&rsDATA("CURMES")&"/"&rsDATA("CURANO")) <= Date() >>> rsDATA.movenext wend varNUMTREIN = varNUMTREIN + 1 if varNUMTREIN = 1 then varDATA = varDATA & rsDATA("CURDIA")&" de "&MonthName(rsDATA("CURMES"), False)&" de "&rsDATA("CURANO") else varDATA = varDATA & "<br />"&rsDATA("CURDIA")&" de "&MonthName(rsDATA("CURMES"), False)&" de "&rsDATA("CURANO") end if rsDATA.movenext wend if varNUMTREIN = 1 then varTXT = "O próximo treinamento está marcado para " else varTXT = "Os próximos treinamentos estão marcados para " end if Response.Write(varTXT&"<b>" &varDATA& "</b>") end if %>

Oi Pessoal, Tenho um Formulario que contem um Combo "Status" (Pendente, Cancelado e Fechado) este campo ao preencher o formulario ele já recebe o valor de "Pendente" no mesmo formulario tenho um campo historico que seria armazenado na tabela "HISTORICO" Como faço pra atulizar o campo Status e Inserir um novo Historico. Depois em outra pagina presiso fazer uma consulta que me mostre os historicos que foram feito para esta solicitação. Espero que alguém possa me ajudar. Obrigado <% On error resume Next Dim objConn, stringSQL, strConnection, id, varATUALHIST, varNOVOHIST id = Request.QueryString("radio") 'Conectando com o banco de dados controos.mdb Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\controos.mdb" 'Seleciona da tabela contato strQuery = "SELECT * FROM TABOS WHERE CODNUMERO = "&id Set ObjRs = objConn.Execute(strQuery) %> <html> <head> <title>.</title> </head> <body bgcolor="#FFFFFF"> <table width="600" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b>Contole de Solicita&ccedil;&otilde;es</b></font></div></td> </tr> <tr> <td bgcolor="#FF9900"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b>Altera Historico Solicita&ccedil;&atilde;o Pendente</b></font></div></td> </tr> <tr> <td><table border="0" width="600" bgcolor="F5F5F5" align="center"> <tr> <td colspan="2" width="475"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu"></a> <a href="Listar.asp?list=Pendente" class="menu">»Listar Pendente</a></font></b></td> </tr> <tr> <td colspan="2" width="475"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="Listar.asp?list=Fechado" class="menu">&raquo;Listar Fechado</a></font></b></td> </tr> <tr> <td width="475" colspan="2"> <p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="Listar.asp?list=Cancelado" class="menu">&raquo;Listar Cancelado</a></font></b></td> </tr> <tr> <td width="475" colspan="2"> <p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="Listar.asp?list=Revisada" class="menu">&raquo;Listar Revisada</a></font></b></td> </tr> <tr> <td colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="selecao_altera_solicitacaopend.asp" class="menu">&raquo;Altera Historico Solicita&ccedil;&atilde;o Pendente</a></font></b></td> </tr> </table></td> </tr> </table> <form name="form" action="altera.asp" method="post" > <table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999"> <tr> <td width="72%"><table width="600" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#666666"> <tr> <td colspan="6" bgcolor="#666666"><div align="left"><font size="1" color="FFFFFF"><b><font face="Verdana">Solicita&ccedil;&atilde;o:</font></b></font></div> <div align="center"></div> <div align="center"></div></td> </tr> <tr> <td width="18%" bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">NS:</font></b></font></td> <td width="13%"><div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("CODNUMERO")%> </font></b></font></div></td> <td width="8%" bgcolor="#999999"><div align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Area:</font></b></font></div></td> <td width="15%"><div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("AREAATUACAO")%> </font></b></font></div></td> <td width="16%" bgcolor="#999999"><div align="center"><font size="1" color="FFFFFF"><b><font face="Verdana">Data:</font></b></font></div></td> <td width="30%"><div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("DATA")%> </font></b></font></div></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Solicita&ccedil;&atilde;o:</font></b></font></td> <td colspan="5"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("SOLICITACAO")%> </font></b></font></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">N&ordm; Participa&ccedil;&atilde;o:</font></b></font></td> <td colspan="5"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <%Response.write objRS("NUMPARTI")%> </font></b></font></td> </tr> <tr> <td colspan="6" bgcolor="#666666"><font size="1" color="FFFFFF"><b><font face="Verdana">Contato:</font></b></font></td> </tr> <tr> <td width="18%" bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Empresa:</font></b></font></td> <td colspan="5"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("EMPRESA")%> </font></b></font></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Contato:</font></b></font></td> <td colspan="3"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("CONTATO")%> </font></b></font></td> <td width="16%" bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Cargo:</font></b></font></td> <td width="30%"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("CARGO")%> </font></b></font></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Telefone:</font></b></font></td> <td colspan="3"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("TELEFONE")%> </font></b></font></td> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">e-mail:</font></b></font></td> <td><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><a href="mailto:<%Response.write objRS("email")%>" class="menu"> <%Response.write objRS("EMAIL")%> </a></font></b></font></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Site:</font></b></font></td> <td colspan="5"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("SITE")%> </font></b></font></td> </tr> <tr> <td bgcolor="#999999"><font size="1" color="FFFFFF"><b><font face="Verdana">Atendente:</font></b></font></td> <td colspan="5"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("ATENDENTE")%> </font></b></font></td> </tr> </table> </td> </tr> <tr> <td>&nbsp;</td> </tr> </table> <table width="800" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table width="600" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#666666"> <tr> <td valign="top" bgcolor="#666666"><font size="1" color="FFFFFF"><b><font face="Verdana">Status:</font></b></font></td> </tr> <tr> <td><select name="status" id="status"> <option value="aprovada">Aprovada</option> <option value="cancelado">Cancelado</option> <option value="pendente">Pendente</option> <option value="revisado">Revisado</option> </select> </td> </tr> <tr> <td bgcolor="#666666"><font size="1" color="FFFFFF"><b><font face="Verdana">Declare um novo fato ao Hist&oacute;rico :</font></b></font></td> </tr> <tr> <td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"> <textarea name="historico" cols="70" rows="5" id="historico"></textarea> </div></td> </tr> <tr> <td><input name="Submit" type="submit" id="Submit" value="Alterar Hist&oacute;rico"> <input type="hidden" name="codnumero" value="<%=objRS("CODNUMERO")%>"></td> </tr> </table></td> </tr> <tr> <td bgcolor="#666666"><font size="1" color="FFFFFF"><b><font face="Verdana">Hist&oacute;rico Atual:</font></b></font></td> </tr> <tr> <td> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> <%Response.write objRS("HISTORICO")%> </font></td> </tr> </table></td> </tr> <tr> <td> <hr> </td> </tr> </table> </form> </body> </html>

Oi Pessoal, Tenho uma paplicação te presiso que me retorne uma consulta "Exibe o conteudo de acordo com o ID indicado" porem tenho duas tabelas relacionadas mas não consigo fazer a consulta alguém pode me ajudar com isso? Obrigado André Metallica

E ai Jow, Tenho um formulario com um combo <form name="form" action="gravar.asp" method="post" > <select name="status" id="status"> <option value="Aprovado">Aprovado</option> <option value="cancelado">Cancelado</option> <option value="pendente">Pendente</option> <option value="revisado">Revisado</option> </select> </form> gravar.asp <% dim ObjRs, objConn, varSTATUS, autonum, strQuery sub abre_conn Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\crbasso\so\CS\controos.mdb" end sub sub fecha_conn objConn.close Set objConn = Nothing End sub 'Atrubuição dos valores as respectivas variáveis varSTATUS = request.form("status") autonum = Request.Form("codnumero") Call abre_conn strQuery = "update TABOS set status = '"&varstatus&"' where codnumero = "&autonum Set ObjRs = objConn.Execute(strQuery) Response.Redirect("index.asp") Call fecha_conexao Set objRs = Nothing Set objConn = Nothing %> Mas da erro na linha do "Set ObjRs = objConn.Execute(strQuery)" Erro: A operação deve usar uma consulta atualizável. /site/so/CS/gravar.asp, line 20 COMO POSSO CORRIGIR ISSO.

Fiz este novo modelo mais simples, mas esta dando erro Tipo de erro: Microsoft JET Database Engine (0x80004005) A operação deve usar uma consulta atualizável. /emp/so/CS/gravar.asp, line 13 alguém sabe me diser o que seria? e como corrigir? Obrigado <% 'Conectando com o banco de dados controos.mdb Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\crbasso\so\CS\controos.mdb" 'Atrubuição dos valores as respectivas variáveis varSTATUS = Request.Form("status") varHISTORICO = Request.Form("historico") autonum = Request.Form("codnumero") 'strQuery = "UPDATE TABOS SET STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' WHERE CODNUMERO ="&autonum strQuery = "update TABOS set STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' where CODNUMERO = "&autonum&" " Set ObjRs = objConn.Execute(strQuery) Response.Redirect("index.asp") %>