Ir para conteúdo
Fórum Script Brasil

rsousa

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que rsousa postou

  1. rsousa
    Olá pessoal, Criei um formulario de identificação email e senha. Que será redirecionado para outro arquivo que irá buscar no banco de dados, se o mesmo não tem cadastro mando para um arquivo de inclusão. Caso tenha ele pega as informações no banco e joga no formulario deixando disponivel caso queira mudar algumas informações. O problema é mesmo que tenha cadastro ele não esta lendo, ele redireciona para incluir. Se alguém puder me ajudar ficarei muito grato. Segue uma parte do codigo. <% email=replace(request.form("emai"),"'","''") senha=replace(request.form("senha"),"'","''") %> <% sql=" " &_ "select email, senha " &_ "from clientes " &_ "where email ='" & email & "' " &_ " and senha ='" & senha & "' " %> <% Set conn = Server.CreateObject("ADODB.Connection") caminho = "DBQ=" & Server.MapPath("livraria.mdb") conn.open "Driver={Microsoft Access Driver (*.mdb)}; " & caminho Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn, 3,3 %> <% set rs = conn.Execute(sql) %> <%if (rs.EOF > 0 )then response.write("voce já tem cadastro") else response.write("voce ainda não tem cadastro") response.redirect("incluir.asp") end if %> Edit: Formate seu codigo usando a tag CODE
  2. rsousa
    Crieu uma pagina de cadastro no ex:incluir.html e outra pagina para conexão com o banco, já fiz varios testes e não esta gravando no banco. Se alguém puder me ajudar ficarei muito grato, segue incluir.asp. <html> <head><title>incluir2</title> <% 'Busca dos dados que foram submetidos txtnome = request.form("txtnome") txtcpf = request.form("txtcpf") txtrg = request.form("txtrg") sexo = request.form("sexo") txtdt_nasc = request.form("txtdt_nasc") txtend = request.form("txtend") txtbairro = request.form("txtbairro") txtcidade = request.form("txtcidade") optuf = request.form("optuf") txtcep = request.form("txtcep") txtref_entrega = request.form("txtref_entrega") txtfax = request.form("txtfax") txt_email = request.form("txt_email") txtsenha = request.form("txtsenha") txtconf_senha=request.form("txtconf_senha") 'instrucao SQL instrucaoSQL = "insert into clientes (nome,cpf,rg,sexo,dt_nasc,endereco,bairro,cidade,cod_uf,cep,ref_entrega,tel,fax, e-mail,senha,confirma senha)" '& " values ('"& txtnome &"','"& txtcpf & "','"& txtrg &"','"& sexo &"','"& txtdt_nasc &"','"& txtend &"','"& txtbairro &"','"& txtcidade &"','"& txtoptuf &"','"& txtcep &"','"& txtref_entrega &"','"& txt_email &"','"& txtsenha &"','"& txtconf_senha &"')" 'conexao com o banco de dados set conn = Server.CreateObject("ADODB.Connection") caminho = "DBQ=" & Server.MapPath("../livraria.mdb") conn.open "Driver={Microsoft Access Driver (*.mdb)}; " & caminho 'executar sql set rs = conn.execute(instrucaoSQL) response.write (rs) rs.close response.redirect("../principal.asp") %> </head> <body> </body> </html>
×
×
  • Criar Novo...