Ir para conteúdo
Fórum Script Brasil

rogerweplay

Membros
  • Total de itens

    36
  • Registro em

  • Última visita

Tudo que rogerweplay postou

  1. Pessoal, Estou com um dilema. estou montando um layout muito simples por sinal, porém quando a pagina é minimizada o layout é desmontado, descobri o problema, estou colocando width 100%, ai tentei bloquear colocando o max em 100% e o min em 80%, mas não quis funcionar de jeito algum. alguém saberia uma solução ou onde estou errando?
  2. retornara informação em string
  3. alguém saberia como puxar dados de uma tabela e exibi-la no Iframe, é que consigui um editor de texto que só que ele esta interagindo com Iframe e não com textarea. <iframe id="materia" frameborder="0" style="background-color:#FFFF00; border:1px solid #000000; width:500px; height:350px"></iframe> // tentei colocar das seguintes formas, mas não funfo. <iframe id="materia" src="<%=noticia("materia")%>" frameborder="0" style="background-color:#FFFF00; border:1px solid #000000; width:500px; height:350px"></iframe> <iframe id="materia" "<%=noticia("materia")%>" frameborder="0" style="background-color:#FFFF00; border:1px solid #000000; width:500px; height:350px"></iframe> alguém que saiba se puder me ajudar. grato
  4. já descobri o problema, obrigado mesmo assim
  5. Pessoal, venho pedir mais uma vez ajuda. tenho um codigo onde quero que meu campo na tabela statusc ficque com 2, usando o UPDATE. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="configclass.asp"--> <% id = request("id_veiculos") statusc = 2 set alterar = Server.CreateObject("ADODB.Recordset") alterar.open "UPDATE tbveiculos set statusc='"& statusc &"' where id_veiculos="& id &"",conexao response.Redirect("votou.asp") %> esta dando erro nesta linha: alterar.open "UPDATE tbveiculos set statusc='"& statusc &"' where id_veiculos="& id &"",conexao tipo de erro: ADODB.Recordset erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /sindaspes/aprovarv.asp, linha 8 ..... se alguém puder me ajudar.....
  6. já achei o erro, não estava codificando o call conect
  7. Pessoal preciso de serias ajudas. primeiro tenho o mesmo codigo em um sistema de noticias, agora replicando em outro sistema tb de noticias não funciona. obs: a conexao com o banco esta perfeita, visto que consigo iserir dados na tabela <% dim noti set noti = con.execute("select * from tbnoticias order by id_noticias desc") do while noti.eof = false %> <tr> <td ><%=noti("titulo")%></td> <td ><%=noti("data")%></td> <td ><a href="noteditar.asp?id=<%=noti("id_noticias")%>" class="not">editar</a></td> <td ><a href="notapagar.asp?id=<%=noti("id_noticias")%>" class="not">apagar</a></td> </tr> <% noti.movenext loop %> erro: Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' quem puder me ajudar, agradeço. pois não consigo achar o erro.
  8. Pessoal, tenho serias duvidas, como exibir uma imagem que foi upada com o compenente AspUpload? já procurei, porém não tive sucesso, preciso desesperadamente saber como programar essa funcionalidade. Se alguém souber, serei grato. Aqui é meu codigo HTML que usei para upar: <HTML> <BODY BGCOLOR="#FFFFFF"> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="carregar.asp"> <INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> <p>&nbsp;</p> <p> <% Response.Write "<img src=""\imagens\unitylogo.jpg"" />" %> </p> </BODY> </HTML> Aqui o outro que usei para upar carregar.asp <HTML> <BODY BGCOLOR="#FFFFFF"> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="carregar.asp"> <INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> <p>&nbsp;</p> <p> <% Response.Write "<img src=""\imagens\unitylogo.jpg"" />" %> </p> </BODY> </HTML>
  9. pessoal preciso de uma ajuda, qual expressão uso para inserir dados num campo auto numerico ou numero, eu sei que pro outros tipo usamos o: '"&exemplo&"', mas como eu coloco para tipo auto numerico?
  10. já descobri o erro, obrigado pela ajuda
  11. é algo muito estranho, eu uso a mesma query, do jeito que estar para uma tabela e pra um campo data_fone tipo texto e funciona perfeitamente. quando eu uso pra outra tabela com o um campo usuario que tb é do tipo texto, já não funciona do jeito que deveria funcionar. realmente é muito extranho
  12. deu o seguinte erro: SQL: select * from tbCadastro where usuario like '%%' Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /intranet/mostrarcontato.asp, line 11
  13. não obtive sucesso, ele simplesmente não busca. na verdade estou com dificuldade em achar aonde sera o in put do debug
  14. O id_contato é do tipo numeração automatica.
  15. okay, irei verificar.... obrigado pela dica
  16. ola pessoal, eu fiz um sistema de busca, que funcionou perfeitamente em uma pagina, mas quando foi colocar para outro banco, ele não mostra a palavra chave como resultado, e sim todos, por exemplo, eu pesquiso, roger.almeida, ele me da de resultado todos os usuarios, não sei aonde estou errando, uso o mesmo codigo em outro banco, e funciona perfeitamente. e o pior é que não da nem erro, ele simplesmente não funciona. colocarei o codigo abaixo. <% usuario = request.form("usuario") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.MapPath("BD/bdIntra.mdb") sqlstmt ="select * from tbCadastro where usuario LIKE '%"&usuario&"%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id_cadastro = rs("id_cadastro") usuario = rs("usuario") %><style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; } --> </style> <link href="css/css_styles.css" rel="stylesheet" type="text/css" /> <table width="1000" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> </tr> <tr> <td align="center"><table width="500px" border="2px" cellpadding="0" cellspacing="5" bordercolor="#000000"> <tr> <td colspan="2"><img src="Img/AGENDA LABEL.jpg" width="500" height="100" /></td> </tr> <tr> <td width="105"><b>Id:</b></td> <td><%=id_cadastro%></td> </tr> <tr> <td><b>nome:</b></td> <td><%=usuario%></td> </tr> <tr> <td width="110" valign="top"><b>assunto:</b></td> <td>&nbsp;</td> </tr> <tr> <td width="120"><b>Data do Contato:</b></td> <td width="350">&nbsp;</td> </tr> <tr> <td><b>Observação:</b></td> <td>&nbsp;</td> </tr> </table> </td> </tr> </table> <% rs.MoveNext %> <% end if next %>
  17. já fiz essas alterações mas continua o erro igual a antes
  18. Ola pessoal, eu fiz um consulta de update, mas não sei porque não esta funcioando, preciso de ajuda. uso a mesma consulta em outro site, que funciona perfeitamente, a unica coisa de diferente é que nesse novo site possui mais campos. segue abaixo o codigo na integra. as colunas são do tipo texto(varchar) e o id_contato é numerção automatica Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'id_contato='. /intranet/AlterarContato.asp, line 25 = con.execute("update tbContato set nome='"&aniversario&"', tratamento='"&tratamento&"', titulo='"&titulo&"', cargo='"&cargo&"', entidade='"&entidade&"', endereco='"&endereco&"', cidade='"&cidade&"' , cep='"&cep&"', cpf='"&cpf&"', estado='"&estado&"', pais='"&pais&"', telefone='"&telefone&"', fax='"&fax&"', celular='"&celular&"', email='"&email&"', nota='"&nota&"' where id_contato="&id_contato) <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file ="conexao.asp"--> <% dim id_contato, nome, aniversario, tratamento, titulo, cargo, entidade, endereco, cidade, cep, cpf, estado, pais, telefone, fax, celular, email, nota id_contato =request.form("id_contato") nome =request.form("nome") aniversario =request.form("aniversario") tratamento =request.form("tratamento") titulo =request.form("titulo") cargo =request.form("cargo") entidade =request.form("entidade") endereco =request.form("endereco") cidade =request.form("cidade") cep =request.form("cep") cpf =request.form("cpf") estado =request.form("estado") pais =request.form("pais") telefone =request.form("telefone") fax =request.form("fax") celular =request.form("celular") email =request.form("email") nota =request.form("nota") call conect con.execute("update tbContato set nome='"&aniversario&"', tratamento='"&tratamento&"', titulo='"&titulo&"', cargo='"&cargo&"', entidade='"&entidade&"', endereco='"&endereco&"', cidade='"&cidade&"' , cep='"&cep&"', cpf='"&cpf&"', estado='"&estado&"', pais='"&pais&"', telefone='"&telefone&"', fax='"&fax&"', celular='"&celular&"', email='"&email&"', nota='"&nota&"' where id_contato="&id_contato) call desconect response.Redirect("showContato.asp") %> <br/> <a href="contato.asp">Voltar</a>
  19. Pessoal estou tendo um problema com a expressão Insert, um problema que não estou consiguindo resolver pois tenho mais tres consultas da mesma forma e essa é a unica que esta com problemas. a seguinte expressão da erro "tipo de dados imcompativeis na expressão de criterio" '" "' = asp simples, dupla, dupla, simpes <!--#include file = "conexao.asp"--> <% dim nome, aniversario, tratamento, titulo, cargo, entidade, endereco, cidade, cep, cpf, estado, pais, telefone, fax, celular, email, nota nome = request.form("nome") aniversario = request.form("aniversario") tratamento = request.form("tratamento") titulo = request.form("titulo") cargo = request.form("cargo") entidade = request.form("entidade") endereco = request.form("endereco") cidade = request.form("cidade") cep = request.form("cep") cpf = request.form("cpf") estado = request.form("estado") pais = request.form("pais") telefone= request.form("telefone") fax = request.form("fax") celular = request.form("celular") email = request.form("email") nota = request.form("nota") call conect con.execute("insert into tbContato(nome, aniversario, tratamento, titulo, cargo, entidade, endereco, cidade, cep, cpf, estado, pais, telefone, fax, celular, email, nota) values ('"& nome &"','"& aniversario &"','"& tratamento &"','"& titulo &"','"& cargo &"','"& entidade &"','"& endereco &"','"& cidade &"','"& cep &"','"& cpf &"','"& estado &"','"& pais &"','"& telefone &"','"& fax &"','"& celular &"','"& email &"','"& nota &"')") call desconect response.Redirect("contato.asp") %> o nome da minha tabela é tbContato. Esse codigo estava funcionando ate ontem, hj já não quer funcionar. quem puder me ajudar serei muito grato.... Atenciosamente, Roger Almeida
  20. <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <script language="javascript"> function tempo() { hj = new Date(); dia = hj.getDay(); mes = hj.getMonth()+1; ano = hj.getFullYear(); document.getElementById('data').value = dia +"/"+mes +"/"+ ano; setTimeout("tempo()",1000); //document.write(hj.toLocaleString()); } </script> </head> <body onload="tempo()"> <a href='java script:;' onClick='window.print();return false'>imprimir</a><p> teste de impressão <p> <form id="form1" name="form1" method="post" action="agenda"> <table width="200" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="50">Data</td> <td><label> <input name="data" type="text" size="10" maxlength="10" id="data"/> </label></td> </tr> </table> </form> <p> </body> </html> já tentei de tudo, mas so consegui resolver o problema do mês..... quem puder me ajudar a ter uma solução serei muito grato
  21. testei aqui novamente, e deu certo, mas ao mesmo tempo não utilizando a showAgenda2.asp, funciona perfeitamente agora se eu vou pelo excluirAgenda da erro.... bom o que importa é que esta funcionando pelo pelo showAgenda2.asp muito obrigado pela ajuda... valeu mesmo..... Grato!!! Roger Almeida
  22. você testou do jeito que esta ai?
  23. estou te mandando o link para download do meu projeto..... brigadão pela ajuda,,,, realmente não sei aonde estou errando
  24. Desespero batendo hahahahahhaha caramba não esta dando certo,,, sempre cai no mesmo erro mesmo erro de sintaxe 'id_agenda' hahahahahahaha
  25. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="conexao.asp"--> <% dim id_agenda id_agenda =request.QueryString("id_agenda") call conect query="delete from tbAgenda where id_agenda="&id_agenda response.Write("SQL: <br/><textarea style=""width:100%"">" & query & "</textarea>") response.Flush() call desconect %> Dados apagados com sucesso! fiz do jeito que você me disse que era pra fazer,,,,, minha pagina principal continua como antes,,, tudo funciona no meu sistema, menos a exclusão.... corrigi os erros... mas continua não excluindo os dados... realmente não sei o que esta acontecendo
×
×
  • Criar Novo...