fertel

Dá uma olhada e procura um função que eu fiz: http://scriptbrasil.com.br/forum/index.php...ic=17305&st=60# É JS + ASP, mas basta você remover tudo que for <%%> - que são tags ASP e substituir pelo que você precisar... Abraços

Amigão... Você é Português? hehe Olha só faz assim: <% 'Aqui você pega do form os dados login e senha LOGIN = Lcase(Request.Form("LOGIN")) SENHA = Lcase(Request.Form("SENHA")) '******************************************** 'SQL de acesso SQLBUSCA = "SELECT * FROM TABELA WHERE LOGIN LIKE '%" + Replace(LOGIN, "'", "''") + "%' AND SENHA LIKE '%" + Replace(SENHA, "'", "''") + "%'" Set bd = Conexao.Execute(SQLBUSCA) 'Verifica se algo foi encontrado If NOT bd.EOF Then 'Verifica exatidão das informações CODIGO2 = bd("ADM") SENHA2 = bd("SENHA") End If If LOGIN = CODIGO2 AND SENHA = SENHA2 Then 'Se confirmada a exatidão atribui sessão com permissão de acesso Session("AUTORIZADO") = bd("Código") 'Redireciona enfim o pobre indivíduo Response.Redirect "restrito.asp" Else 'Leva de volta o incauto Response.Redirect "default.asp" End If %> Olha aí em cima, não tem muito o que explicar. Aconselho a mexer um pouco ou substituir aquela sua confusão por estas poucas linhas que verifica e faz o login. Outro conselho... Pegue campo por campo do formulário que você precisa, pode dar mais trabalho, mas na minha humilde opinião é o melhor a ser feito. Boa sorte em seu projeto.

Desculpem entrar de novo no tópico, mas só entrei lá no início depois sumi... Esta última função que vocês postaram, é impressão minha, ou sempre que houver uma palavra com menos de 3 caracteres ele não converte a primeira para maiúscula? E quando uma frase começar por: "Dá Para Ir Logo" Vai ficar: "dá Para ir Logo" É isso mesmo? Se for, reforço que a melhor solução ainda seria a função que postei no tópico de funções, pois ela define quais palavras são ou não convertidas. Se não (else, hehe) ignorem o que eu disse. Abraços

Sim, claro... mas então, isso é o que foi feito... Além disso trabalho com este tipo de envio há muito tempo. Tudo bem, poderia ser um erro meu, mas não foi este caso. Com relação ao dito sobre erro de compilação, você enstá certo, tb pensei isso, mas aí que está, não havia If/End If naquele código. E ainda assim gerava o erro. Mas resolvi "aquele" mudando um pouco a estrutura que costumo escrever a mensagem que só dá erro lá na Locaweb. Tentei durante a madrugada inteira resolver o problema, mas acho que os funcionários que ficam na empresa durante a madrugada só sabem "encher linguiça"... Bom, agora de manhã às 5:30h chegaram finalmente todos os e-mails enviados. 12 horas depois!!! Um absurdo!!! Já avisei a eles de uma resolução ou vou abandonar a empresa... Se os sevidores não estão dando suporte a demanda, compra-se mais equipamento, banda, etc... Porque não adianta ficar se gabando de ter 100 mil clientes na primeira página deles se os servidores não dão suporte. Como pode os e-mails ficarem numa fila por 12 horas? 12 horas parece pouco? Mas não é não, é uma eternidade para equipamentos que trabalham em nano-segundos... Além deste problema do e-mail, algumas vezes notei uma lentidão enorme no processo de acesso ao site, e tudo que eles disseram era que seria um problema de cookies ou no meu computador. Engraçado que o problema era só nos sites que tinha hospedados com eles... Os outros estavam normais. Para nós que trabalhamos com isso, até dói no ouvido ouvir certos absurdos de funcionários que nem sabem o que estão falando, ou a empresa não admite problemas operacionais/estruturais. De qualquer forma só estou aqui desabafando, porque evidente que eles vão continuar sendo a empresa Nº1 do mercado e eu apenas um merdinha de um cliente reclamando sem razão...rs Fazer o quê? Faz parte da nossa profissão engolir estes "sapos"...

