Ir para conteúdo
Fórum Script Brasil

satoshy

Membros
  • Total de itens

    26
  • Registro em

  • Última visita

Sobre satoshy

satoshy's Achievements

0

Reputação

  1. iceguy, vlw por responder ! desculpa a pergunta ... onde eu coloco o codigo java ? desde já, agradeço.
  2. boa tarde a todos segue o codigo abaixo : ... If r.EOF then Response.Write "Usuário e/ou senha inválidos." & "<br>" & "Por favor, volte para pagina anterior." else If request.form("p1") = r("Senha") then Response.Write "<html>" Response.Write "<head>" Response.Write "<title>" & vbcrlf & ":.| Escritorio Prado Assessoria Contábil e Jurídica" & vbcrlf & "</title>" Response.Write "</head>" Response.Write "<body>" Response.Write "<div id=" & "Layer1" & "style=" & "position:absolute; left:40px; top:20px; width:87px; height:101px; z-index:1" & ">" & "<img src=" & "logoprado.gif" & "width=" & "90" & "height=" & "100" & "/>" & "</div>" & "<br>" Response.Write "Bem - vindo" & " " & r("Nome") & " " & "!" If r("Usuario") = 01522428 then response.write "<br>" & "OOI" response.write "</body>" response.write "</html>" end if If r("Usuario") = 02632466 then response.write "<br>" & "agora foi" end if else Response.Write "ainda n" end if end if ... não esta aparecendo o titulo da pagina (a mensagem esta aparecendo, a imagem aparece com um X) alguém pode dar um help ? Agradeço desde já !
  3. <script language="javascript"> window.open("pagina2.html", "Pagina2" , "height = 300 , width = 400"); </script> //Height = Altura, Width = largura. //Abre uma Nova Janela de 300 x 400 e com o título "Pagina2" Leia mais no Oficina da Net: window.open é desse jeito ? tem algum jeito de colocar isso no click do botão ? (é sobre function id... ? se for como ficaria ?) <input type="hidden" name="redirect" value="http.../html/obrigado.html"> ia se encaixar nessa parte do codigo ? <INPUT type=button value= "Enviar Dados" onClick= "window.open('obrigado.html','Obrigado', 'menubar,resizable,width=451,height=306'); "> galera eu fiz desse jeito, esta fazendo do jeito q eu quero, mas queria a opinião de vocês para ter certeza se esta certo o codigo ...
  4. bom dia a todos eu sou muito novato em javascript(pra começar)... estão me pedindo algo do tipo : quando clicar no botão de confirmar cadastro, abre uma pequena janela com uma imagem (agradecendo a pessoa por fazer o cadastro...) como eu disse no começo, sou mt novo em javascript, peço a compreensão e a paciência de todos desde já, agradeço.
  5. dentro do head, certo ? uma pergunta ... todo codigo css é dentro do head ? edit : eu coloquei desse jeito : ... <style type="text/css"> #tudo{width:763px; /*Tamanho da resolucao do seu site*/ height:auto; /*deixar auto para ele se esticar de acordo com conteúdo*/ margin-left:auto; /*aqui é o pulo do gato deixando auto ele centraliza automatico*/ margin-right:auto; /*na direita também*/ } </style> <link rel="stylesheet" href="../html/menucima.css" type="text/css" media="screen" charset="utf-8" /> </head> ... <body bgcolor="#f0f0ff" leftmargin = "1" topmargin = "1" class="textos1"> <div id = "tudo"> ... </div> </body> </html> só tem um menu(por enquanto), mas não ficou centralizado ... eu pensei em mudar a resolução para 763px (tamanho do menu) mas não fez diferença
  6. satoshy

    comando insert into

    deculpa a todos... foi uma falta de atenção total de minha parte... coloquei agora desse jeito : r.Open "Select * from Tabela1 where Usuario = '"& Request.Form ("p1") &"'",c vt1 = Request.Form("t1") vt2 = Request.Form("t2") vt3 = Request.Form("t3") vt4 = Request.Form("t4") vp1 = Request.Form("p1") vSQL = "Insert Into Tabela1 (Nome, Usuario, Senha, E-mail, Telefone) values ('" & vt1 & "', '" & vt2 & "', '" & vp1 & "', '" & vt4 & "', '" & vt3 & "')" Response.Write(vSQL) Response.End If r.EOF then If Request.Form("p1") = Request.Form("p2") then c.Execute(vSQL) Response.Write "OK" Else Response.Write "Fail" End If Else Response.write "Usuario já existe" End If e apareceu o response.write vSQL:
  7. bom dia a todos ! peço a colaboração, e a paciencia de todos para a minha seguinte duvida : meu site já esta pronto, mas tem um problema vai ocorrer resoluções diferentes de cada micro que olhar o site, no meu esta tudo certo, mas quem estiver com outra resolução, o site vai ficar muito grande ou mt pequeno ... queria saber como faço para centralizar a pagina... eu vi no site do maujor, alguns sites e foruns, mas n consigo fazer, ele não esta centralizando, e centraliza junto a parte de texto (pelo q eu entendi, tem um limite, mudei para 998 para colocar uma imagem, só essa imagem funciona, mas com o meu site, n funciona XD) na pagina tem : botões, camadas, tabelas, textos, imagens e 1 menu (<< n sei se isso ajuda muito) desde já, agradeço !
  8. satoshy

    comando insert into

    tentei por os parenteses mas deu o mesmo erro ... eu tirei : If r.EOF then If Request.Form("p1") = Request.Form("p2") then c.Execute ("Insert Into Tabela1(Nome,Usuario,Senha,E-mail,Telefone) values ('"& Request.Form("t1") &"', '"& Request.Form("t2")&"', '"& Request.Form("p1") &"', '"& Request.Form("t4") &"', '"& Request.Form("t3") &"')") Response.Write "Esta tudo bem" Else Response.Write "Fail" End If Else Response.write "Usuario já existe" End If e coloquei em cima : vt1 = Request.Form("t1") vt2 = Request.Form("t2") vt3 = Request.Form("t3") vt4 = Request.Form("t4") vp1 = Request.Form("p1") c.execute = "Insert Into Tabela1 (Nome, Usuario, Senha, E-mail, Telefone) values ('" & vt1 & "', '" & vt2 & "', '" & vp1 & "', '" & vt4 & "', '" & vt3 & "')" Response.Write(vSQL) Response.End If r.EOF then If Request.Form("p1") = Request.Form("p2") then c.Execute(vSQL) Response.Write "OK" Else Response.Write "Fail" End If Else Response.write "Usuario já existe" End If era desse jeito ?
  9. satoshy

    comando insert into

    boa tarde fercosmig obrigado por responder ! mas ainda esta dando o erro :
  10. satoshy

    comando insert into

    boa tarde a todos ! estou fazendo agora a parte de cadastro, e para isso estou usando o Insert Into ... segue o codigo abaixo : If r.EOF then If Request.Form("p1") = Request.Form("p2") then c.Execute "Insert Into Tabela1(Nome,Usuario,Senha,E-mail,Telefone) values ('"& Request.Form("t1") &"', '"& Request.Form("t2")&"', '"& Request.Form("p1") &"', '"& Request.Form("t4") &"', '"& Request.Form("t3") &"'" Response.Write "OK" Else Response.Write "Fail" End If Else Response.write "Usuario já existe" End If e o erro esta nessa linha : c.Execute "Insert Into Tabela1(Nome,Usuario,Senha,E-mail,Telefone) values ('"& Request.Form("t1") &"', '"& Request.Form("t2")&"', '"& Request.Form("p1") &"', '"& Request.Form("t4") &"', '"& Request.Form("t3") &"'" e o erro é : tabela : Database1.accdb Tabela1 Chave primaria : Código = auto num. Nome = texto Usuario = texto Senha = texto E-mail = texto Telefone = texto teste_cadastro.html t1 = text (nome) t2 = text (usuario) t3 = text (telefone) t4 = text (e-mail) p1 = password (senha) p2 = password (confirmar senha) alguém sabe aonde estou errando ?? Att.
  11. satoshy

    Conexão com banco de dados

    bareta eu fiz desse jeito e deu certo ... em vez de numero, deixei como texto mesmo, e foi ! achei esse link também q fala dos tipos numericos http://office.microsoft.com/pt-br/access-h...A001229018.aspx se tiver outro jeito de fazer, por favor me avisem ! obrigado a todos ! vou continuar mexendo no site, qualquer coisa farei outro tópico XD (desculpe qualquer coisa) uma pergunta ... como eu faço para q só aceite numeros ? ou não tem como ? por exemplo : vai ter uma text para telefone, como faço para q essa text aceite só numeros ? Att.
  12. satoshy

    Conexão com banco de dados

    esta certo, eu criei como numerico (geral) existe um certo tipo para senha ? e onde eu acho essa parte dos tipos numericos no access 2010 ? (isso se estiver dentro dele) Agradeço desde já ! edit : eu fiz um teste aki... eu criei uma coluna (Senha_teste) do tipo texto mudei o p1 para text (estava como password) e funcionou td certo as mensangens ... seria algo para mudar no bd ou no codigo ?
  13. Bom dia, tambem sou novo em codigos asp mas poste seu codigo, talvez eu consiga ajudar =x Att.
  14. satoshy

    Conexão com banco de dados

    Bom dia a todos no final, consegui me virar com os erros... muitas tentativas no google, e muitos sites em ingles --' podem me ajudar com esse codigo ? <%Dim c,r Set c = Server.CreateObject("ADODB.Connection") Set r = Server.CreateObject("ADODB.RecordSet") c.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.Mappath("Database1.accdb")&";" c.Open r.Open "Select * from Tabela1 where Usuario='"&request.form("t1")&"'", c If r.EOF then Response.Write "usuario ou senha invalidos" else If request.form("p1") = r("Senha") then Response.Write "Bem - vindo" & " " & r("Nome") & " " & "!" else Response.Write "ainda n" end if end if r.close c.close set c = nothing set r = nothing %> eu queria q acontecesse algo do tipo ele pega os valores da Tabela1 se o t1 for diferente de Usuario então mostra mensagem1 se for igual mostra mensagem2 se o p1 for diferente de Senha então mostra mensagem1 se for igual mostra mensagem2 no código acima só mostra usuario ou senha invalidos se o login estiver errado, mas se o login estiver certo (e mesmo se a senha estiver errada, em branco, ou certa) mostra "ainda n"
  15. satoshy

    Conexão com banco de dados

    Galera, ainda estou tentando aqui ... tentei com esse código : <%Dim c,r Set c = Server.CreateObject("ADODB.Connection") Set r = Server.CreateObject("ADODB.RecordSet") c.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"&Server.Mappath("Database1.mdb")&"';" c.Open r.Open "Select * from Tabela1 where Usuario=" & request.form("t1") & ";" If r.EOF then Response.Write "usuario ou senha invalidos" else If Request.Form ("p1") = r("Senha") then Response.Write "Bem - vindo" + r("Nome") + "!" else Response.Write "usuario ou senha invalidos" end if end if r.close c.close set c = nothing set r = nothing %> mas ainda não estou conseguindo o IE mostra a mesmo msg : Microsoft JET Database Engine error '80004005' Unrecognized database format 'D:\Webs\login\pagina_asp\Database1.mdb'. /pagina_asp/registros.asp, line 14 eu não sei o que fazer :( alguém pode dar um help ?? ninguém ?! :( Agradeço desde já !
×
×
  • Criar Novo...