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

Pessoal estou com problemas com um formulario de atualização de conteudo, a pagina não retorna erro mas tambem não inclui, alguém pode me ajudar por favor. Não consigo identificar o erro? Segue o codigo do arquivo que recebe e grava. <% 'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis Option Explicit 'Não deixa informações no Cache Response.Expires = 0 'Declaração das variáveis Dim objConn, strQuery, sql Dim ObjRs, varSTATUS, varHISTORICO, autonum 'Atrubuição dos valores as respectivas variáveis varSTATUS = Request.Form("status") varHISTORICO = Request.Form("historico") autonum = Request.Form("autonum") '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" strQuery = "UPDATE TABOS SET STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' WHERE CODNUMERO ="&autonum 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set objRs = Nothing Set objConn = Nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "index.asp" end if %>

E ai Jow, Cara peguei o seu modelo fiz um modelo simples e funcionou porem quando passei para o modelo que preciso não esta dando certo. Esta dando erro na linha do Execute "set rsINCLUIR = Conexao.Execute(strINCLUIR)" Este é o Modelo que esta dando certo <!--#INCLUDE file="conexao.asp"--> <% Call abre_conexao If Request.QueryString("envio") = "ok" then end if 'Declarando as variáveis varNOME = Request.Form("nome") varNOMEAMIGO = Request.Form("amigo") varEMAILAMIGO = Request.Form("emailamigo") varDATA = day(now())&"/"&month(now())&"/"&Year(now()) 'Aqui vai Incluir no Bando de dados strINCLUIR = "insert into MODELO (NOME, AMIGO, EMAIL, DATAINC) values ('"&varNOME&"', '"&varNOMEAMIGO&"', '"&varEMAILAMIGO&"', '"&varDATA&"') " set rsINCLUIR = Conexao.Execute(strINCLUIR) 'o e-mail chegara com esta formatação texto = "<font face='Verdana' size = '2'>Você esta fazendo um teste de Formulario Granvando e enviando por e-mail, <p>Este é um teste pra ver se grava e envia por e-mail</p> <b>Data:</b> "&varDATA&"<br><b>Seu Nome :</b> "&varNOME&"<br><b>Nome do Amigo:</b> "&varNOMEAMIGO&"<br><b>e-mail do Amigo:</b> "&varEMAILAMIGO&"</font>" 'CDOSYS configuração para enviar o e-mail smtpserver = "200.234.205.145" youremail = "crbasso@crbasso.com.br" yourpassword = "crbs1011" Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = "andreferreira@crbasso.com.br" ObjSendMail.Subject = "teste do site" ObjSendMail.From = "crbasso@crbasso.com.br" ObjSendMail.HTMLBody = texto ObjSendMail.Send Set ObjSendMail = Nothing Call fecha_conexao set rsCURSO = Nothing %> Este é o Modelo que esta dando erro! <!--#INCLUDE file="conexao.asp"--> <% Call abre_conexao If Request.QueryString("envio") = "ok" then end if 'Declarando as variáveis varDATA = day(now())&"/"&month(now())&"/"&Year(now()) varAREAATUACAO = "Treinamentos In Company" varSOLICITACAO = "Determinado Treinamento" empresa = Ucase(cstr(request.form("txt_empresa"))) contato = Ucase(cstr(request.form("txt_contato"))) cargo = Ucase(cstr(request.Form("txt_cargo"))) email = Lcase(cstr(request.form("txt_email"))) telefone = cstr(request.form("txt_telefone")) site = cstr(request.form("txt_site")) proposito = cstr(request.form("txt_proposito")) mudancas = cstr(request.form("txt_mudancas")) participantes = cstr(request.form("txt_participantes")) publico = cstr(request.form("txt_publico")) normas = cstr(request.form("txt_normas")) necessidades = cint(request.form("txt_necessidades")) atendente = cstr(request.form("txt_preenchido")) 'Escolhe a quem decidil pelo treinamento if necessidades = 1 then necessidades = "Solicitação da Chefia" elseif necessidades = 2 then necessidades = "Solicitação dos Participantes" elseif necessidades = 3 then necessidades = "Levantamento de necessidades por parte do RH" elseif necessidades = 4 then necessidades = "Carência identificada na avaliação por competencia" elseif necessidades = 5 then necessidades = "Carência identificada na avaliação por desempenho" elseif necessidades = 6 then necessidades = "Outros" end if 'Aqui vai Incluir no Bando de dados strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')" set rsINCLUIR = Conexao.Execute(strINCLUIR) 'o e-mail chegara com esta formatação texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"</p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b>"&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>" 'CDOSYS configuração para enviar o e-mail smtpserver = "200.234.205.145" youremail = "crbasso@crbasso.com.br" yourpassword = "crbs1011" Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = "andreferreira@crbasso.com.br" ObjSendMail.Subject = "teste do site" ObjSendMail.From = "crbasso@crbasso.com.br" ObjSendMail.HTMLBody = texto ObjSendMail.Send Set ObjSendMail = Nothing Call fecha_conexao set rsCURSO = Nothing %> não entendo porque em um formulario não dá erros e em outro dá mais erros sendo que a sintaxce são as mesmas