Não tem End If no código não amigo... É só isso aí que você está vendo + o necessário para envio pelo componente. Concordo que a Locaweb tá estranha. Isso é problema nos servidores. Até as mensagens do Help Desk chegam umas 3 horas depois. Na realidade eles trabalham com Cdonts, ASPmail e ASPEmail. Mas curiosamente testei o envio de umas 6 mensagens com cada componente e só chegou uma pelo Cdonts. Um absurdo... Já estou preocupado com esta situação.

Olá Abaixo a definição de uma variável que seria o corpo da mensagem: MENSAGEM_VENDA = "<HTML><HEAD><title>titulo #" & ID & " - " & Session("TITULO") & "</title></HEAD>" _ & "<BODY><table width=500 border=0 cellspacing=0 cellpadding=0>" _ & "<tr><td width=72 valign=top><img src=logo.gif width=72 height=60></td><td valign=middle bgcolor=#003366>" _ & "<div align=center><font color=#FFFFFF size=3 face=Arial, Helvetica, sans-serif><br>" Sempre utilizei desta forma e sempre funcionou. Agora precisei mudar de servidor e na Locaweb não funciona, dá uma mensagem de erro: Então? Alguém sabe o por quê? Os funcionários de lá não explicaram a causa. Será que realmente não poderei utilizar desta forma que escrevo?

Primeira observação: <!--#include file="../includes/main_page_header.asp"--> Verifique se o servidor que vai hospedar dá suporte à busca em diretórios acima, senão ocorerá um erro. Bom, em segundo lugar, você cirou este código ou tirou de algo pronto, pois está bem confuso, além de extenso. Mas o que posso passar pra você é o conceito: Deixe o usuário preencher o formulário, depois de enviar, na outra página da aplicação, antes de inserir no bd, faça uma busca no bd, se encontrar algum registro semelhante aí sim, mande o usuário de volta e avise que o login ou o que você deseja já existe, obrigando-o a preencher novamente com outro nome, ok? Não tente fazer esta verificação na página do form, pois o cara pode digitar qualquer coisa, a verificação é feita depois do envio do form. Espero ter ajudado.

Só quero deixar meu protesto... Acho que deveria existir um sistema ou extensão de dreamweaver ou front page que ajudasse mais os programadores, porque existem erros que fazem a gente perder um dia inteiro e às vezes é uma bobagem. Já havia comentado isso outras vezes, mas ninguém se manifestou então acho que tal extensão realmente não existe. Importante que eu consegui resolver... Mas e da próxima vez? Quem sabe? Obrigado a todos Pode fechar o tópico...

Ah, mal aí galera... a função do GUTO funcionaou sim... era só o nome do form que estava diferente... Só mais uma pergunta... E se eu quisesse fazer esta mesma verificação só que com moedas, para o caso do cara digitar um valor menor do que o esperado? Tipo: Aquele parseInt(v) Pode ser utilizado para este fim na comparação? ****EDITADO Já consegui, funcionou. Valeu galera pode fechar o tópico Obrigado pela ajuda Christian e Guto

Pois então, o estranho é que nenhuma função, mesmo as mais simples pra retornar se um campo está vazio, estão retornando. A tag <form> aparentemente está certa, fechada, perfeitamente. As funções antes do </head> e chamo as funções com Onsubmit na tag do form... Também está com "name" e "id" direitinho... O que pode estar errado? Porque não retorna as funções? Não quis postar o código da página aqui pois é enorme... mas vou postar apenas a parte do form e a função ok? FUNÇÃO ADAPATADA DO GUTO: <script language="javascript" type="text/javascript"> <!-- function quantidade(){ v = document.form_venda.QUANTIDADE.value if (parseInt(v) > 2) { alert("A quantidade a comprar deve ser menor ou igual à quantidade disponível."); return false } } // --> </script> ESTA ESTÁ ANTES DA TAG </head> AGORA A PARTE DO FORMULÁRIO: <form id="form" name="form" action="item_confirma.asp" enctype="application/x-www-form-urlencoded" method="post" onSubmit="return quantidade()"> <input name="QUANTIDADE" type="text" class="campo" id="QUANTIDADE" value="1" size="1" maxlength="3" onkeypress="javascript: return numbers(event);"> <input name="QUANTIDADE_MAXIMA" type="hidden" id="QUANTIDADE_MAXIMA" value="2"> <input name="comprar" type="submit" class="botao" id="comprar" onClick="MM_validateForm('QUANTIDADE','','RisNum');return document.MM_returnValue" value="Comprar"> </form> Alguém mata a charada? Obs: A função "numbers(event)" é uma função que obriga o usuário a digitar apenas números no campo. Esta funciona perfeitamente. Já a função "MM_validateForm('QUANTIDADE','','RisNum');" é uma função do Dreamweaver para verificar se algo foi digitado no campo quantidade e se é número mesmo, também funciona perefitamente. Agora qualquer outra função que eu coloque não funciona...

