cear
-
Total de itens
30 -
Registro em
-
Última visita
Tudo que cear postou
-
Sim eu li... mas é que tive a ver e não consegui obter essa informação... Tipo pode ser qualquer coisa façil para mandar um endereço electronico para o meu e-mail que corra em asp..... Bigado ou por exempo ter uma base de dados em access e le escre lá o endereço de e-mail que vai para a tabela emails... é dificil fazer uma coisa dessas??? BIGADO alguém me pode ajudar a fazer um sistema de newsletter simples? a pessoa poe la o mail dela e quando carrega no botao manda para o meu e-mail... bigado desde já
-
Sim eu li... mas é que tive a ver e não consegui obter essa informação... Tipo pode ser qualquer coisa façil para mandar um endereço electronico para o meu e-mail que corra em asp..... Bigado ou por exempo ter uma base de dados em access e le escre lá o endereço de e-mail que vai para a tabela emails... é dificil fazer uma coisa dessas??? BIGADO
-
Sim eu li... mas é que tive a ver e não consegui obter essa informação... Tipo pode ser qualquer coisa façil para mandar um endereço electronico para o meu e-mail que corra em asp..... Bigado
-
Sim eu li... mas é que tive a ver e não consegui obter essa informação...
-
onde posso ver isso??? é que tou farto de procurar e não enconto nada parecido copm isso
-
Enviei o e-mail. Quando poder dar uma olhadela... Bigado
-
sim... por exemplo se for user: teste pass: teste ele funciona direitinho... mas se for diferente ex: user: teste e pass: tata ele já não funciona
-
logar.asp <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Dados.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then If rs("user")=senha and rs("pass")=usuario Then validpwd="true" Else validpwd="false" End If Else validpwd="false" end if If validpwd="true" Then Session("status") = "login" Session("user") = rs("user") Session("pass") = rs("pass") Session("nome") = rs("nome") Session("socio") = rs("socio") session("a") = rs("a") session("b") = rs("b") session("c") = rs("c") session("d") = rs("d") session("e") = rs("e") session("f") = rs("f") session("g") = rs("g") session("h") = rs("h") session("i") = rs("i") session("j") = rs("j") session("k") = rs("k") session("l") = rs("l") session("n") = rs("n") response.redirect "entrou.asp" End If End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If rs.Close Set rs=Nothing conn.Close Set conn=Nothing %> </body> </html> entrou.asp <% if Session("status")<>"login" then response.write Session("nome") end if session("status")="" nome = session("nome") socio = session("socio") a = session("a") b = session("b") c = session("c") d = session("d") e = session("e") f = session("f") g = session("g") h = session("h") i = session("i") j = session("j") k = session("k") l = session("l") n = session("n") %> <html> <head> <title>Logado</title> </head> <body leftmargin=0 topmargin=0 text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#0000FF" alink="#FF0000"> <table border=0 width="100%" cellspacing=3 cellpadding=3> <tr> <td align="left"><font face="verdana" size=2> Olá <b><% = nome %></b>, você está logado(a)!</font></td> <td align="right"><font face="verdana" size=2><a href="index.asp">Sair</a></font></td> </tr> <tr><td colspan=2><hr></td></tr></table> Nome:<%= nome %><br> Aplido: <%= socio %><br> 2005: <%= a %><br> 2004: <%= b %><br> 2003: <%= c %><br> 2002: <%= d %><br> 2001: <%= e %><br> 2000: <%= f %><br> 1999: <%= g %><br> 1998: <%= h %><br> 1997: <%= i %><br> 1996: <%= j %><br> 1995: <%= k %><br> 1994: <%= l %><br> 1993: <%= n %> </html> Axa que me consegue ver o que se passa? Muito obigado
-
Boas... Andreia ake codigo estava a funcionar direitinho mas tava testando com ouser e a pass igual... ou seja User: teste Pass: teste, mas quando eu troco a pass ele já dá como login errado... já testei com outros user e da-me igual... se o user for igual a pass ele funciona se não for ele da erro... Sabe o que possa ser???? Obigado
-
meu deus eu só queria saber como se faz um formulario onde a pessoa só poe o compo e-mail e envia para o meu e-mail.... Bigado
-
Agora só falta o pior.... Saber como se fazzzzzzzzzzzz.......
-
andreia_sp axas que dava para colocar na mesma base de dados do sistema de login a newsletter???? tipo a base de dados ficava com duas tabelas uma de usuarios e outra de neswletter??? Obigado
-
Bons dias... Tive a dar uma vista de olhos nos vossos links.... mas eu não percebo nada distooooo alias a andreia_sp é que me tem dado uma ajuda fabulosa…. Sou novato nisto e ainda tenho alguma dificuldade em entender…. se me poderem ajudar em dar mais umas dicas... agradecia.. Bigado
-
Obrigado.. Já consegui estava a fazer ao contrario.... Bigado
-
Boas... alguém me pode ajudar a fazer um sistema de newsletter muito simples só com um campo que é o do e-mail e o botão para enviar para o meu mail ou outra formos eficaz???? bigado
-
Boas gostaria de saber como posso colocar um ficheiro asp num ficheiro já criado em htm... Desde já muito obigado
-
não sera que o codigo Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") não terá de ser colocada na pagina entrou.asp??? para que quando o utilizador se logar não apareca o primeiro registo mas sim o dele???? obigado
-
oi... agora funciona direitinho... menos quando se acrescenta um novo socio... ao fazer logim aparece o primeiro registo.... que neste caso é o teste.. podes saber o que esta a acontecer??? bigado
-
tive a fazer tudo de novo... então o codigo fica assim no logar.asp <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then If rs("user")=senha and rs("pass")=usuario Then validpwd="true" Else validpwd="false" End If Else validpwd="false" end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd="true" Then Session("status") = "login" Session("user") = rs("user") Session("pass") = rs("pass") Session("nome") = rs("nome") Session("socio") = rs("socio") response.redirect "entrou.asp" End If End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If rs.Close Set rs=Nothing conn.Close Set conn=Nothing %> </body> </html> e da o erro Microsoft VBScript runtime error '800a000d' Type mismatch: 'rs' /logar.asp, line 35 que e onde diz Session("user") = rs("user") onde ele usa o primeiro rs se poderes ver o que é agradecia... Bigado
-
Agora da me o erro Microsoft VBScript compilation error '800a03f6' Expected 'End' /logar.asp, line 50 <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then If rs("pass")=senha and rs("user")=usuario Then validpwd="true" Else validpwd="false" End If Else validpwd="false" end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd="true" Then Session("status") = "login" Session("pass") = rs("pass") Session("user") = rs("user") Session("nome") = rs("nome") Session("socio") = rs("socio") response.redirect "entrou.asp" End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If rs.Close Set rs=Nothing conn.Close Set conn=Nothing %> </body> </html> a linha 50 é Set conn=Nothing
-
o erro agro diz que é Microsoft VBScript runtime error '800a000d' Type mismatch: 'rs' /logar.asp, line 35
-
eu coloquei assim no logar.asp <html> <body bgcolor=ffffff> <% validpwd="false" usuario=request.form("user") senha=request.form("pass") If usuario<>"" and senha<>"" Then Conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("users.mdb") & ";" Set conn = Server.CreateObject("ADODB.Connection") conn.open Conexao Set rs = conn.Execute( "Select * from users where user='"&usuario&"' and pass='"&senha&"'") If not rs.eof then If rs("pass")=senha and rs("user")=usuario Then validpwd="true" Else validpwd="false" End If Else validpwd="false" end if rs.Close Set rs=Nothing conn.Close Set conn=Nothing If validpwd="true" Then Session("status") = "login" Session("pass") = rs("pass") Session("user") = rs("user") Session("nome") = rs("nome") Session("socio") = rs("socio") response.redirect "entrou.asp" End If End If If validpwd="false" Then response.redirect "index.asp?erro=1" End If %> </body> </html> a linha 47 esta em branco.... meus deus vou ficar malucooooooo... tou a brincar...
-
fica um erro Microsoft VBScript compilation error '800a03f6' Expected 'End' /logar.asp, line 47
-
mas eu acho que já está la´!!! como devo mesmo de colocar... mais uma vez peço desculpa porque sou um chato do caraças... já agora se eu colocar mais um campo na base de dados como devo de por no codigo... e que queria acrescentar mais um campo a dizer 2005 que era para colocar nesse campo Ex: pronto Obrigado
-
para definir qual registro se refere. Mas já esta lá... certo???? tenho de colocar esse codigo na pagina do entrou.asp??? é como disse ontem eu não percebo nada disto... ainda estou a entender... Mas obrigado pela paciencia.