AlbertoRT

Jhonas. Obrigado mas não tem como acabar com isso?

Há anos que uso Dreamweaver, atualmente com o DWCS3, e nunca aconteceu de usar a tecla F12 ou o próprio atalho de DW para abrir um site e, aparecer primeiro, uma tela branca (Firefox) na barra superior “Nova aba”, no endereço consta “Pesquisar ou abrir endereço”. Mantendo essa “Nova aba” aberta e voltando no DW e dando um F12 abre o site normalmente. Seria algum problema no Firefox? Não alterei nada no DW. Obrigado

Marcelo, Por favor, eu localizei um Livro de Jakob Nielsen: Seria esse? Mas você informou que são dois. Esse eu achai na Saraiva. O outro "não me faça pensar" achei aqui em pdf (acredito que seja esse). Marketing One to One - Don Peppers e Martha Rogers ainda não achei nada. Mas vou continuar buscando. Desculpe as bobagens mas vou conseguir aprender. Sou diabético e, ainda, tremendamente ansioso. Depois que li suas críticas só desejava sair e comprar os livros. Minha glicose hoje está com 264. Mas no dia chegou a 340. Fiquei bastante desanimado mas já passou. As coisas tem que ser assim. Ainda não tinha recebido nenhuma crítica do tipo das suas. Muito embora eu saiba que tem muita coisa para corrigir e aprender. Desde que iniciei tem plena consciência disso. Estou longe de programador mas vou continuar estudando. O site, blog só tem como finalidade estudar. Sou aposentado, não tenho o propósito de vender nada pelo site ertc. Gosto de passar horas e mais horas lendo e fazendo exercícios de livros, dos fóruns etc. Tenho que manter a calma e ir analisado caso a caso... Mas valeu cara os críticas. Até ++. Muito obrigado por tudo. Sucesso!

O meu site, blog...é pra mim um laboratório. Inclusive foi o primeiro que criei depois de ler um livro até o final. Esta muito longe de ser um parâmetro para muitos. De forma alguma não veja como, repito, parâmetro, mas até agora às 17:03 do dia 13/12/2014 foram 5.232 visitantes nacionais e internacionais. Todos aqueles pontos em vermelhos no "globo" são pessoas com quem eu já falei e muitos deles enviaram carta (cartão de confirmação). Lógico, que você vai informar que esses acessos quer dizer aquelas pessoas gostaram do site... Mas tenho certeza que elas não tiveram tanta decepção assim. Mas valeu, se me permitir o "cara", vou continuar lutando se não consegui dessa primeira vez, vou ler os livros indicados por você, vou estudar mais... e quem saber. O site, mesmo diante de todas as suas críticas, na minha humilde avaliação tem muita coisa em Flash no mapa, o banco está muito pesado e outras coisas que está levando o site a ficar lento conforme você criticou. É claro que você não tem obrigação de saber, mas não é o meu caso usar "o google maps" pelo seguinte: Os "países" na realidade não são países para nós do “radioamadorismo” não existem países, mas sim "entidades"; A ideia é clicar (caixa de combo) ou a onde for é além de localizar antecipadamente onde se encontra aquela "entidade" é poder fazer um comentário sobre “entidade” com que eu falei e que ficou registrado no meu banco de dados; A marcação mesmo que seja aproxima da “entidade” no mapa é de suma importância pra mim e para com quem eu fiz o contato. Registrar no (banco de dados) registra tipo: o horário em UTC xx:xx que, no Brasil estava com a temperatura tal que, o vento norte sopra do norte para o sul, um vento leste sopra de leste para oeste que, minha antena estava na posição x,y,z que, minha Latitude e Altitude é era tal em relação aquele pais (entidade) é muito importante para alguns pessoas. Tal vez para um biólogo não seja tão importante, mas ele formará um juízo a meu respeito muito mais acurado que outras pessoas. Com relação ao seu comentário: Trata-se de excesso de zelo, preocupação com que vai acessar o site, educação. Longe de mim de querer ser asqueroso, inconveniente, sarcasmo, etc Mas se com isso te aborreci, melindrei, mexi com seus brios etc, perdão! Este certo que você contribuiu muito inclusive para que eu não desista. Vou plagiar a letra do meu querido e eterno compositor Cartola “Sei que errei. Errei inocente.” Obrigado e até ++

Marcelo_2, Muito obrigado. Se for possível Marcelo de uma olhada no http://www.informacaoteixeira.com.br/ (No meu blog do endereço abaixo, na área Informática, no centro, na parte inferior ultimo link). O objetivo é antecipadamente marcar no mapa a posição do "país". Estou com vontade de aproveitar a informação que você criou "você escolheu:" e fazer no banco de dados um campo com comentários sobre aquele país. Não sei também mas o ideal seria que ao iniciar não aparecesse (o primeiro) da lista, no caso "Açores" na caixa combo mas sim a frase "escolha aqui país". Eu já vi essa funcionalidade em alguma página. Creio que não exista outra saída a não ser digitar para todos os "Países" o código: <div id="div-acores"> <% if (resultado="Açores") Then response.write ""&resultado End If %> </div> Correto? Obrigado também pela dica (link) já dei uma olhada. Até ++ Abraços e muito sucesso.

No meu blog do endereço abaixo, na área Informática, no centro, na parte inferior ultimo link http://www.informacaoteixeira.com.br/ na caixa Combo "povoei" com os registros da tabela "tb_siglas_paises", do campo "nome_pais". Vamos supor que esteja indicando "Açores" na caixa combo. Estou necessitando de um botão (btn_localizar) que clicando abra uma outra página mostrando só a palavra "Açores" que eu optei na caixa combo. E assim com os outros nome por exemplo optando por "Angola" clicando no "btn_localizar" abre outra página só indicando "Angola". Não estou conseguindo colocar na página "inserirend_action.asp" esse botão (btn_localizar) com essa funcionalidade. .

