Mateustg

vlw

então devo colocar onde se faz o login e não neste código..ok! mas basta eu colocar o INSERT e pronto..não tem q ter algum condição..tipo...se o usuário e a senha forem certas ele grava???

galera...eu fiz uma área para validar o acesso do usuário..se o usuário e a senha conferirem..ele acessa...senão volta a área de login...agora estou querendo colocar o seguinte: se o usuário e senha estiverem corretos o acesso é liberado e grava na tabela o login do usuário e a hora q ele acessou. Já tenho a tabela de relatorios...e o código..mas não sei onde colocá-lo..já tentei mas não deu..alguém pode me ajudar? o cód. é este: <!--#include file="conectar.asp"--> <% senha1=Replace(request.form("senha"), "'", "/") login=Replace(request.form("login"), "'", "/") AbreConexao SQL = "SELECT senha From SENHA" Set rs1 = Conexao.Execute(SQL) strSQL = "SELECT login From CADASTRO WHERE login = '" & login & "'" Set rs2 = Conexao.Execute(strSQL) If (NOT rs1.EOF) and (NOT rs2.EOF) Then If login = rs2("Login") AND Senha1 = rs1("Senha") Then Session("login1") = TRUE Response.Redirect("default3.asp?idcat=1&cat=Lotes") Else Response.write "<h1 style=""text-align:center"">Login ou Password invalidos</h1>" Response.write "<br><br><center><b>Por favor tente novamente</b></center><br>" Response.write "<br><center><b>Aguarde - Você será redirecionado para a Área de Login.</b></center><br>" Response.write "<meta http-equiv='refresh' content='3; url=default3.asp'/>" end If Else Response.write "<h1 style=""text-align:center"">Login ou Password invalidos</h1>" Response.write "<br><br><center><b>Por favor tente novamente</b></center><br>" Response.write "<br><center><b>Aguarde - Você será redirecionado para a Área de Login.</b></center><br>" Response.write "<meta http-equiv='refresh' content='3; url=default3.asp'/>" End If %> e aqui tenho o que grava o login e data para o relatorio: sql_relatorio = "INSERT INTO acessos (login, data) VALUES ('" & login & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) End If onde encaixo isso no código pra funcionar????

Olá, gostaria de saber se tem como fazer o seguinte: criar um cadastro onde fique armazenado o Login e a senha do usuário....sendo q eu cadastro o 1º usuário como sendo fixo...(usuário: admin senha: admin) e dai em diante eu só cadastre os usuários. Dai para fazer o acesso eu só faça a comparação do nome do usuário com a 1ª senha q coloquei (usuário: teste senha:admin e dai por diante)..tem como? Só mais um detalhe...se tiver como fazer assim...depois tem como alterar só a senha caso preciso???

Alguém pode me ajudar nisso..preciso de algo que faça o cadastro de usuários e compare com uma senha....os usuários serão vários..mas a senha será uma única...então ex.: usuário x,y,z, etc..usam a mesma senha 111...ahh a senha tem q ter um admin para poder mudar. Como faço isso??? tentei fazer conforme meus posts acima mas não ta acessando..sá acesso inválido!

consegui resolver o erro, coloquei assim: If (NOT rs1.EOF) and (NOT rs2.EOF) Then If Trim(Nome) = Trim(rs2("Login")) AND Trim(Senha) = Trim(rs1("Senha")) Then deste modo resolveu o erro q sumiu...mas ai coloco o usuário e a senha mas não aceita. É isso mesmo...a senha será a mesma para todos...posso cadastrar vários usuários, mas a senha será a mesma..tipo 10..mas se eu quiser mudar tem q ter como depois.

Eu quero colocar separado pois só existirá uma senha de acesso e esta poderá ser trocada de tempos em tempos. Se eu colocar tudo junto, sempre terei q cadastrar o usuário e uma senha...e depois pra trocar a senha será um gande problema.

