py2tz
-
Total de itens
261 -
Registro em
-
Última visita
Tudo que py2tz postou
-
Beraldo, realmente parece ser mais fácil mesmo, porem estou apanhando com as medidas das caixas, Eu altero os px porem elas não mudam de tamanho, onde estou errando? ---- Beraldo é demais Acho que descobri, faltou um ; no width, Cara, bem melhor mesmo, acho que isso mata aqueles velhos frames, com os tristes *, rows, cols, tá louko, isso é coisa de louko. Valeu, obrigado, pela dica. Fausto
-
Olá Beraldo, Rapaz, se eu estou apanhando com frames, já pensou acrescentando o i na frente, não tenho nem ideia de como deve ser, tem alguma sugestão prá esse caso? Hoje ele esta assim: Precisava deixar assim: Sendo este novo com 80x80
-
Tenho uma page com 3 frames e precisava inserir um 4 frame com 80x80 junto com o que esta em vermelho abaixo, sendo que o nome da page nova é users.asp já fiz várias tentativas, mas estou apanhando pakas, alguém manja desse item? Fausto
-
Fazendo Caixa Com Variáveis Dentro
pergunta respondeu ao py2tz de py2tz em Ajax, JavaScript, XML, DOM
O body ficou assim: <BODY bgcolor="#d50000" TEXT=#000000 onLoad="document.message.visMsg.focus()" style="overflow-x: auto"> E o </div> não apareceu, mas esta lá, esquici na hora de copiar e colar. Porem não esta funconando. Pergunta de leigo: Ele trabalha com frames, seu eu mudar lá na diposicao os frames para que apareça uma outra caixinha com as variaveis resolveria tambem. Os frames estao assim: Mas não sei muito se esta certo assim, que tambem não criou outra janelinha de 80x80 suficiente para abrigar os nomes das variaveis. -
Fazendo Caixa Com Variáveis Dentro
pergunta respondeu ao py2tz de py2tz em Ajax, JavaScript, XML, DOM
Inseri assim, mas continua a mesma coisa, ou seja vai fazendo uma tripa de nomes. Inclusive no body tambem coloquei <BODY bgcolor="#d50000" TEXT=#000000 onLoad="document.message.visMsg.focus()" overflow-x: auto; > <div id="nomes" style="overflow: auto"> <TABLE cellspacing="1" cellpadding="0" border="0" width="80"> <TR valign="top"> <TD ALIGN=left VALIGN=top><font class="txt8w"> <% Topic = Session("Topic") Application.Lock If Not IsEmpty(Application.Contents("Users")) Then Users = Application("Users") Group = Application("UsersGroup") NumOfUsers = UBound(Users) For I = 0 To NumOfUsers If Topic = Group(I) Then 'Response.Write "" Response.Write " <a href=""java script:privateWin('" & Users(I) & "')""><img align=absmiddle src='image/lips.gif' border=0> <b>" & Users(I) & "</b></a><br>" End If Next End If Application.Unlock %> </font> </TD> </TR> </table> -
Olá turma, Não sei bem como dizer, mas tenho uma página na qual possui vária variáveis tipo nomes que ao passar do tempo, vão aumentando, ou seja: nome1 nome2 Vai aumentando a medida que mais nomes vão entrando, nome1 nome2 nome3 nome4 Sendo que eles teriam que aparecer dentro de uma janela fixa com 80x80 pois caso contrário iria aumentando o tamanho da pagina. Esta janelinha de 80x80, ao ter mais nomes que suporta, abriria o scroll para poder visualizar todos, correndo pra cima e pra baixo. Se alguém entendeu e puder ajudar.....agradeço Fausto
-
BALA, LEGAL, estou PULANDO DE ALEGRIA. Obrigado Bareta e galera que tentou...... rodou quase na primeira, só tive que mudar os includes de lugar, mas ficou redondo. Bareta como faço pra aumentar os campos de pesquisa deste mesmo buscado? Ele pesquisa o NOME Queria acrescentar o número do id. No BD esta id esta como autonumeração e com o nome id mesmo. Já tentei várias dicas de colegas mas até agora nada. Dá pau. SELECT * FROM prlist WHERE Nome Like '%"& vNome &"%' Até + Fausto
-
GENTE estou PULANDO DE ALEGRIA Legal, funcionou, fucei tanto que achei um jeito de funcionar. ficou assim o final else AbreConexao Sql = "INSERT INTO Admin (login, senha, email, nivel, Data) " Sql = Sql & "VALUES('" & Request.Form("login") & "','" Sql = Sql & Request.Form("senha") & "','" & Request.Form("email") & "', '" & Request.Form("nivel") & "', '" & Request.Form("Data") & "')" Conexao.Execute(Sql) e no input ficou assim: <input type="hidden" name="Data" value="<%=date()%>"><%=date()%> Agradeço a todos pelo empenho Preciso aprender a lógica disso, ainda não sei a linha de raciocinio, só consigo fazendo e desfazendo até acertar. Fausto
-
Não funcionou!!!! Eis o código completo, é um frankstein, montei ele em retalhos <% vNome = request.form("Nome") Set Conexao = CreateObject("ADODB.CONNECTION") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("db/arvore.mdb") conexao.Open DSNtemp sqlstmt = "SELECT * FROM prlist WHERE Nome Like '%"& vNome &"%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conexao, 3, 3 totalrecs = rs.recordcount achei="sim" if rs.eof then%> Não Achei nenhum Arquivo com este Nome!! <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> <%Sql = "SELECT * FROM prlist WHERE Nome Like '%" & vNome & "%' ORDER BY Nome" Set rs = Conexao.Execute(Sql) While not rs.EOF %> <%=rs("Id")%></td> <%=rs("Nome")%> <% rs.MoveNext Wend rs.close Set rs = nothing %> <% end if next if achei="sim" then %> <% end if%> </body> </html>
-
Isso aparece somente quando tem mais de um item encontrado, Microsoft VBScript runtime error '800a01a8' Object required: 'rs' busca2_bloq.asp, line 27 Quando acha somente um registro somente não aparece o erro acima. A Linha 27 é a que esta em negrito. <%achei="não" end if x = 0 for x = 1 to totalrecs if rs.eof then exit for else %> Acho que esta faltando alguma coisa, pois esta pedindo para ir para o else e não existe nenhum else no script. Acho que tenho que criar um else mas não sei como fazer. Fausto
-
Não abre nem a pagina de busca. Não sei se é o TRIM ou que é mas não abriu, deixei identico ao seu exemplo. Valeu, tks pela tentativa. Fausto
-
Aproveitando o gancho da date() Não estou conseguindo gravar a data do resgistro no BD, a data atual chega até aparecer no form, mas não registra no BD, os outros campos vão direitinho. AbreConexao Sql = "INSERT INTO Admin (login, senha, email, nivel, Data) " Sql = Sql & "VALUES('" & Request.Form("login") & "','" & Request.Form("Data") & "', '" Sql = Sql & Request.Form("senha") & "','" & Request.Form("email") & "', '" & Request.Form("nivel") & "')" Conexao.Execute(Sql) e no form: <td width="23%"><p align="center"><font class="txt10b"><input type="hidden" name="Data" value="<%=date()%>"><%=date()%></font></td> alguém consegue visualizar o problema? Obrigado
-
Com o and ele puxa o BD todo, seja qual for a consulta, Nome ou id, vem a relação inteira. Posso mandar a pagina pra você, é só uma pequena que faz as pesquisas do BD. Esta pagina tem um form que quando o usuario escreve o nome de alguém ele busca no BD a info e expoe a ele. A intenção é poder tambem consultar tanto o nome quanto o numero de registro que esta no BD.
-
No Banco esta certo. Tabela = prlist Coluna = id Coluna = Nome entre outras colunas existentes. Quando eu digito um nome que existe ele me mostra os dados. (até ai normal) Quando eu digito um nome que não existe ele informa NOME INEXISTENTE (até ai normal) Quando eu digito um número que esta e existe na coluna id do BD ele informa NOME INEXISTENTE
-
Andreia, Obrigado pelo retorno, mas, Não funcionou Adicionei mais um request. vNome = request.form("Nome") vid = request.form("id") Set Conexao = CreateObject("ADODB.CONNECTION") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("db/arvore.mdb") conexao.Open DSNtemp sqlstmt = "SELECT * FROM prlist WHERE Nome like '%"& vNome &"%' and id like '%"& vid &"%' " Mais abaixo do script tem outro select que tambem alterei, mas tambem não deu certo: <%Sql = "SELECT * FROM prlist WHERE Nome like '%" & vNome & "%' and id like '%"& vid &"%' ORDER BY Nome"
-
Gostaria de encaixar um gancho do meu caso: Meu select esta assim: vNome = request.form("Nome") sqlstmt = "SELECT * FROM prlist WHERE Nome like '%" & vNome & "%' " E faz consulta pelo nome da coluna chamada NOME Precisava de acrescentar a busca pelo ID tambem chamado Id Tentei isso mas não funcionou. vNome = request.form("Nome") vId = request.form("Id") sqlstmt = "SELECT * FROM prlist WHERE Nome, Id like '%" & vNome & "%' & '%" & vId & "%' " Se alguém puder iluminar, agradeço Fausto
-
Gostaria de encaixar um gancho do meu caso: Meu select esta assim: vNome = request.form("Nome") sqlstmt = "SELECT * FROM prlist WHERE Nome like '%" & vNome & "%' " E faz consulta pelo nome da coluna chamada NOME Precisava de acrescentar a busca pelo ID tambem chamado Id Tentei isso mas não funcionou. vNome = request.form("Nome") vId = request.form("Id") sqlstmt = "SELECT * FROM prlist WHERE Nome, Id like '%" & vNome & "%' & '%" & vId & "%' " Se alguém puder iluminar, agradeço Fausto
-
Pois é, mas ele é assim mesmo, parece que é uma outra forma de fazer a coisa e funciona, pois tem outras páginas do sistema que funcionam direito. Note que ele faz menção ao db <% db = "dados/arvore" %> <% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db) ConexaoAberta = FALSE Sub AbreConexao() E o ineteressante que é sem .mdb mesmo. O scrip faz menção sobre isso e coloca uma info dizendo, NÃO USAR MDB. Tente ver se tem outro erro, por favor.
-
Já tive isso tambem no meu, inclusive são dois sistemas que tinha ou melhor tenho, a briga foi feia, eram vários, todos vinham de fora do Brasil, venci eles pelo cansaço, para não fazer o que o colega de cima comentou, login e senha, pois assim acho que inibe o acesso, fiz simplesmente a mudança do diretorio. Nasceu como blog, alterei para blog2, blog3, blog4 e finalmente parou em newblog. Acho que é um programa ou sistema que eles usam, não deve ser pessoalmente, é um tipo de rastreamento igual caça de email, ainda não sei qual a palavra que ele busca, mas deve ser alg como blog mesmo, pois somente parou depois que passou para new na frente do blog. Tente e sucesso Fausto
-
Priscila, desculpe, faltou a linha do action, você deve inserir nele para que fique assim: <form action="sua_pagina.asp" method="post" name='REG' onsubmit="return checar_formulario(this)"> Fausto
-
Estou com um poroblema, NÃO FUNCIONA. fiz duas paginas - esqueci1.asp e esqueci2.asp. Na primeira esta assim: <form action="esqueci2.asp" method="post"> <table border=0 width="90%" cellspacing="1" cellpadding="0" align="center"> <tr> <td width="23%" height="23"><p align="center"><font class="txt10b">E</b>-Mail:</font></td> <td height="23"><input type="text" name="email" size="29" ></font></td> </tr> </table> <table width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"> <tr> <td align="center"><input type="submit" value="Criar" style="border:1px solid #FFFFFF"></font></td> </tr> </table> </form> E na segunda esta assim: <!--#include file="conectar.asp"--> <% 'recupera dado do form usuario = request.form("usuario") 'busca no banco o usuario resgatado SQL = "Select email, senha from Admin where usuario='" & usuario & "'" set rs = conexao.execute(sql) 'verifica se encontrou algo if not rs.eof then 'cria objeto de email (vou usar CDONTS) Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "email@seudominio.com.br" ' coloque aqui seu email Mail.To = rs("email") Mail.Subject = "Recuperação de Senha" Mail.Body = "Sua Senha é " & rs("senha") Mail.Send else response.write "Usuario não encontrado!!" response.end end if %> Poderia me ajudar iluminando o local do problema?????? Fausto