E ai jow, Obrigado pela ajuda, mas continuo com problemas. segue o codigo O arquivo envia_email.asp recebe os valores do formulario trata os dados e envia por e-mail estou usando <!--#INCLUDE file="OS.asp"--> para a conexão com o banco Abaixo segue os dois codigos: envia_email.asp <!--#INCLUDE file="conexao.asp"--> <!--#INCLUDE file="OS.asp"--> <% Dim ObjSendMail 'Se for um envio do formulário in-company if request.QueryString("inc") <> "" then 'Listando o curso para aparecer no e-mail curCod = request.QueryString("inc") Call abre_conexao strCURSO = "select * from TABCUR where CURCOD = '"&curCod&"' " Set rsCURSO = Conexao.Execute(strCURSO) 'Montando a mensagem varDATA = day(now())&"/"&month(now())&"/"&Year(now()) varAREAATUACAO = "Treinamentos In Company" varSOLICITACAO = curCod empresa = Ucase(cstr(request.form("txt_empresa"))) contato = Ucase(cstr(request.form("txt_contato"))) cargo = Ucase(cstr(request.Form("txt_cargo"))) email = Lcase(cstr(request.form("txt_email"))) telefone = cstr(request.form("txt_telefone")) site = cstr(request.form("txt_site")) proposito = cstr(request.form("txt_proposito")) mudancas = cstr(request.form("txt_mudancas")) participantes = cstr(request.form("txt_participantes")) publico = cstr(request.form("txt_publico")) normas = cstr(request.form("txt_normas")) necessidades = cint(request.form("txt_necessidades")) atendente = cstr(request.form("txt_preenchido")) if necessidades = 1 then necessidades = "Solicitação da Chefia" elseif necessidades = 2 then necessidades = "Solicitação dos Participantes" elseif necessidades = 3 then necessidades = "Levantamento de necessidades por parte do RH" elseif necessidades = 4 then necessidades = "Carência identificada na avaliação por competencia" elseif necessidades = 5 then necessidades = "Carência identificada na avaliação por desempenho" elseif necessidades = 6 then necessidades = "Outros" end if texto = "<font face='Verdana' size = '2'>A/C Departamento de In Company,<p>Você esta recebendo um contato do site CR BASSO sobre o treinamento de "& rsCURSO("CURCOD") &" - "& rsCURSO("CURNOME") &" a ser realizado na seguinte empresa:<p><b>Empresa:</b> "&empresa&"<br><b>Contato:</b> "&contato&"<br><b>Cargo:</b> "&cargo&"<br><b>Telefone:</b> "&telefone&"<br><b>E-mail:</b> "&email&"<br><b>Site:</b> "&site&"<br><b>Atendente:</b> "&atendente&"<br></p><p><b>Propósito deste treinamento na empresa:</b> "&proposito&"</p><p><b>Expectativas das principais mudanças obtidas pós-treinamento:</b> "&mudancas&"</p><p><b>Número de participantes:</b> "&participantes&"</p><p><b>Público que irá participar do treinamento:</b> "&publico&"</p><p><b>Normas de Qualidade da empresa:</b> "&normas&"</p><p><b>A necessidade deste treinamento partiu de:</b> "&necessidades&"</p></font>" 'CDOSYS 'smtpserver = "mail.crbasso.com.br" 'youremail = "crbasso@crbasso.com.br" 'yourpassword = "crbfalcao24" 'Incluindo no bando de dados Call abre_OS strINCLUIR = "insert into TABOS (AREAATUACAO, SOLICITACAO, DATA, EMPRESA, CONTATO, CARGO, TELEFONE, EMAIL, SITE, ATENDENTE, NUMPARTI) values ('"&varAREAATUACAO&"', '"&varSOLICITACAO&"', '"&varDATA&"', '"&empresa&"', '"&contato&"', '"&cargo&"', '"&telefone&"', '"&email&"', '"&site&"', '"&atendente&"', '"&aparticipantes&"')" set rsINCLUIR = cnn.Execute(strINCLUIR) Call fecha_OS 'Fim Incluindo no bando de dados smtpserver = "200.234.205.145" youremail = "crbasso@crbasso.com.br" yourpassword = "crbs1011" Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = "andreferreira@crbasso.com.br" ObjSendMail.Subject = "Solicitação de proposta In Company efetuada pelo site" ObjSendMail.From = "crbasso@crbasso.com.br" ObjSendMail.HTMLBody = texto ObjSendMail.Send Set ObjSendMail = Nothing Call fecha_conexao set rsCURSO = Nothing OS.asp <% dim cnn sub abre_OS Set cnn = Server.CreateObject ("ADODB.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\crbasso\banco\controlesolicitacao.mdb" end sub sub fecha_OS cnn.close Set cnn = Nothing End sub %> Teria como você adapitar o seu codigo no meu por favor Aguardo obrigado