galera...to querendo fazer o seguinte: tenho um BD onde nele existe a tabela CADASTO e uma outra tabela de nome SENHA...no CADASTRO são armazenados os nomes dos usuários e na SENHA uma única senha. quero fazer um login disso...sendo q a senha permanece a mesma o que muda é só o nome do usuário....mas como comparo uma tabela com outra..pra pegar o nome e verificar a senha...eu fiz assim...mas ta dando um erro: <!--#include file="conectar.asp"--> <% Response.Buffer = TRUE erro = "" AbreConexao idcat = request.querystring("idcat") idalbum= request.querystring("idalbum") cat = request.querystring("cat") album = Replace(Request.QueryString("album"),"'","") Nome = Replace(Request.Form("Nome"), "'","") Senha = Replace(Request.Form("Senha"),"'","") SQL = "SELECT senha From SENHA" Set rs1 = Conexao.Execute(SQL) strSQL = "SELECT login From CADASTRO WHERE login = '" & login & "'" Set rs2 = Conexao.Execute(strSQL) If NOT rs1.EOF and rs2.EOF Then If Login = rs2("Login") AND Senha = rs1("Senha") Then strPode = "album" & idalbum Session("pode") = strPode Session("senha")= Trim(Senha) Redir = "SIM" Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 01" End If End If Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 02" End If End If LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album If Redir = "SIM" Then sql_relatorio = "INSERT INTO acessos (Nome, data) VALUES ('" & Nome & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) Response.Redirect LA Else erro1 = "ERRO 03" End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Área restrita de Lotes</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Password Invalidos<br>(Login or Password wrong)</h1><br>"%> <div id="prim" style="text-align:center;padding:50px;"> <br><font face="Verdana" size="2"><b>Login - <%=album%></b></font> <form method="post" action="<%=LF%>"> <table id="log" style="color:#fff;background-color:#C0C0C0;"> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td> <td><input type="text" name="Nome" value=""></td> </tr> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Password:</b></font></label></td> <td><input type="password" name="Senha" value=""></td> </tr> <tr> <td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td> </tr> </table> </form> <a href="default.asp?idcat=1&amp;cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a> </div> </body> </html> O erro q dá é este: error '80020009' /album/logiver.asp, line 20

galera, eu tenho um sistema onde o cara cadastra o usuário e a senha...só q agora eu estou querendo fazer o seguinte...uma área para cadastrar o usuário (já tenho) e uma outra só para cadastrar uma senha...a senha será uma única para todos..só vai variar o usuário...mas ae q ta??? eu quero colocar um tabela só para os usuários e uma tabela só para a senha...então como eu vou fazer para validar o usuário e a senha sendo que as tabelas são separadas..quero colocar separada pois a senha de vez em quando será modificada. Eu tenho este eskema pronto: sql = "SELECT * FROM unico" Set rsUnico = Conexao.Execute(sql) If login = rsUnico("ulogin") AND senha1 = rsUnico("usenha") Then Session("login1") = TRUE Response.Redirect("default5.asp?idcat=1&cat=Lotes") Else Response.Redirect("default5.asp") end If %> mas aki a senha e usuário estão na mesma tabela...e se eu for cadastrar ou usuário não vai dar certo, pois se não terei sempre que colocar senha...e a senha tem q ser única...como posso fazer isso?

cara me fala o seguinte...você criou este sistema para exibir qtos dados por página??? me parece que você quer q exiba 6 colunas e 5 linhas..não é??? acho q isso ai q ta fazendo com q vá só até 5...esta definição sua ai...confirma se é isso!!!

cara procura na busca do forum por data...eu vi algo a respeito do que você quer lá.

Guilherme... bem, 1º você disse que seu "host q eu pago tem suporte a php4 e MySql"...veja bem...isso q você se referiu é suporte para linguagem PHP e não ASP...mas se você quer colocar em asp, basta você salvar todas as suas páginas como .asp e não como .htm ou .html...se entendi bem é isso.

