Ulissesx
-
Total de itens
48 -
Registro em
-
Última visita
Posts postados por Ulissesx
-
-
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!
-
-
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+
-
Gente boa tarde,não estou conseguindo fazer com que as formulas do excel funcionem como por exemplo:tenho custo*quantidade*40% não consigo fazer funcionar alguém pode me dar esse help....agardeço desde já wjr!
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...
Autonumeração Na Unha Tem Como?
em ASP
Postado
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!