Por favor, Trata-se do seguinte, meu Office é de 2007. Ao digitar um texto no Outlook 2007, digito normal ocorre que ao receber observo que o espaço entre uma linha e outra horizontamente é talves o dobro. Tipo assim: Eu dugito: xxxxxxxxxxxxxxxxxxxxxxxxxx,aaaaaaa, braaaaaa fafafaffbba.Ahhhhhhhhhhh, abatannnnnnnnn. Quando recebo a resposta o mesmo texto meu está assim: xxxxxxxxxxxxxxxxxxxxxxxxxx,aaaaaaa, braaaaaa fafafaffbba.Ahhhhhhhhhhh, abatannnnnnnnn. Como manter o mesmo espaço quando enviei o texto? Obrigado

Uso o Outlook porem de vez em quando abro através da página do terra os e-mail Spam. Observo que ao indicar que um determinado e-mail "Não é Spam" abro o Outlook entra os e-mail mas não consigo visualizar. Por exemplo abrir pelo terra e indiquei em cinco e-mails que "Não é Spam" eles sairam da página do terra. Ao abrir o Outlook aparecem 5 (cinco) e-mail não lidos mas não vejo esses e-mails. Como poderei resolver esse problema?

Olá amigo! Ainda estou sem experiência para ajudar, mas você já tentou clicar com o lado direito na pasta do Banco de Dados depois em “Propriedades” em seguida vai abrir "Propriedades de Dados" você vai em "Segurança” e verifica se existe a permissão “Todos”. Tudo tem que está habilitado. Caso não exista clique em “Adicionar” e digite “Todos” e marca tudo. Mesmo o banco estando local é necessário esse procedimento. Mas tenho certeza que o companheiro Alea (um abraço) vai solucionar. Ele tem sido o meu guru. Tenho um projeto parecido com o seu que está funcionando qualquer coisa informa. Abraços

Salve, Salve Bareta meu respeito. Ficou tudo muito confuso por minha causa mesmo. Diante disso não sei mais o que responder. Só sei que diante das suas sugestões eu continuei estudando. Com base as suas sugestões: “você esta abrindo a conexao, mais não executa sql nenhuma...” eu parti para uma experiência pois tenho certeza absoluta que não toquei em um linha do código que trata de QSL e dessa forma tenho que provar a mim mesmo que a SQL está ali e não se trata de erro de não executar. Vamos então zerar tudo e, por favor, acompanha esse passo a passo: a) Em um uma pasta com esse caminho "C:\inetpub\wwwroot\serieweb\Nasp\database\dbEditora.mdb" tenho um bando de dados chamado dbEditora.mdb; B) Esse caminho se encontra dentro do arquivo chamada: “dbConexao.inc” que tem o seguinte código completo: <% Sub AbreConexao Set conexaoDataBase = Server.CreateObject("ADODB.Connection") conexaoDataBase.CursorLocation=3 const cntCaminho = "C:\inetpub\wwwroot\serieweb\Nasp\database\dbEditora.mdb" conexaoDataBase.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cntCaminho end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %> c) Esse arquivo de conexão faz a conexão com a página: “ResProva_LT_01_01.asp”, ou seja, o registro (Senha) que é digitada na página “Prova_LT_01_01.asp” que por sua vez “fala” com a ““ResProva_LT_01_01.asp” e essa com o arquivo de conexão “dbConexao.inc”; d) Esse processo funciona perfeitamente bem com o mesmo SQL que você informou que eu não estava executando (se eu não estou executando SQL como que aqui ele grava o registro na tabela?) e) O que me levou a postar neste fórum é que eu gostaria que as páginas “Prova_LT_01_01.asp” e a “ResProva_LT_01_01.asp” não fossem mais trabalhadas via <!--#include file f) Para que isso ocorresse copiei as duas páginas “Prova_LT_01_01.asp” e a “ResProva_LT_01_01.asp” para outra pasta, ou seja, “C:\inetpub\wwwroot\Meu novo site” e somente deletei a linha “Prova_LT_01_01.asp” e a “ResProva_LT_01_01.asp” g) Convém ficar claro que todas as páginas em ASP que trabalham nessa pasta estão funcionando perfeitamente bem com a conexão direta no HTML conString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" A única diferença no funcionamento destas páginas ASP nessa pasta é que em nenhuma página Inclui registro em tabela, mas sim apresentam na tela os registros. h) Se essas duas paginas funcionam perfeitamente bem em outra pasta com (letra “a”) um arquivo de conexão “dbConexao.inc”, copiei esse arquivo de conexão para essa pasta (letra f) e fui verificar se iria grava os registros (senha) na tabela tb_prova_legislacao_telec_1_classe_C, registrando em “Prova_LT_01_01.asp”; i) Pronto funcionou tudo e não toquei em uma linha de qsl. Somente copiei para essa pasta mudei o caminho do arquivo mdb e o caminho no arquivo "dbConexao.inc" Resumo: 1) Tenho duas páginas (“Prova_LT_01_01.asp” e a “ResProva_LT_01_01.asp”) que funcionam fazendo a conexão via um arquivo <!--#Include file="../dbConexao.inc"--> 2) Tentei retira essa conexão via "include" e ficar apenas com a conexão no HTML. Não consegui. 3) Salvei essas duas páginas (“Prova_LT_01_01.asp” e a “ResProva_LT_01_01.asp”) em outra pasta de trabalho e mantive a conexão via "include" passou a funcionar perfeitamente bem. 4) Agora o problema que eu não queria enfrentar é retirar a conexão que HTLM de outras páginas que estão funcionando e colocar tudo com conexão <!--#Include file="../dbConexao.inc"--> Por exemplo tenho logs.asp que apresenta os regitros na tela e sua conexão está no html. E o arquivo de conexão dbConexao.inc Como vou fazer para a página logs.asp venha a ser aberta usando <!--#Include file="../dbConexao.inc"--> como mesmo arquivo dbConexão. Se ele funciona na mesma pasta de uma página não pode não funcionar para uma outra. Tenho que mudar alguma coisa em logs.asp. Mas o que?

