caicai
-
Total de itens
92 -
Registro em
-
Última visita
Tudo que caicai postou
-
fernando beleza cara o cdonts pega o smtp direto com o servidor ou seja você terá q usa o seu e-mail como o amigo Lucky falou. Para recuperar a senha segue o código pronto abaixo junto com o campo usuario em vez do email no recuperando.htm. ---------------------------------------------------------------- Recuperando.htm '<html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> coloque sua senha e e-mail <form name="form1" method="post" action="recuperando.asp"> <p> <input name="usuario" type="text" value=""> </p> <p align="center"> <input name="enviar" type="submit" id="enviar" value="enviar"> </p> </form> </body> </html> ---------------------------- Recuperando.asp <html> <head> <title>teste</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Fernando\scripts\esqueci senha\db\banco.mdb" user = Request.Form("usuario") sql = "SELECT * FROM usuario WHERE usuario = '"&user&"'" Set RS = Conn.Execute(sql) If RS.EOF Then Response.write "<p><br><br><br><center>Usuário Inválido!</center>" Else senha = RS("senha") email = RS("email") Call SendPW(email, senha) Response.Write "<p><br><br><br><centerSua Senha foi enviada para o e-mail cadastrado!</center>" RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing End If Sub SendPW(email, senha) Set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.From = "firmino.figueira@terra.com.br" cdoMail.To = email cdoMail.Subject = "Lembrete de senha." cdoMail.Body = senha & vbcrlf & vbcrlf & vbcrlf _ & "*** Mensagem Automatica ***" cdoMail.Send Set cdoMail = Nothing End Sub %> </body> </html> ------------------------- cara acho q é isso... qualquer coisa posta ae. T+
-
ae beleza olha pra pega os ultimos trez é só você fazer assim: "select top 3 * from usuarios order by id DESC" acho q é isso q você quer, já sobre as paginação não poderi lhe ajuda T+
-
Fala ae cara bl Olha cara tb não manjo muito de designer mais sobre seu site ele fico legalzinho, unico problema é as cores cara ta muito morto, usa outros tipos de cores mas alegre e q prenda o usuário no seu site. T+
-
Fernando ae vai em Cdonts. <% Else Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=banco.mdb" sql = "SELECT Email, Password FROM Usuarios WHERE Email = '"&email&"'" Set RS = Conn.Execute(sql) If RS.EOF Then Response.write "<p><br><br><br><center>Email Inválido!</center>" Else password = RS("password") Call SendPW(email, password) Response.Write "<p><br><br><br><center>Senha enviada!</center>" RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing End If End If Sub SendPW(email, password) Set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.From = "webmaster@seudominio.com.br" cdoMail.To = email cdoMail.Subject = "Lembrete de senha." cdoMail.Body = password & vbcrlf & vbcrlf & vbcrlf _ & "*** Mensagem Automatica ***" cdoMail.Send Set cdoMail = Nothing End Sub %> T+ cara
-
ae cara crie um campo no seu banco achamado admin com o tipo de sim/não. quando for fazer o login verifique se o usuário logado é um administrador ou não se for crie uma session com o nome de admin e atribui a ela um valor de sim ou true, caso não é só atribuir não ou false a session e seguir em frente. ex: tabela: admin -> sim/não verifica se é admin If rs("admin") = true then session("admin") = true else session("admin") = false end if na hr de postar a msg você faz a verificação do session assim: I session("admin") = true then posta a msg else nem posta a msg end if Espero q entenda T+
-
Fernando pode utilizar esta conta minha q é só para testes como este, smtp.bol.com.br 010per@bol.com.br T+
-
Fernando, Essa msg é de erro na hora de enviar o e-mail ou seja o e-mail q está recebendo a msg não aceitou a msg vinda daquela conta. Tenta trocar a conta q você utiliza para enviar o e-mail. T+
-
cara show de bola, muito bom. T+
-
Moisés, Provavelmente o erro é porque você está usando um componente q o servidor do websamba não tem suporte, verifique com o websamba se é isso mesmo.. T+
-
Fernando, É capas de você não ter instalado o ASPEMAIL caso for isso faz o download no site www.aspemail.com é gratuito. Outra coisa q observei a linha: body = "<font color=""#ff0000"">"& senha ela tem q estar antes da linha: Mail.Body = "<html><body topmargin='0' leftmargin='0'>" & body & "</body></html>" Assim: body = "<font color=""#ff0000"">"& senha Mail.Body = "<html><body topmargin='0' leftmargin='0'>" & body & "</body></html>" T+
-
Fala tulio beleza, cara o while é a mesma coisa do do while ou seja: ele fica em loop até a condição determinada for verdadeira. Ex: total = 0 While total < 10 Response.write total&"<br>" total = total + 1 Wend Obs: A unica diferença entre o while e o do while é que no while usamos wend para voltar e no do while utilizamos loop. Espero q tenha entendido T+
-
cara tb numca vi essa função, mas creio eu q deve ser para retornar a quantidades de linhas de um determinado banco ou arquivo... T+
-
Thiago cara você pode fazer isso com asp e tb com certos programas, com grande vantagem para os asp onde o custo é menor. Estarei lhe enviando um e-mail com alguns exemplos pois para postar no forum ficaria muito grande. T+
-
Olá de uma olhada neste código ae. Ele é bem simples. -------- Inicio -------- <% Response.Expires = -1000 Dim oRS, oConn,sSQL Dim rndMax,rndNumber Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb")) sSQL = "SELECT * FROM banners" Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open sSQL , oConn, 3 rndMax = CInt(oRS.RecordCount) oRS.MoveFirst Randomize Timer rndNumber = Int(RND * rndMax) oRS.Move rndNumber response.write "<a href='" & oRS("alink") & "' target='_blank'><img border=0 src='images\" & oRS("aPicture") & "'></a>" set oRS = nothing set oConn = nothing %> -------- Fim -------- Crie uma tabela com o nome: "Banners", com os campos: "alink e apicture" só isso e estará rodando.. Espero goste. T+
-
Olá felipe td bom? cara você pode fazer desse jeito q você falo, mas eu te aconselho colocar tudo em um lugar só para ficar mas facil para você cara. o que você pode fazer??? Coloca tudo no servidor q aceita asp, e no kit você faz uma pagina com redirecionamento, onde irá apontar para o outro servidor. Espero q lhe ajude. T+
-
Fernando, Ae cara o erro é que eu esqueci de colocar a linha para abrir o banco, substitui ae: de Set conn = Server.CreateObject("ADODB.Connection") strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../banco.mdb") para Set conn = Server.CreateObject("ADODB.Connection") strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../banco.mdb") conn.open strconn Caso não foi isso poste a descrição do erro: T+
-
Marianne, Você faria a mesma coisa pois esse ex. q lhe mandei é só link interno, podendo ser colocado em qualquer parte do código. ex: <html><head><title>teste</title></head> <body> <a name="top"></a> Menu: <a href="#01">O que é Java</a> <a href="#02">Como surgiu o Java</a> . . . . <a name="01"> O que é java</a> Java é uma linguagem de programação ......<br> <a href="#top">Voltar</a><br><br> <a name="02"></a> O java surgiu .....<br> <a href="#top">Voltar</a><br><br> . . . e assim por diante.. Espero q entenda. T+
-
Marianne, apos <body> você adiciona a linha: <a name="top"></a> e no link você coloca: <a href="#top">Topo</a> T+
-
Olá Carol Verifique se os dois campos são integer e not null, se não for not null não ira funcionar pois o relacionamento de tabelas no mysql exige q sejá not null. T+
-
Rodrigo, cara você tento fazer um select case. Ex: marca = Request.Form("marca") Select Case marca Case "Volkswagen" %> <select name="modelo"> .....</select> <% Case "Chevrolet" %> <select name="modelo"> ......</select> <% Case ...... %> .... <% End Select %> e assim por diante cara. Espero que lhe ajude T+
-
Eliane, você pode fazer uma tabela (reservas) e nela registrar todos as datas q já estão reservadas, e na hora q o cliente entra para reservar você faz uma busca na tabela para verificar se já esta ou não reservado... T+
-
Fala cara beleza, Isso mostra todos os valores do servidor em português. Ex: Date() = 12/25/2003 com o session.LCID = 1046 fica: Date() = 25/12/2003 T+ cara Obs: Somente os dados do Servidor.