Ulissesx
-
Total de itens
48 -
Registro em
-
Última visita
Tudo que Ulissesx postou
-
Pessoal, tenho um BD access que a maquina de problema e acabou perdendo alguns registros, não deu p/recuperar! O chave é um campo autonumérico, mas para não furar a sequencia dos dados perdidos tive que transforma-lo em campo numerico! A pergunta é tem como um codigo asp gerar um sequencial a partir do ultimo registro? Conheco o RsMax, mas não encontrei a forma correta de aplicar! alguém tem uma dica? Agradeço qualquer informação! valeu!
-
Galera tenho esse codigo simples aki usando Cdonts, funciona sem problemas hoje fui verificar se estava tudo ok. E começou a vir um erro 500 no envio do e-mail, sem nenhuma outra informação, pensei que o problema era meu server, ai coloquei o mesmo codigo em outro server na Locaweb e o erro continua. alguém já passou por isso! Segue o codigo! <% Option Explicit Dim nome, email, contato, mensagem, destinatario, enviarmail, msgbody nome = Request.Form("nome") email = Request.Form("email") contato = Request.Form("contato") mensagem = Request.Form("mensagem") destinatario = "ulisses@madel.com.br" Set enviarmail = Server.CreateObject("CDONTS.NewMail") Enviarmail.to = destinatario Enviarmail.From = email Enviarmail.Subject = "Contato - Union" msgbody ="<html>"_ & "<head>"_ & "</head>"_ & "<body bgcolor=""#FFFFFF"">"_ & "<p align=""center""><font face=""Verdana"" size=""2"">Voce recebeu uma mensagem de <b>" & nome & "</b>, email <b>" & email & "</b> sobre <b>" & contato & "></b> e fez o seguinte comentário:<b>" & mensagem & "</b></font></p>"_ & "</body>"_ & "</html>" Enviarmail.Body = msgbody Enviarmail.Importance = 1 Enviarmail.BodyFormat = 0 Enviarmail.MailFormat = 0 Enviarmail.Send Set Enviarmail = Nothing Response.Redirect("thanks.asp") %> Aproveitando gostaria de mandar uma BCC nesse codigo é só adicionar o codigo:enviarmail.BCC = destinatario_oculto Agradeço a ajuda
-
Gladisson, esse ini_set tem que entrar como function logo no inicio do codigo? ou basta inserir essa linha? meu php não é lá essas coisa, ainda apanho com a estrutra dele. valeu! ============EDIT Inseri o ini_set, aparentemente a mensagem de erro sumiu, mas ainda esta lento o q sera q rola?
-
Ae galera, to levantando um forum phpbb e até ai beleza, tudo funcional (em laboratorio) quando passei p/server de verdade o negocio ficou lento!! muito lento... e na maioria das vezes vem essa mensagem aki: Fatal error: Maximum execution time of 30 seconds exceeded in Z:\www\jedicenter\forum\db\mysql4.php on line 48 O q sera q ta pegando?? o Server não aguenta o tranco, ficou pesado, erro de configuração?? Agradeço qualquer informação!! valeu!
-
você já esperimentou verificar o CPI nos dois drivers?? As impressoras matriciais da Epson dependendo do windows, vem com configurações diferentes de CPI. Dai o fato da primeira folha imprimir certo e dai p/frente zoa tudo. Cheke no setup da impressora o tamanho do papel e Auto TearOff. Outra coisa importante é saber o quanto tá passando de uma pagina p/outra. Verifique o microajuste de topo de pagina. E para finalizar qual a origem do papel? Folha avulsa? Formulario Continuo? se for continuo você ta alimentando pela parte frontal ou na traseira? Tudo isso influi. Trabalho com matriciais epson a muito tempo da falecida fx-86e até a 2180 e sempre tem um detalhezinho que passa. Espero ter ajudado
-
Acho que a locaweb so roda Cdonts... alias a locaweb tá muito estranha ultimamente...
-
Da uma olhada nessa linha: <p align="center"><a href="agenda.asp?&mes<%=mes%>" target="_blank"><font face="Verdana" size="1"> comparando com essa aki: id=request("id") strSQL = "SELECT * FROM Agenda WHERE 'month(dt_evento)='"&idevento&" ORDER BY DT_EVENTO ASC" essa segunda linha não deveria pegar a mesma variavel da de cima?? acho que o problema ta ai... (to apenas analisando) não to encontrando referencia de id de uma p/outra.
-
Olha esse componente q você ta usando tá ok?? Eu uso CDONTS e tá funfando legal dá uma olhadinha: <% Option Explicit Dim nome, email, contato, mensagem, destinatario, enviarmail, msgbody ' Pegando dados do form nome = Request.Form("nome") email = Request.Form("email") contato = Request.Form("contato") mensagem = Request.Form("mensagem") destinatario = "seuemail@seuservidor.com.br" ' Gerando e-mail HTML Set enviarmail = Server.CreateObject("CDONTS.NewMail") Enviarmail.to = destinatario Enviarmail.From = email Enviarmail.Subject = "Contato" msgbody ="<html>"_ & "<head>"_ & "</head>"_ & "<body bgcolor=""#FFFFFF"">"_ & "<p align=""center""><font face=""Verdana"" size=""2"">Voce recebeu uma mensagem de <b>" & nome & "</b>, email <b>" & email & "</b> sobre <b>" & contato & "></b> e fez o seguinte comentário:<b>" & mensagem & "</b></font></p>"_ & "</body>"_ & "</html>" Enviarmail.Body = msgbody Enviarmail.Importance = 1 Enviarmail.BodyFormat = 0 Enviarmail.MailFormat = 0 Enviarmail.Send Set Enviarmail = Nothing Response.Redirect("thanks.asp") %> Esse codigo só não tá tratando se falhar o envio! Espero ter ajudado
-
Parabens p/Ursolino!! hahaha Mta cerva e mina!! não necessariamente nessa mesma ordem!! valeu!
-
Aki no fedora roda o seguinte comando: adsl-setup ele vai pedir qual a eth recebe a rede login e senha DNS Firewall e mais umas coisinhas...
-
Eu apanho de ASP tem uns 1 ano mais ou menos, o que mais me deu dor de cabeça até hoje (e ainda não acertei) foi a paginação. Outra que ainda não entendi como funciona é como atualizar duas tabelas ao mesmo tempo. Gerar gráficos a partir de um Array tb seria interessante. Hoje consegui fechar o sistema de gestão RH ficou legal. se possivel gostaria de mostra-lo completo para uma avaliação da galera!! T+
-
Ve se isso ajuda, normalmente aki funciona!! valor = Trim(request.Form("valor")) valor = replace(valor, ",", ".") t+
-
Problema resolvido, encontrei uma outra forma de trazer a informação. valeu
-
O Blaster é um worm que fica na MBR e assim que pega a conexao de internet faz com que o windows seja reiniciado em 60 segundos... Fora que instalar varios outros que praticamente consomem a banda da internet... To quase pulando fora dessa...
-
É preciso acesso livre a internet. Navegação, e-mail, compartilhadores um firewall windows pode conter esse blaster? Cheguei a pensar que o blaster tá residente na eprom do cable modem, pois trocou de Ip fixo p/dinamico. você é de São Paulo??
-
Tava fazendo o nat, mas pensei q o problema fosse só esse. troquei esse server linux p/Win XP compartilhando internet. Mas o problema continua igual.
-
Galera, assumi um novo "cliente" e me deparei com uma situação que nunca tinha vista na vida. Um server linux compartilhando speedy com maquinas windows até ai tudo bem, mas o problema é que todas as maquinas estão com o BLASTER!!! Exclui partições de todas as maquinas e solicitei ao cliente que trocasse o IP fixo p/dinamico feito isso fui testar uma das maquinas para o acesso a internet, assim que pluguei o cabo de rede e abri o navegador surgiu a famosa mensagem da Autoridade windows NT e vamos reiniciar a maquina em 60 sec... e assim aconteceu com as demais maquinas que formatei o simples fato de conectar a internet e a maquina é invadida. troquei tudo o q podia, so faltou o cable-modem. alguém tem alguma ideia?? Agradeço a qualquer informação...
-
A Linha 81 Cyber é essa aki: <% rs.Close Call fecha_conexao Set rs = Nothing Else %> -- LINHA 81 Eu passei a tarde todo reescrevendo esse codigo mas o erro é sempre o mesmo, a impressao que tenho é o fechando a conexao tá dando algum pau... Se por exemplo eu removo a busca na tabela principal, deixo p/usuario digitar funciona sem problemas... mas tem que listar todos os funcionarios...
-
Pessoal no codigo abaixo tenho duas tabelas (principal e dependentes) Esse codigo monta um form p/selecionar o filtro (cod_func) em ambas as tabelas Em liguagem normal seria isso: selecionar na tabela dependentes tudo em que o cod_func for igual ao campo pesquisa. Mas não ta rolando, quando executo recebo esse erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /gestao_rh/consulta_alt_dep.asp, line 81 segue o codigo, agradeço a ajuda <% Option Explicit Response.Expires = 0 %> <!--#include file="header.htm"--> <!--#include file="bib_cadastro.asp"--> <HTML> <HEAD> <TITLE>Pesquisa por Nome</TITLE> </HEAD> <BODY topmargin="0" leftmargin="0" bgcolor="#EEEEEE"> <% If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then varNome = (Request.Form("pesquisa")) Dim Conexao, rs, sqlBanco, varNome varNome = (Request.Form("pesquisa")) sqlBanco = "SELECT * FROM dependentes WHERE cod_func LIKE '%" & varNome & "%' " sqlBanco = sqlBanco & "ORDER BY nome" Call abre_conexao Set rs = Conexao.Execute(sqlBanco) %> <br> <div align="center"> <table width="62%" border="0" bgcolor="#FFFFFF"> <tr> <td bgcolor="#666666"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Cadastro de Funcionários</b></font></div> </td> </tr> </table> <table width="82%" border="1" bgcolor="#FFFFFF"> <tr bgcolor="#666666"> <td width="6%"><div align="center"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Cod_Func</font></strong></div></td> <td width="6%"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Empresa</font></strong></td> <td width="30%"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF" size="1"><b>Funcionário</b></font></div></td> <td width="10%"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Dt Adm</b></font></div></td> </tr> </table> <% If rs.EOF Then Response.Write "não existem Pedidos Liberados, por favor tente outro." Else While Not rs.EOF %> </div> <div align="center"> <table width="82%" border="0" bgcolor="#FFFFFF"> <tr> <td width="8%"><div align="center"><font face="Verdana size="1"><b><%= rs("cod_func") %></b></font></div></td> <td width="7%"><font face="Verdana" color="#000000" size="1"> <b><%= rs("empregador") %></b></font></td> <td width="26%"> <div align="left"><font face="Verdana" color="#000000" size="1"><b> <% Response.write "<a href=form_altera_cad.asp?id=" & rs("cod_func") & ">" & rs("nome") & "</a>"%> </b></font></div></td> <td width="10%"> <div align="left"><font face="Verdana" color="#000000" size="1"><b><%= rs("dt_admin") %></b></font><font face="Verdana, Arial, Helvetica, sans-serif"><b></b></font></div></td> </tr> <% rs.MoveNext Wend End If %> </TABLE> <br><font face="arial" size="2">Para realizar nova consulta <a href="consulta_nf_p_alterar.asp">clique aqui</a></font> <% rs.Close Call fecha_conexao Set rs = Nothing Else %> </div> <!--#include file="bib_cadastro.asp"--> <% Dim Conexaos, rsfuncionario, strSQl, nome Call abre_conexao strsql = "SELECT cod_func, nome FROM principal ORDER BY nome" Set rsfuncionario = Conexaos.execute(strSQL) %> <FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST"> <table width="35%" border="0" align="center"> <tr> <td width="22%"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Funcionário</font> </div></td> <td width="33%"><select name="pesquisa" id="pesquisa"> <% While not rsFuncionario.EOF %> <option value="<%= rsFuncionario("cod_func")%>"><%= rsFuncionario("nome")%></option> <% rsFuncionario.Movenext Wend %> </select></td> <td width="3%"> </td> <td width="13%"> </td> <td width="29%"> <input type="submit" name="Submit" value="Pesquisar"> </td> </tr> </table> </FORM> <%End If%> <!--#include file="footer.asp"--> </BODY> </HTML>
-
Deem uma olhada nesse link aki utilizai arial negrito italico em tudo http://www.jedicenter.com.br/Jedicenter/na...al/nav_lat2.htm e isso é apenas o export do png sem mais nenhuma informação... mas as fontes estão diferentes...
-
Bom Vinicius, posso até estar falando besteira mas estou apenas compartilhando o que sei a respeito do assunto. o XP tem uma ferramenta que chama Gerenciamento do Computador Painel de controle ==> Ferramentas Administrativas ==> Gerenciamento do Computador lá tem a opção Gerenciamento de disco e por la é possivel particionar o HD. Mas o detalhe é o seguinte: Esse só particiona o HD se o mesmo ainda não tiver particoes 100% o que é o seu caso! você tem 40gb no drive C certo? Para particionar é preciso reinstalar o XP e no momento de definir a partiçao você deve informar o tamanho do Drive C e do D os demais assumem E e F sozinhos. Essa é a forma correta de se fazer (ao meu ver) Existem programas que particionam o HD (partition Magic e outros) mas nunca utilizei para ver como funcionam, creio que façam um particionamento apenas logico e não fisico. Espero ter ajudado
-
Acredito que existam outras formas de fazer isso, mas eu faço dessa forma: Siga o caminho: Painel de Controle ==> Opções de Pasta ==> Modo de exibição Lá desmarque o box = Ativar compartilhamento simples de arquivo a partir dai clique nas pastas e vai aparecer mais opções sobre elas uma delas é a segurança agora você pode o atributo somente leitura já pode ser desabilitado sem problemas... Aki tem funcionado... espero ter ajudado T+
-
Deixa ver se entendi, você quer que o excel calcule o custo total da quantidade e desse valor tirar 40%? Se for faz assim: (custo*quantidade)*40% exemplo: a1 = 10,50 - custo b1 = 100 - quant c1 = (a1*b1)*40% = 420 420 = 40% de 1050 espero ter ajudado
-
Sempre faço menus pop-up e não tinha me atentado a esse detalhe, as fontes nunca ficam iguais, percebi isso quando coloquei um arial negrito na area de slice e depois no menu em HTML arial negrito tb, fica muito diferente. alguém sabe o que pode estar acontecendo? valeu!
-
Eae Galera, desculpem ficar tanto tempo sumido, estou quebrando a cabeça agora para parir um sistema de gestão de rh... ô trem custoso!! Agora queria agradecer a dica do GROUP BY só que tem uma coisa ela ajudou de um lado mas me criou outro probleminha a exibição dos dados, no codigo original tinha montado uma tela em duas colunas para fazer com todos os dados aparecessem mais enxutos p/usuarios, usando GROUP By so consegui exibir os dados em uma coluna, o relatorio ficou enorme... agradeço a todos que colaboram, muito obrigado pelas dicas...