Por favor, com todo respeito observe o que eu coloquei: "As funções que apareciam como comentário elas existiam. A "exclusão" dessas funções podem ter acarretado essa falta de inclusão do registro?:" "...pareciam...existiam...". Com as sugestões do Alea eu retirei. Eu já informei que as duas páginas ASP são frutos de um estudo. Porem duas estão em um diretório diferente funcionando perfeitamente bem mas com uma conexão via "#include file" (arquivo dbConexao.inc). Bareta esse deve ser o meu problema. Considerando a minha falta de competência achei que seria mais prudente não aprender agora a fazer a conexão via “#include file”, pois teria que alterar outras páginas das páginas do Blog. Portanto existem a) As páginas “Prova_LT_01_01.asp” e “ResProva_LT_01_01.asp”, que se encontram em um diretório . A “ResProva_LT_01_01.asp” tem em sua parte superior: <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% Obs.: Bareta, o mesmo sql que existe no exemplo acima tem nas duas páginas que são iguais que só retirei a conexão “#include file”. Portanto a sql está sendo executada. B) A “Prova_LT_01_01.asp” que se encontra em outro diretório não teve alteração alguma mantive o mesmo código da citada na alínea “a”; c) A “ResProva_LT_01_01.asp” o código foi alterado seguindo as orientações do Alea, ou seja, somente retirei a conexão via <!--#Include file="../dbConexao.inc"--> e as funções de “Abrir” e “Fechar”. Volto a afirmar que não toquei mais em uma linha se quer do código, portanto a sql é a mesma. Caso contrário como iria funcionar a página “ResProva_LT_01_01.asp” com conexão via <!--#Include file="../dbConexao.inc"--> citada na alínea “a”? Bareta, resumindo, eu tenho duas páginas em “asp” que rodam perfeitamente cujo código de conexão é feito via <!--#Include file="../dbConexao.inc"--> e uma outra que mantive todo o código excluindo funções “Abrir” e “Fechar” e incluindo o código de conexão que ainda não funcionou.

Eu sinto muito mas muito mesmo em ainda não poder te ajudar. Ainda estou muito distante desses conhecimentos. Se Deus quiser alguém aqui vai postar e esclarece para você. Desejo muito sucesso para você.

Bareta, tudo bem postei duplamente estou errado vou prestar mais atenção. Desculpe. Valeu a chamada. E com isso eu fiquei mais prejudicado nos esclarecimentos. Com os detalhes das orientações do Alea fiz as alterações nas linhas de conexão. Porém agora aparece a mensagem de sucessu na inclusão de registro, por exemplo: “Sua prova com a senha: "1111111111" foi gravada. Veja os pontos na página resultado” Mas no bando de dados não consta nada. Fica vazio. Nem se quer entram zeradas. Continua achando que tem haver com as variáveis que estavam abrindo e fechando a tabela. Bareta, Alea e todos que aqui chegarem convém informar que o código que uso nas duas páginas ASP é resultado de um estudo fiz que, inclusive, as páginas ASP tem o códigos “#include file” que no momento não gostaria de fazer, pois ainda não estou seguro e vai envolver outras páginas que já estão funcionando no servidor (empresa de hospedagem do meu blog). Com isso tentei adaptar esse código fazendo a conexão na própria página ASP: O formulário Prova_LT_01_01.asp: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> &lt;script> function valida(formProva) { if (formProva.txtNum_senha_plTL.value=="") { alert("Preencha o campo senha da prova."); formProva.txtNum_senha_plTL.focus(); return false; } } </script> </head> <body> <form name="formProva" method="post" action="ResProva_LT_01_01.asp" onsubmit="return valida(formProva);"> <div align="center"><span class="style3"><strong>Prova de Legislaçao de Telecomunicações</strong></span><br /> <br /> Marque apenas um ( x ) na questão correta. Sua questão será anulada caso marque mais de um ( x ) em uma mesma questão. <br /> Boa Sorte!<br /> </div> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td colspan="2">&nbsp;</td> </tr> <tr> <td width="82%">Digite o número da senha: <input name="txtNum_senha_plTL" type="text" size="10" maxlength="10" /></td> </tr> <tr> <td width="82%" height="20">1) Qual dos documentos abaixo relacionados autoriza o radioamador a instalar sua estação:</td> </tr> <tr> <td height="5">&nbsp;</td> </tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="txtResp_alternativa_a_perg_1_p1TL" style="text-align:center" type="text" size="1" maxlength="1" /> a) certificado de operador de estação radioamador; </td> </tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="txtResp_alternativa_b_perg_1_p1TL" style="text-align:center" type="text" size="1" maxlength="1" /> b) comprovante de pagamento das taxas de fiscalização das telecomunicações; </td> </tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="txtResp_alternativa_c_perg_1_p1TL" style="text-align:center" type="text" size="1" maxlength="1" /> c) certificado de operador de estação de radioamador e comprovante de pagamento das taxas de fiscalização das telecomunicações; </td> </tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="txtResp_alternativa_d_perg_1_p1TL" style="text-align:center" type="text" size="1" maxlength="1" /> d) comprovante de filiação a uma associação de radioamadores reconhecida pela Anatel; </td> </tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input name="txtResp_alternativa_e_perg_1_p1TL" style="text-align:center" type="text" size="1" maxlength="1" /> e) licença de estação de radioamador.</td> </tr> <td width="82%"><input type="submit" value="Inserir" name="btInsere" /> <input type="reset" value="Limpa campos" name="btLimpa" /></td> <td width="18%">&nbsp;</td> </tr> </table> </form> </body> </html> O objetivo é incluir a Senha digitada em Prova_LT_01_01.asp no bando de dados. Para isso existe a página a página ResProva_LT_01_01.asp que ficou com esse código após fazer as alterações no código para conexão: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'Crindo a conexão Conexao="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" 'Abrindo a conexão com banco de dados Set conexaoDataBase = Server.CreateObject("ADODB.Connection") conexaoDataBase.open Conexao Dim conexaoDataBase Dim strIns, rsProva Dim varNum_senha_p1TL, varResp_alternativa_a_perg_1_p1TL, varResp_alternativa_b_perg_1_p1TL, varResp_alternativa_c_perg_1_p1TL, varResp_alternativa_d_perg_1_p1TL, varResp_alternativa_e_perg_1_p1TL varNum_senha_p1TL = Request.Form("txtNum_senha_plTL") varResp_alternativa_a_perg_1_p1TL = Request.Form("txtResp_alternativa_a_perg_1_p1TL") varResp_alternativa_b_perg_1_p1TL = Request.Form("txtResp_alternativa_b_perg_1_p1TL") varResp_alternativa_c_perg_1_p1TL = Request.Form("txtResp_alternativa_c_perg_1_p1TL") varResp_alternativa_d_perg_1_p1TL = Request.Form("txtResp_alternativa_d_perg_1_p1TL") varResp_alternativa_e_perg_1_p1TL = Request.Form("txtResp_alternativa_e_perg_1_p1TL") strINS = "INSERT into tb_prova_legislacao_telec_1_classe_C" strINS = strINS & "(Num_senha_p1TL, Resp_alternativa_a_perg_1_p1TL, Resp_alternativa_b_perg_1_p1TL, Resp_alternativa_c_perg_1_p1TL, Resp_alternativa_d_perg_1_p1TL, Resp_alternativa_e_perg_1_p1TL )" strINS = strINS + "VALUES ('" + varNum_senha_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_a_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_b_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_c_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_d_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_e_perg_1_p1TL + "')" 'Call abreConexao 'Response.Write(strINS) 'Set rsProva = conexaoDataBase.Execute(strINS) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Inserindo dados em uma tabela</title> </head> <body> Sua prova com a senha: "<strong><% = varNum_senha_p1TL %></strong>" foi gravada. Veja os pontos na página resultado </body> </html> <% set conexao = nothing 'Call fechaConexao 'Set rsProva = Nothing %> As funções que apareciam como comentário elas existiam. A "exclusão" dessas funções podem ter acarretado essa falta de inclusão do registro?: 'Call abreConexao 'Response.Write(strINS) 'Set rsProva = conexaoDataBase.Execute(strINS) E 'Call fechaConexao 'Set rsProva = Nothing Muito obrigado e mais um vez desculpe por tudo.