Olhem este código de validação: <script type="text/javascript"> function QUANTIDADE(){ if (int(document.form_venda.QUANTIDADE.value) > 2) { alert("A quantidade a comprar deve ser menor ou igual à quantidade disponível."); return false } } </SCRIPT> Assim que eu preciso e ele não funciona.... Se eu coloco assim: <script type="text/javascript"> function QUANTIDADE(){ if (document.form_venda.QUANTIDADE.value == "") { alert("O valor é vazio"); return false } } </SCRIPT> Aí ele funciona para verificar se é vazio... Então o que estou errando na primeira função que não retorna nada?

Olha vou falar pra vocês... em anos mechendo com isso nunca tinha visto este erro... Pior de tudo é que o erro não fala a linha como vocês podem ver, nem pondo o Response.Flush Bom, depois de muito mecher, remover, colocar... acabou funcionando, mas não me perguntem qual era o erro pois não descobri... Acredito que tenha sido um problema em dois loops que haviam juntos: Um While / Wend E dentro dele um Do / Loop... Daí acho que tava faltando algum End If no meio, pode ser isso... Que sopa de letrinhas uhauhauhauha

Tipo de erro: Objeto Response, ASP 0104 (0x80070057) Operação não permitida /site/conta.asp

Mas existem caledários feitos apenas em ASP, dá uma pesquisada... Eu particulamente nunca precisei fazer um calendário e só a idéia de trabalhar com um monte já me dá arrepios na espinha hehehe... Ah, você disse: "inserir calendário em página HTML" Olha, isso só vai ser possível se dentro da página html você colocar um <iframe> para aparecer o sistema do calendário, mesmo assim não vai ficar legal... Só pra você entender, inserir scripts em ASP em páginas HTML não funciona não... Tem que ser as próprias páginas em ASP e rodando num servidor que dê suporte a ASP. Não é como o HTML que a um simples duplo clique no arquivo ela aparece no navegador, ok? Só estou explicando isso porque não sei o seu nível de conhecimento

Siom concordo Bareta. O que eu quis dizer, é que o ideal é utilizar as duas formas, por quê? Se você usa apenas ASP beleza, é segurança extrema, no entanto o ato de mandar o usuário para lá e para cá poder ruim para ele e para o programador que vai ter que ficar enviando junto os dados que o camarada já havia preenchido no formulário entende? Então, às vezes, não é um caso como você propôs de um susuário maldoso. Mas alguém que acidentalmente esquece de preencher um campo, etc... Então porque não dar um simples aviso em JS? O cara corrige e envia, pronto... Agora se for um usuário maldoso, beleza, o sistema já está protegido em ASP tb. Ok?