Olá Galera....eu tenho um banco de dados aki onde é gravado vários dados de um usuário...eu gostaria de estar fazendo o seguinte: Queria que ao entrar em uma determinada pág. aparecesse um determindado usuário...só que seria aleatório isto..tipo se entro 1 vez aparece usuário X, se saio e entro de novo..o usuário já é o Y...já sei como colocar só os campos que quero, mas não sei como colocar ramdomico isto. Outra coisa é que gostaria é de mostrar os útlimos 5 cadastrados..pegar os últimos 5 do BD..como faço estes dois?

JCMPJ é isso mesmo...o campo é NULL..coloquei o que você me falou e deu certinho...vlw mesmo!

eu tava fazendo assim...mas ele não tava pegando a extensão .jpg

olá pessoal... o meu problema é o seguinte...eu tenho uma área de cadastro onde o cara pode colocar ou não a sua foto...fiz esta pergunta aki a algum tempo atras..e me deram uma sugestão para fazer o seguinte: se o usuário não colocar/escolher uma foto o sistema exibirá uma foto padrão determinada por mim...caso contrário pegará a foto que a pessoa mesmo escolher...então eu fiz assim...se no no BD o campo foto estiver vazio..ele exibe a imagem padrão, caso contrário exibe a q a pessoa colocou. Na hora de exibir fica assim: <% if rsUser("foto") = "" then %> <img src="imagem/semfoto.jpg" width=80 height=80 align="right"> <% else %> <img src=<%rsUser("foto")%>" width=80 height=80 align="right"> <% end if %> Fiz assim, mas ele só esta pegando o else...e no BD o campo está vazio (o campo é texto)..então deveria colocar a imagem semfoto.jpg..porque está dando errado?

alguém pode me ajudar nisso...só falta saber como colocar a extensão para funcionar corretamente.

tentei de outra forma...tentei assim: if foto = "" then cfoto = "http://www.vipseven.com.br/cadastro/imagem/semfoto.jpg" end if if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if Agora apareceu o caminho assim: http://www.site.com.br/cadastro/imagem/semfoto só faltou aparacer a extensão .jpg como faço pra aparecer?

tentei, mas não ta dando certo....aparece todo o caminho da imagem (ex.: www.site.com.br/cadastro/imagem)...mas não mostra a imagem...ele não pega o nome dela para mostrar, deveria sair assim: www.site.com.br/cadastro/imagem/semfoto.jpg

to usando access

cara já entendi a lógica da coisa...mas onde eu coloco isso no código é que não to sabendo...tentei colocar aqui, mas ele faz o cadsatro, mas a foto não aparece de modo algum...fiz o cadastro sem colocar a foto...e nada...o cara é cadastrado, mas não tem foto nenhuma...como faço?

defina a variavel strCon nesta página q não ta achando.