Agora abriu o erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'fechaConexao' /meu novo site/ResProva_LT_01_01.asp, line 51 A linha 51 é: <% Call fechaConexao Set rsProva = Nothing %> Retirando essa linha não vai trazer problema para onde informa? Set rsProva = Nothing O exemplo que você deu para fecha tem um variável. RecSet.close set RecSet = nothing E aqui como fica para fechar?

Desculpe de ter postado duas vezes. Bem, digitei exatamente conforme as suas orientação porém tem algo mais. Existem variáveis que se eu retirar vai acarretar problema. Não vai? É isso que eu não entendo. Digitei na página "ResProva_LT_01_01.asp": <% 'Criando a conexão Conexao="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\Meu_novo_site\dados\info16br.mdb" 'Abrindo a conexão com banco de dados Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Dim conexaoDataBase Dim strIns, rsProva Dim varNum_senha_p1TL, varResp_alternativa_a_perg_1_p1TL, varResp_alternativa_b_perg_1_p1TL, varResp_alternativa_c_perg_1_p1TL, varResp_alternativa_d_perg_1_p1TL, varResp_alternativa_e_perg_1_p1TL varNum_senha_p1TL = Request.Form("txtNum_senha_plTL") varResp_alternativa_a_perg_1_p1TL = Request.Form("txtResp_alternativa_a_perg_1_p1TL") varResp_alternativa_b_perg_1_p1TL = Request.Form("txtResp_alternativa_b_perg_1_p1TL") varResp_alternativa_c_perg_1_p1TL = Request.Form("txtResp_alternativa_c_perg_1_p1TL") varResp_alternativa_d_perg_1_p1TL = Request.Form("txtResp_alternativa_d_perg_1_p1TL") varResp_alternativa_e_perg_1_p1TL = Request.Form("txtResp_alternativa_e_perg_1_p1TL") strINS = "INSERT into tb_prova_legislacao_telec_1_classe_C" strINS = strINS & "(Num_senha_p1TL, Resp_alternativa_a_perg_1_p1TL, Resp_alternativa_b_perg_1_p1TL, Resp_alternativa_c_perg_1_p1TL, Resp_alternativa_d_perg_1_p1TL, Resp_alternativa_e_perg_1_p1TL )" strINS = strINS + "VALUES ('" + varNum_senha_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_a_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_b_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_c_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_d_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_e_perg_1_p1TL + "')" Call abreConexao 'Response.Write(strINS) Set rsProva = conexaoDataBase.Execute(strINS) %> Depois de entrar com os resgistros no Formulário Prova_LT_ 01_01.asp abre a mensagem de erro apontando para a página "ResProva_LT_01_01.asp", onde tem a conexão. A mensagem de erro é: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: 'abreConexao' /meu novo site/ResProva_LT_01_01.asp, line 34 Já existe uma abertura conforme abaixo que faz referencia a variáveis criadas. Não posso retirar essa variáveis se não vai para tudo. Correto? A linha 34 é: Call abreConexao 'Response.Write(strINS) Set rsProva = conexaoDataBase.Execute(strINS) Obrigado.