Bom vamos lá... Primeira coisa a ser feita observa as diferenças: <% Else Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("\eventos\cs\bdCS.mdb") ComandoSQL = "INSERT INTO jogadores (Jog1_C, nick1, RG1, jog2, nick2, RG2, jog3, nick3, RG3, jog4, nick4, RG4, jog5, nick5, RG5, jog6_R, nick6_R, RG6_R, jog7_R, nick7_R, RG7_R, Cla, telefone, celular, email, MSN)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Jog1_C")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick1")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG1")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog2")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick2")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG2")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog3")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick3")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG3")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog4")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick4")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG4")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog5")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick5")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG5")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog6_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick6_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG6_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("jog7_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("nick7_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RG7_R")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("Cla")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("telefone")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("celular")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "'," ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("MSN")) & "')" Set bd = Conexao.Execute(ComandoSQL) Conexao.Close Set bd = Nothing Set Conexao = Nothing %> Aí em cima tem alguma alterações necessárias. Segundo: Todas as instruções de inserção no banco está como "texto". Se algum campo do banco de dados for número vai dar erro ok? Então dá essa verificada no banco. Caso haja número, tem que fazer o seguinte: ComandoSQL = ComandoSQL & "" & Request.FORM("celular") & "," Observe que foi retirada as aspas simples do código para aceitar números. Tenta isso e vê o que dá e posta a mensagem de erro caso exista. Como eu disse, pega das páginas do aspdataform os pedaços que interessam de inclusão, alteração, deletar, etc e monta outra página mais "limpa", eu fazia isso antigamente e dava certo. Mas tem que entender o código.

Xi, você sabe mecher apenas em HTML e já quer fazer um sistema desses? Hum... meu conselho seria você pegar um script de calendário pronto primeiro e estudar em cima dele, vai analisando com calma em cima daquilo que você já sabe, aí, surgindo dúvidas sobre algum ponto em especial você posta aqui que o pessoal ajuda com o maior prazer. O menu não tem dificuldade, mas seria um menu dinâmico ou estático? Qual o tema?

Só por curiodidade.... Você usou aquele programa ASPDataform pra fazer esse script não foi? Se for toma cuidado porque ele faz numa mesma página função pra exibir e editar, ou exibri e cadastrar novos dados. E mais: Ele só vai funcionar se todos os campos forem preenchidos e se os dados forem compatíveis com os campos dentro do bd... Em resumo esse programa só é bom pra código muito pequeno e apenas texto ou pra você aprender a utilizar esses querys... Quem não entende muito bem de ASP mesmo e usa o programa fica perdidinho às vezes já passei por isso há muito tempo atrás; falou?

opa... meu post saiu 3 vezes mas a culpa não foi minha não hein? Tava dando erro na página, achei que não tinha sido submetido... Não foi minha intenção... Bom até onde eu fiz tá assim: <script LANGUAGE="JavaScript"> function QUANTIDADE(){ quantidade = document.form_venda.QUANTIDADE.value quantidademaxima = document.form_venda.QUANTIDADE_MAXIMA.value if (int(quantidade) > int(quantidademaxima)) { alert("Você não pode comprar uma quantidade maior do que a disponível."); return false } } </SCRIPT> Mas não funcionou...

Bom é o seguinte: Tenho um formulário com um campo textbox para digitação de um número e um campo hidden (oculto) com um determinado valor (1) - Número. O campo hidden tem a quantidade máxima de produtos O campo textbox é onde o usuário vai digitar a quantidade desejada. Na hora do envio do form ou do clique do botao submit, como validar e exibir uma msgbox com um aviso caso o valor digitado seja superior ao contido no hidden? Nome dos objetos: TEXTBOX >> QUANTIDADE HIDDEN >> QUANTIDADE_MAXIMA Por favor me ajudem tentei fazer de todas as formas mas javascript não é meu forte. Agradeço desde já.

Vê lá em cima no tópico de funções, coloquei uma muito boa lá...

Que ponto é esse antes do nome do arquivo (mdb)??

Analisando o código: <% ComandoSQL = "SELECT TOP 30 * FROM LISTA ORDER BY VISITAS DESC" Set bd = Conexao.Execute(ComandoSQL) If NOT bd.EOF Then VARIAVEL = bd("VARIAVEL") 'LINHA DO ERRO End If %> Acreditam que esta p**** não funciona? Onde está o problema? Olha o erro:

Tá certíssimo, só uma obs... Se for validação de formulário você pdoe procurar soluções mais práticas como Javascript, assim não rpecisa ficar mandando o usuário pra lá e pra cá, ok?

Depois eu descobri que esta variável estava sendo somada a outra Session que estava vazia, daí o erro. Já resolvido