Olá pessoal... eu tenho um sistema onde a pessoa entra e se cadastra....neste cadastro ela tem a opção de colocar a foto dela, para isso fiz um imput do tipo file....acontece que se a pessoa não escolher nenhuma foto, o perfil dela ficará sem foto....como faço para caso a pessoa não coloque foto, o sistema pegar uma foto pre-determinada por mim...ou seja...ele não colocou a foto dele, mas ao finalizar o cadastro aparecerá uma foto tipo (sem foto). como faço isso? Depois de fazer o cadastro ele faz o upload, que é este código abaixo, aqui preciso fazer com que ele compare se não houver foto ele coloca a foto programada por mim ou se não pega a que ele mesmo colocou: Já tentei usar: if campo_foto="" then faça A else faça B end if mas não consegui, talves porque coloquei o código em local errado...alguém pode me ajudar nisso...o que faço, onde coloco? Código upload: <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- username = UploadRequest.Item("username").Item("Value") firstname = UploadRequest.Item("firstname").Item("Value") password = UploadRequest.Item("password").Item("Value") passwordconfirm = UploadRequest.Item("passwordconfirm").Item("Value") sex = UploadRequest.Item("sex").Item("Value") email = UploadRequest.Item("email").Item("Value") endereco = UploadRequest.Item("endereco").Item("Value") bairro = UploadRequest.Item("bairro").Item("Value") cidade = UploadRequest.Item("cidade").Item("Value") estado = UploadRequest.Item("estado").Item("Value") blog = UploadRequest.Item("blog").Item("Value") fotolog = UploadRequest.Item("fotolog").Item("Value") orkut = UploadRequest.Item("orkut").Item("Value") icq = UploadRequest.Item("icq").Item("Value") MSN = UploadRequest.Item("MSN").Item("Value") ec_icon = UploadRequest.Item("ec_icon").Item("Value") ocupacao = UploadRequest.Item("ocupacao").Item("Value") empresa = UploadRequest.Item("empresa").Item("Value") hobby = UploadRequest.Item("hobby").Item("Value") escolaridade = UploadRequest.Item("escolaridade").Item("Value") educacao = UploadRequest.Item("educacao").Item("Value") atividades = UploadRequest.Item("atividades").Item("Value") fumante = UploadRequest.Item("fumante").Item("Value") bebida = UploadRequest.Item("bebida").Item("Value") comentario = UploadRequest.Item("comentario").Item("Value") olhos = UploadRequest.Item("olhos").Item("Value") cabelos = UploadRequest.Item("cabelos").Item("Value") pele = UploadRequest.Item("pele").Item("Value") fisico = UploadRequest.Item("fisico").Item("Value") altura = UploadRequest.Item("altura").Item("Value") favbebida = UploadRequest.Item("favbebida").Item("Value") favcidade = UploadRequest.Item("favcidade").Item("Value") favlivro = UploadRequest.Item("favlivro").Item("Value") favfilme = UploadRequest.Item("favfilme").Item("Value") favmusica = UploadRequest.Item("favmusica").Item("Value") favcomida = UploadRequest.Item("favcomida").Item("Value") favlugar = UploadRequest.Item("favlugar").Item("Value") favesporte = UploadRequest.Item("favesporte").Item("Value") dob = UploadRequest.Item("dob").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagem/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagem" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("siteusers.mdb") ' cadastra os dados no banco de dados sql = "Insert into users (username,firstname,password,passwordconfirm,sex,email,endereco,bairro,cidade,estado,blog,fotolog,orkut,icq,MSN,ec_icon,ocupacao,empresa,hobby,escolaridade,educacao,atividades,fumante,bebida,comentario,olhos,cabelos,pele,fisico,altura,favbebida,favcidade,favlivro,favfilme,favmusica,favcomida,favlugar,favesporte,dob,foto) values ('"& username &"', '"& firstname &"', '"& password &"', '"& passwordconfirm &"', '"& sex &"', '"& email &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& blog &"', '"& fotolog &"', '"& orkut &"', '"& icq &"', '"& MSN &"', '"& ec_icon &"', '"& ocupacao &"', '"& empresa &"', '"& hobby &"', '"& escolaridade &"', '"& educacao &"', '"& atividades &"', '"& fumante &"', '"& bebida &"', '"& comentario &"', '"& olhos &"', '"& cabelos &"', '"& pele &"', '"& fisico &"', '"& altura &"', '"& favbebida &"', '"& favcidade &"', '"& favlivro &"', '"& favfilme &"', '"& favmusica &"', '"& favcomida &"', '"& favlugar &"', '"& favesporte &"', '"& dob &"', '"& cfoto &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>" ' Redireciona após 5 segundos response.write "<br><br>Você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index2.asp'/>" %>

Cara tive um problema igual o seu...e é problema do IIS mesmo, mas não sei o porque disso...não consegui resolver....se alguém souber posta ai pra gente.

Cara acho q ta faltando você fechar o final (&"'") ...olha um modelo q tenho e aki funciona beleza... Modelo: sql = "UPDATE users set foto='"& cfoto &"' WHERE username='"& username &"'" Conexao.Execute(sql)