Tenho esse formulário, que não consigo fazer o codigo de conexeção. O caminho está correto do bando está correto: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim conexaoDataBase Dim strIns, rsProva Set rsProva = Server.CreateObject("ADODB.Connection") conexaoDataBase.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" Dim varNum_senha_p1TL, varResp_alternativa_a_perg_1_p1TL, varResp_alternativa_b_perg_1_p1TL, varResp_alternativa_c_perg_1_p1TL, varResp_alternativa_d_perg_1_p1TL, varResp_alternativa_e_perg_1_p1TL varNum_senha_p1TL = Request.Form("txtNum_senha_plTL") varResp_alternativa_a_perg_1_p1TL = Request.Form("txtResp_alternativa_a_perg_1_p1TL") varResp_alternativa_b_perg_1_p1TL = Request.Form("txtResp_alternativa_b_perg_1_p1TL") varResp_alternativa_c_perg_1_p1TL = Request.Form("txtResp_alternativa_c_perg_1_p1TL") varResp_alternativa_d_perg_1_p1TL = Request.Form("txtResp_alternativa_d_perg_1_p1TL") varResp_alternativa_e_perg_1_p1TL = Request.Form("txtResp_alternativa_e_perg_1_p1TL") strINS = "INSERT into tb_prova_legislacao_telec_1_classe_C" strINS = strINS & "(Num_senha_p1TL, Resp_alternativa_a_perg_1_p1TL, Resp_alternativa_b_perg_1_p1TL, Resp_alternativa_c_perg_1_p1TL, Resp_alternativa_d_perg_1_p1TL, Resp_alternativa_e_perg_1_p1TL )" strINS = strINS + "VALUES ('" + varNum_senha_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_a_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_b_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_c_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_d_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_e_perg_1_p1TL + "')" Call abreConexao Response.Write(strINS) 'Set rsProva = conexaoDataBase.Execute(strINS) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Inserindo dados em uma tabela</title> </head> <body> Sua prova com a senha: "<strong><% = varNum_senha_p1TL %></strong>" foi gravada. Veja os pontos na página resultado </body> </html> <% Call fechaConexao Set rsProva = Nothing %> Isso é um tormento essa conexão.

Muito obrigado. Tentei isso: conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" Usando: v_caminho = Server.MapPath("./dados/info16br.mdb") Não funcionou. Muito obrigado pela atenção. Vou trabalhar outros exemplos e qualquer coisa volto a postar.

Um dos meus maoires problemas vem ser fazer a conexão com banco de dados. A maior parte dos meus estudos com páginas ASP ficam prejudicados ao chegar nessa parte de conexão. Eu aprendi a fazer a conexão com esse código: <% conString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" Set conexao=Server.CreateObject("ADODB.Connection") conexao.open constring 'crio o rs set rs=Server.CreateObject("ADODB.Recordset") 'crio o SQL SQL="SELECT qry_registros_cadastrados.* FROM qry_registros_cadastrados" rs.open SQL,conexao,1,3 %> A tabela abre tudo normalmente. Agora a conexão abaixo apresenta erro e não sei como alterar para fazer a conexão. Mesmo colocando todo o caminho "C:\inetpub\wwwroot\Meu novo site\dados\info16br.mdb" conforme o exemplo acima, não funciona. Porque? Neste código o banco de dados é o mesmo, se encontra no mesmo diretório. Não teria que fazer a conexão? <% Dim user, pass user = Request.Form("user") pass = Request.Form("pass") Dim conObj Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dados/info16br.mdb") & ";" Dim sql sql = "SELECT * FROM users WHERE user='" & user & "' AND pass='" & pass & "'" Dim rs Set rs = conObj.Execute(sql) If rs.EOF Then login = false Else login = true End If If login = true Then Session("logado") = true Response.redirect("user_index.asp") Else Response.redirect("erro.asp") End If %> Obrigado

Por favor, O campo é Texto conforme informado no início: Usuario_id - Tipo - Numeração Automática Usuario_Nome - Tipo - Texto email_candidato - Tipo - Texto num_senha - Tipo - Texto Deve ser outro problema