Como faço pra consultar uma tabela no Access. Preciso que o arquivo faça uma verificação no banco se um endereço de e-mail já existe se sim, ele me retorna uma mensagem indicando que este e-mail já exite. se este endereço não estiver na base abre um formulario para inclusão do formulario. Estou tendo problemas com este caso segue o que eu fiz 'Buscando os dados no banco if varTEXTO = "" then 'Buscando o e-mail da pessoa no banco strEMAIL = "select * from EXCLUSAO where EMAIL = '"&varEMAIL&"' " set rsEMAIL = Conexao.Execute(strEMAIL) 'Se não encontrar um E-mail válido no Banco if rsEMAIL.eof then varTEXTO = "ELE NÃO ENCOTROU MAIS NO BANCO ESTE E-MAIL" 'Verificando se o e-mail já foi excluido if rsEMAIL("EMAIL") = varEMAIL then varTEXTO = "<p>O e-mail <b>"&varEMAIL&"</b> já está excluso de nossa base de dados.</p><p>Devido à nossa programação de envio de e-mails, pode ser que você ainda esteja recebendo nossos informativos, mas, a partir da data de <b>"&rsEMAIL("DATA")&"</b> seu nome não consta em nenhum novo agendamento.</p><p>A CR Basso continua com sua missão, visando fortalecer competências empresariais e profissionais.</p>" 'Redireciona p/ informar que e-mail já esta excluido response.Redirect("http://www.crbasso.com.br") else varTEXTO = "" end if end if end if

Esta incluindo automaticamente, e não esta verificando se esta na banco. Na verdade este formulario é para que saibamos o motivo da sua exclusão, mas precisa ser verificado antes de aparecer a pagina o formulário se o email já esta na lista se o e-mail já esta na lista então ele já solicitou a exclusão.