Tenho um formulário "Contato.html" que funcionava perfeitamente. Depois que entrei com o campo "Estado" não fucionou mais. Apresenta Erro na pagina sendmail.asp linha 64 Formulário: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <script type="text/javascript"> //<![CDATA[ window.onload = function(){ id('form1').onsubmit = function(){ var erro = 0; erro = !obr( 'Nome' ) ? erro+1 : erro; erro = !obr( 'Estado' ) ? erro+1 : erro; erro = !obr( 'Email' ) ? erro+1 : erro; erro = !obr( 'Assunto' ) ? erro+1 : erro; erro = !obr( 'Mensagem' ) ? erro+1 : erro; if( !checkMail( id('Email') ) ) { alert( 'Digite um email válido!' ); return false; } if( erro>0 ) return false; }; }; function obr( campo ){ if( id(campo).value=='' || id(campo).value==0 ){ alert( 'O campo '+campo+' é obrigatório!' ); return false; } else return true; if( id(campo).value==' ' || id(campo).value==0||id(campo).value=='Escolha uma opção/assunto'){ alert( 'O campo '+campo+' é obrigatório!' ); return false; } else return true; } if( id(campo).value==' ' || id(campo).value==0||id(campo).value=='Estado'){ alert( 'O campo '+campo+' é obrigatório!' ); return false; } else return true; } function id( el ){ return document.getElementById( el ); } function checkMail(mail){ var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/); if(typeof(mail) == "string"){ if(er.test(mail)){ return true; } }else if(typeof(mail) == "object"){ if(er.test(mail.value)){ return true; } }else{ return false; } } //]]> </script> <title>Blog Teixeira - Contato</title> <meta name="description" content="divulgar diversos assuntos" /> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta content="pt-br" name="language" /> <meta content="Teixeira" name="title" /> <link type="text/css" media="all" rel="stylesheet" href="css/geral.css" /> <link type="text/css" media="all" rel="stylesheet" href="css/formulario.css" /> </head> <body> <!--Início da div tudo--> <div id="tudo"> <!--Início da div topo--> <div id="topo"> <h1>Blog <span>do Teixeira</span></h1> <!--Início da div sobre--> <div id="sobre"> <p>Teixeira teve um bom aproveitamento em diversos cursos da Área de WebDesign e WebMaster. Atualmente aposentado tem esse espaço para postar comentários, artigos, reportagens, pesquisas. Tudo que ache relevante para o debate e a livre expressão de opiniões.</p> </div> <!--Fim da div sobre--> <!--Início da div nav--> <ul id="nav"> <li><a href="index.html">Inicial</a></li> <li><a href="politica.html">Política</a></li> <li><a href="hobby.html">hobby</a></li> <li><a href="informatica.html">Informática</a></li> <li><a href="religiao.html">Religião</a></li> <li><a href="pesquisa.html">Pesquisa</a></li> <li><a href="samba.html">Samba</a></li> <li><a href="index.html">Eu indico</a></li> <li><a href="blog.html">Blog</a></li> </ul> </div> <!-- Fim da div#topo --> <!--Início da div principal contato--> <div id="principal-contato"> <form method="post" id="form1" action="sendmail.asp" name="Inputform"/> <input type="hidden" name="email" value="carlos.teixeira@terra.com.br"/> <table width="986" id="table"> <tbody> <tr> <td id="td" colspan="2"> <p class="p-top">Todas as mensagens serão lidas, analisadas e publicadas em seguida.<br /> Muito Obrigado.<br /> 1 - Serão, automaticamente, descartados os comentários que contenham insultos, agressões e ofensas;<br/> 2 - que contenham qualquer espécie de anexo ou link, casos extremos contatar proprietário do site. </p> </td> </tr> <tr> <td id="td-nome"><span>Nome:</span></td> <td><input type="text" name="name" id="Nome" size="60"/></td> </tr> <tr> <td id="td-estado"><span>Estado:</span></td> <td> <select name="Estado" id="Estado"> <option value="0">Estado</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PN">PN</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="TO">TO</option> </select> </td> </tr> <tr> <tr> <td id="td-email"><span>email:</span></td> <td><input type="text" name="mailfrom" id="Email" size="40"/></td> </tr> <tr> <td id="td-opcao"><span>Opção/assunto:</span></td> <td> <select name="Assunto" id="Assunto"> <option value="0">Escolha uma opção/Assunto</option> <option value="Hobby">Hobby</option> <option value="Informática">Informática</option> <option value="Pesquisa">Pesquisa</option> <option value="Política">Política</option> <option value="Prestação de Serviços">Prestação de Serviços</option> <option value="Religião">Religião</option> <option value="Samba">Samba</option> </select> </td> </tr> <tr> <td id="td-mensagem"><span>Comentários:</span></td> <td> <textarea name="mensagem" cols="80" rows="10" id="Mensagem"></textarea> </td> </tr> <tr> <td class="td-mensagem"><span> </span></td> <td><input type="submit" name="Enviar" value="Enviar" /> <input type="reset" value="Cancelar" /></td> </tr> </tbody> </table> </form> </div> <!-- Fim da div principal contato --> <!--Início da div#rodape --> <div id="rodape"> <p>Site criado em 2010 por Teixieira - Copyright &reg; 2010 - Rio de Janeiro/RJ</p> </div> <!--Fim da div#rodape--> </div> <!--Fim da div#tudo--> </body> </html> Pagina sendmail.asp Erro na linha 64 mensagem: message.send CDO.Message.1 error '8004020d' At least one of the From or Sender fields is required, and neither was found. /sendmail.asp, line 64 sendmail.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.Charset="ISO-8859-1"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <% ' Cria os objetos para envio de e-mail Set message = Server.CreateObject("CDO.Message") Set conf = Server.CreateObject("CDO.Configuration") Set param = conf.Fields param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" param.Update 'Obtendo valores digitados no formulário e armazená-los nas variáveis locais strFrom = Request.Form("mailfrom") strTo = Request.Form("email") strSubject = Request.Form("assunto") strBody = Request.Form("mensagem") strSubject = Request.Form("estado") 'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado 'para envio de Spam aux1 = chr(13) aux2 = chr(10) regex= " | |cc:|bcc:|"& aux1 &"|"& aux2 Set objRegExp = New RegExp objRegExp.Pattern = regex objRegExp.IgnoreCase = True objRegExp.Global = True strFrom = objRegExp.Replace(strFrom,"") strTo = objRegExp.Replace(strTo,"") strSubject = objRegExp.Replace(strSubject,"") Set message.configuration = conf 'Atribui-se os valores para as propriedades do objeto message.From = strFrom message.To = strTo message.Subject = StrSubject message.textBody = "Mensagem: <br> <br>" & _ "Nome:&nbsp;&nbsp;&nbsp;"& Request("name")& "<br>" & _ "Estado:&nbsp;&nbsp;&nbsp;"& Request("estado")& "<br>" & _ "E-Mail:&nbsp;&nbsp;&nbsp;"& Request("mailfrom")& "<br>" & _ "Assunto:&nbsp;&nbsp;&nbsp;"& Request("assunto")& "<br>" & _ "Mensagem:&nbsp;&nbsp;&nbsp;"& Request("mensagem") message.HTMLBody = message.textBody 'Envia no formato HTML ' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo: ' - Você pode enviar e-mail HTML, arquivos anexados, etc; ' - Você pode mudar muitos aspectos da mensagem; 'message.HTMLBody = StrBody 'Envia no formato HTML 'message.Cc = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia 'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta 'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta) 'message.AddAttachment "I:InetpubWwwrootSuaContaNomeDoArquivo" 'Anexa arquivo na mensagem ' Envia a mensagem! message.send 'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio 'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail Set message = nothing Msg = "Mensagem enviada com sucesso!" Response.Write "<html><body><table align=center><tr><td>&nbsp;</td></tr>" Response.Write "<tr><td>&nbsp;</td></tr>" Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>" Response.Write "</body></html>" %> <% Response.Redirect "http://informacaoteixeira.com.br/confirma_formulario.html" %> </head>

Tenho um formulario que pesquisa, por exemplo, o Título de livro em um banco de dados. Não estrou sabendo colocar uma "Condição" de forma que se for digitado algo que não exista no banco de dados (um Titulo) ao clicar em Pesquisar abrea outra página informando do erro. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <form method="post" action="ResLab9_9.asp"> Pesquisa por título de um livro:<br /> Digite o Título ou parte do nome a ser pesquisado: <input type="text" name="txtTitulo" /> <input type="submit" value="Pesquisar" name="pesq" /> </form> </body> </html> Muito obrigado

Coloquei a linha conforme sugerido abriu a página de erro com a mensagem: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /serieweb/Nasp/Laboratorios/validalogin.asp, line 59, column 98 Recset.open "select * from usuarios where email_candidato='"&login&"' and num_senha ='"&senha&"'",Call Obrigado Alea

É Alea, estou totalmete enrolado. Eu não estou sabendo fazer a conexão no seu código como uma conexão que está funcionando, conforme abaixo. Como disso essa será a primeira página em ASP dessa forma e estou perdido. Teitei usar a mesma lógica de conexão da página ResProva_LT_01_01.asp que, está fazendo a conexão mas não consigo fazer o mesmo a a sua. O seu exemplo eu procurei fazer tudo igual com a que está funcionando isso porque o "Include file", o banco de dados são os mesmos somente a tabela que muda para "usuarios" com os campos: Usuario_id - Tipo - Numeração Automática Usuario_Nome - Tipo - Texto email_candidato - Tipo - Texto num_senha - Tipo - Texto Essa conexão funciona <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% Dim conexaoDataBase Dim strIns, rsProva Dim varNum_senha_p1TL, varResp_alternativa_a_perg_1_p1TL, varResp_alternativa_b_perg_1_p1TL, varResp_alternativa_c_perg_1_p1TL, varResp_alternativa_d_perg_1_p1TL, varResp_alternativa_e_perg_1_p1TL varNum_senha_p1TL = Request.Form("txtNum_senha_plTL") varResp_alternativa_a_perg_1_p1TL = Request.Form("txtResp_alternativa_a_perg_1_p1TL") varResp_alternativa_b_perg_1_p1TL = Request.Form("txtResp_alternativa_b_perg_1_p1TL") varResp_alternativa_c_perg_1_p1TL = Request.Form("txtResp_alternativa_c_perg_1_p1TL") varResp_alternativa_d_perg_1_p1TL = Request.Form("txtResp_alternativa_d_perg_1_p1TL") varResp_alternativa_e_perg_1_p1TL = Request.Form("txtResp_alternativa_e_perg_1_p1TL") strINS = "INSERT into tb_prova_legislacao_telec_1_classe_C" strINS = strINS & "(Num_senha_p1TL, Resp_alternativa_a_perg_1_p1TL, Resp_alternativa_b_perg_1_p1TL, Resp_alternativa_c_perg_1_p1TL, Resp_alternativa_d_perg_1_p1TL, Resp_alternativa_e_perg_1_p1TL )" strINS = strINS + "VALUES ('" + varNum_senha_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_a_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_b_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_c_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_d_perg_1_p1TL + "'," strINS = strINS + "'" + varResp_alternativa_e_perg_1_p1TL + "')" Call abreConexao 'Response.Write(strINS) Set rsProva = conexaoDataBase.Execute(strINS) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Inserindo dados em uma tabela</title> </head> <body> Sua prova com a senha: "<strong><% = varNum_senha_p1TL %></strong>" foi gravada. Veja os pontos na página resultado </body> </html> <% Call fechaConexao Set rsProva = Nothing %> Tudo bem que tenho que ter o mesmo nome dos campos mas até isso eu mudei conforme o seu exemplo para evitar problema mas estou errando ainda. Eu estou colocando o código no HTML corretamente? A login.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <% if Request.QueryString("erro") <> "" then Response.Write "<span class=mensagem>Login Inválido!</span>" end if%> </p> <form name="form1" method="post" action="validalogin.asp"> <table width="234" border="0" align="center" bordercolor="#666666" class="selecao"> <tr> <td width="91"><span class="style8">Login:</span></td> <td width="143"><input name="login" type="text" id="login"> </td> </tr> <tr> <td><span class="style8">Senha:</span></td> <td><input name="senha" type="password" id="senha"></td> </tr> <tr> <td colspan="2"><div align="center" class="style6"> <input type="submit" name="button" id="button" value=" Entrar "> <input type="hidden" name="enviando" value="sim"> </div></td> </tr> </table> </form> </body> </html> A validalogin.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% 'PRIMEIRO FAÇA SUA CONEXAO COM BANCO APOS SIGUA O COD. ABAIXO Set RecSet = Server.CreateObject("adodb.recordset") dim login dim senha login = request.form("login") senha = request.form("senha") 'evitando sql inject segurança. login = replace(login,"'","''") login = replace(login,"#","''") login = replace(login,"$","''") login = replace(login,"%","''") login = replace(login,"¨","''") login = replace(login,"&","''") login = replace(login,"'or'1'='1'","''") login = replace(login,"1=1","''") login = replace(login,"--","''") login = replace(login,"insert","''") login = replace(login,"drop","''") login = replace(login,"delet","''") login = replace(login,"xp_","''") login = replace(login,"select","''") login = replace(login,"*","''") senha = replace(senha,"'","''") senha = replace(senha,"#","''") senha = replace(senha,"$","''") senha = replace(senha,"%","''") senha = replace(senha,"¨","''") senha = replace(senha,"&","''") senha = replace(senha,"'or'1'='1'","''") senha = replace(senha,"1=1","''") senha = replace(senha,"--","''") senha = replace(senha,"insert","''") senha = replace(senha,"drop","''") senha = replace(senha,"delet","''") senha = replace(senha,"xp_","''") senha = replace(senha,"select","''") senha = replace(senha,"*","''") Recset.open "select * from usuarios where email_candidato='"&login&"' and num_senha ='"&senha&"'", conn if not Recset.eof then 'encontrou o registro procurado session("usuario") = Recset("login") Session("Status") = "Logado" Session("corretor") = Recset("id") Response.Redirect("index.asp") else Session("Status")= "Invalido" Response.Redirect("login.asp?erro=invalido") end if %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> </body> </html>

Alea Bom Dia, É exatamente isso. So que eu estou vacilando em alguma coisa. O meu banco de dados tem os campos abaixo. Isso é importante senão vai apresentar erro. O nome que se usa é login na tabela e não Usuario_Nome. Sei que é indiferente isso mas é bom colocar o mais correto como você indicou. Embora tenha o campo Usuario_Nome não tem problema só vai validar senha que eu vou informar antes ao usuário e o login que ele vai me informar no ato do pedido. Vou cadastrar no bando de dados tabela usuario se não estiver correto a senha ou o email vai aparecer a mensagem "Sua senha oo logon não estão cadastrados. Entre em contato com Administrador e peça uma senha". Se já estive abre a página da prova. Mas os campos da tabela usuario são esses: Usuario_id - Tipo - Numeração Automática Usuario_Nome - Tipo - Texto Usuario_Email - Tipo - Texto Usuario_senha - Tipo - Texto A página login.asp ficou assim: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <% if Request.QueryString("erro") <> "" then Response.Write "<span class=mensagem>Login Inválido!</span>" end if%> </p> <form name="form1" method="post" action="validalogin.asp"> <table width="234" border="0" align="center" bordercolor="#666666" class="selecao"> <tr> <td width="91"><span class="style8">Login:</span></td> <td width="143"><input name="login" type="text" id="login"> </td> </tr> <tr> <td><span class="style8">Senha:</span></td> <td><input name="senha" type="password" id="senha"></td> </tr> <tr> <td colspan="2"><div align="center" class="style6"> <input type="submit" name="button" id="button" value=" Entrar "> <input type="hidden" name="enviando" value="sim"> </div></td> </tr> </table> </form> </body> </html> Ao abrir deu a masagem de erro: Tipo de erro: Erro de compilação do Microsoft JScript (0x800A03ED) '(' esperado /serieweb/Nasp/Laboratorios/login.asp, line 10, column 3 if Request.QueryString("erro") <> "" then --^ A linha 10 é essa: <% if Request.QueryString("erro") <> "" then A página validalogin.asp ficou assim: (devo está valicilando em alguma posição do código) <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <!--#Include file="../dbConexao.inc"--> <% 'PRIMEIRO FAÇA SUA CONEXAO COM BANCO APOS SIGUA O COD. ABAIXO Set RecSet = Server.CreateObject("adodb.recordset") dim login dim senha login = request.form("login") senha = request.form("senha") 'evitando sql inject segurança. login = replace(login,"'","''") login = replace(login,"#","''") login = replace(login,"$","''") login = replace(login,"%","''") login = replace(login,"¨","''") login = replace(login,"&","''") login = replace(login,"'or'1'='1'","''") login = replace(login,"1=1","''") login = replace(login,"--","''") login = replace(login,"insert","''") login = replace(login,"drop","''") login = replace(login,"delet","''") login = replace(login,"xp_","''") login = replace(login,"select","''") login = replace(login,"*","''") senha = replace(senha,"'","''") senha = replace(senha,"#","''") senha = replace(senha,"$","''") senha = replace(senha,"%","''") senha = replace(senha,"¨","''") senha = replace(senha,"&","''") senha = replace(senha,"'or'1'='1'","''") senha = replace(senha,"1=1","''") senha = replace(senha,"--","''") senha = replace(senha,"insert","''") senha = replace(senha,"drop","''") senha = replace(senha,"delet","''") senha = replace(senha,"xp_","''") senha = replace(senha,"select","''") senha = replace(senha,"*","''") Recset.open "select * from usuario where login ='"&login&"' and senha ='"&senha&"'", conn if not Recset.eof then 'encontrou o registro procurado session("usuario") = Recset("login") Session("Status") = "Logado" Session("corretor") = Recset("id") Response.Redirect("index.asp") else Session("Status")= "Invalido" Response.Redirect("login.asp?erro=invalido") end if %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> </body> </html> A página que criei foi <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> Isso está errado correto? O certo é <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Desculpe os furos.

Um banco de dados com os campos num_senha e outro email_candidato (os dois chaves). Esses dois registros seriam informados ao interessado. Esse interessado digitaria em uma página ASP o num_senha e email_candidato. Se o num_senha e email_cadidato digitados pelo mesmo forem confimados no banco de dados abre a página da prova com as questões. Caso contrario informa "senha ou e-mail não cadastrados". Poderiam me indicar algum modelo para estudo. Muito obrigado.