Ir para conteúdo
Fórum Script Brasil

Raposo

Membros
  • Total de itens

    136
  • Registro em

  • Última visita

Tudo que Raposo postou

  1. Prezados(as), Possuo alguns relatórios em Crystal Reports e gostaria de fazer os mesmos virarem arquivos executáveis. Como posso proceder? Ps - Não posso instalar nenhum tipo de programa na máquina do usuário. Desde já agradeço
  2. Prezados(as) Necessito saber qual o evento que executa uma ação de repetição na TimeLine. Desde já agradeço!
  3. Raposo

    Montar Provedor

    Então quero montar um dentro da empresa, ainda não possuo provedor. Necessito saber o que eu preciso para este feito, como licenças, hardware, link, etc. Ou seja ter a ideia geral, pois não possuo nada, estou partindo do zero. Eu quero que a empresa seja o proprio provedor. Desde já agradeço!
  4. Raposo

    Montar Provedor

    Prezados, Quero tirar o site do provedor pago e trazer para dentro da minha empresa. O que eu necessito em materia de Hardware, Software, Link, etc? Desde já agradeço a ajuda.
  5. Raposo

    Troca De Servidor

    Marcos Mandei no seu e-mail a url. Porém cara não chega nada nenhuma informação. Porém o arquivo da a resposta como e-mail enviado, sem mensagem nenhuma. Abc
  6. Raposo

    Troca De Servidor

    Marcos, Obrigado era um ponto que tinha a mais: Mailer..BodyFormat = 0 Mailer..MailFormat = 0 Eu tirei o ponto e funcionou, porém o e-mail contendo os dados do form não chega na minha caixa postal. você tem e-mail para que eu possa enviar a URL? Obrigado
  7. Raposo

    Troca De Servidor

    Marcos, Coloquei o código elaborado por você, porém agora o mesmo nem resposta de envio ele dá. Quando envio o formulário o mesmo me atribui a mensagem de HTTP 500 - Erro interno. + uma vez obrigado pela ajuda
  8. Raposo

    Troca De Servidor

    Prezado Marcos, bom dia Muito obrigado pela ajuda. Segue o código: <% VarDataAtual = day(now)&"/"&month(now)&"/"&year(now) DataAtual = cdate(varDataAtual) DataLimite = dateadd("d",45,DataAtual) 'scampo =split(Request.Form("emails"),";") 'DataLimte_2= day(now)&"/"&month(now)&"/"&year(now) 'DataLimite = DateAdd("d",45,DataAtual) 'Response.Write FormatDateTime(DataAtual, "mm/dd/yyyy") 'Response.End 'Response.Write VarDataAtual & "|" & DataLimite 'Response.End 'pega data 1 periodo 'De varDia1 = request.form("dia1") varMes1 = request.form("mes1") varAno1 = request.form("ano1") varData1 = varDia1&"/"&varMes1&"/"&varAno1 Data1 = cdate(varData1) 'Até varDia2 = request.form("dia2") varMes2 = request.form("mes2") varAno2 = request.form("ano2") varData2 = varDia2&"/"&varMes2&"/"&varAno2 Data2 = cdate(varData2) if (cdate(Data1) > cdate(DataLimite)) then Response.Redirect("data_atual.asp?erro=1") end if 'Valida data 1 periodo 'if Data1 > DataLimite then 'response.redirect "data.asp?erro=1" 'end if if data1 < DataAtual then response.redirect ("data_atual.asp?erro=11") end if if Data1 > Data2 then response.redirect ("data_atual.asp?erro=2") end if varNome = request.form("nome") if varNome = "" then response.redirect("data_atual.asp?erro=3") end if varFoneres = Request.Form("foneres") if varFoneres = "" then Response.Redirect("data_atual.asp?erro=17") end if varFoneCel= Request.Form("fonecel") varFoneCom= Request.Form("fonecom") varEmails = request.form("emails") if varEmails = "" then Response.Redirect("data_atual.asp?erro=4") end if varBody = " Reserva de 1a.Op- Período de Estada: "&varData1& " até "&VarData2& vbCrLf varBody = varBody & "Nome: "&varNome& vbCrLf varBody = varBody & "FoneRes: "&varFoneres& " Fone Cel:" &varFoneCel& " Fone Comercial:" &varFoneCom& vbCrLf varBody = varBody & " Emails: " &varEmails& vbCrLf Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "c@hotmail.com" Mailer.To = "varEmails" Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Contato" Mailer.Body = "Corpo da Mensagem" Mailer.Send Set Mailer = Nothing %>
  9. Raposo

    Troca De Servidor

    Marcos, Introduzi o código no site, e quando eu preencho o form e clico em enviar o mesmo envia sem dar erro porém o dados do form não chegam. Me ajude nessa! Desde já agradeço.
  10. Raposo

    Troca De Servidor

    Marcos, Obrigado pela resposta. Porém eu não necessito ter um servidor de smtp para retorno no Cdonts ? Mais uma vez te agradeço! Abraço
  11. Raposo

    Troca De Servidor

    Marcos, obrigado pela resposta Porém em qual parte do meu código que eu entro com o cdonts ? Desde já agradeço a ajuda.
  12. Raposo

    Troca De Servidor

    Acredito que eles não tenham suporte ao Jmail, como eu posso adptar este código para CDONTS ou outro semelhante?? Pois este form é importantissimo no site, não posso perder a linha. Desde já agradeço
  13. Raposo

    Troca De Servidor

    Prezados(as), Estou realizando a troca de Provedor de Hospedagem do Terra para Locaweb, porém o meus form´s pararam de funcionar. O que devo alterar para que o mesmo volte a funcionar ??? Segue o código de funciona no Provedor Terra: <% varNome = request.form("nome") if varNome = "" then response.redirect("data_atual.asp?erro=3") end if varFoneres = Request.Form("foneres") if varFoneres = "" then Response.Redirect("data_atual.asp?erro=17") end if varFoneCel= Request.Form("fonecel") varFoneCom= Request.Form("fonecom") varBody = varBody & "Nome: "&varNome& vbCrLf varBody = varBody & "Endereco: "&varEnder& vbCrLf varBody = varBody & "FoneRes: "&varFoneres& " Fone Cel:" &varFoneCel& " Fone Comercial:" &varFoneCom& vbCrLf set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = true msg.From = varEmails msg.FromName = varNome 'msg.AddRecipient "meue-mail@meue-mail.com.br", "....." msg.Subject = "Contato" msg.Body = varBody if not msg.Send("mail.terraempresas.com.br" ) then ' Response.write "<pre>" & msg.log & "</pre>" response.write "Erro de envio" Response.End end if response.write " " %> Porém quando coloco o mesmo código na locaweb o mesmo não funciona<% varNome = request.form("nome") if varNome = "" then response.redirect("data_atual.asp?erro=3") end if varFoneres = Request.Form("foneres") if varFoneres = "" then Response.Redirect("data_atual.asp?erro=17") end if varFoneCel= Request.Form("fonecel") varFoneCom= Request.Form("fonecom") varBody = varBody & "Nome: "&varNome& vbCrLf varBody = varBody & "Endereco: "&varEnder& vbCrLf varBody = varBody & "FoneRes: "&varFoneres& " Fone Cel:" &varFoneCel& " Fone Comercial:" &varFoneCom& vbCrLf set msg = Server.CreateOBject( "JMail.Message" ) msg.Logging = true msg.silent = true msg.From = varEmails msg.FromName = varNome 'msg.AddRecipient "meue-mail@meue-mail.com.br", "....." msg.Subject = "Contato" msg.Body = varBody if not msg.Send("smtp2.locaweb.com.br" ) then ' Response.write "<pre>" & msg.log & "</pre>" response.write "Erro de envio" Response.End end if response.write " " %>
  14. Raposo

    Sistema Em Asp X Access

    Andreia Obrigado pela resposta. Porém ainda não possuo o form pronto não e como comentei não estou conseguindo evoluir! Pode me ajudar ??? Desde já agradeço! Raposo
  15. Prezados(as) Necessito realizar a composição de um pequeno sistema de pesquisa para colocar no meu site em ASP com Access, porém como estou começando na linguagem estou com diversas dúvidas de como fazer. O sistema que necessito é o segunte: Campos: Nome / Cidade / Estado Quero ter uma página para cadastro e uma página para pesquisa a qual conforme eu for selecionando o mesmo vai me exibindo as respostas, do tipo assim : Seleciono o Estado de SP ele me traz todas as cidades, e assim por diante. Alguém pode me ajudar, ou me indicar um tutorial para que eu possa aprender ? Obrigado
  16. Prezados, Estou com uma grande necessidade de colocar no código do meu site, algo que impede o usuário de copiar texto, imagens, etc, e ainda suma com os botões do win, quando se colocar o mouse em cima da imagem. Como posso fazer isso ? Estou com o código que não deixa o usuário copiar o código, porém necessito das outras funcionalidades que ele trave total. Alguém sabe como posso fazer isso ? Desde de já agradeço
  17. Raposo

    Form Local

    Um aspmail adianta ? Desde Já agradeço !
  18. Prezados Colegas Estou constituindo uma intranet em minha empresa e gostaria de saber como posso fazer para enviar um form local, ou seja o form action dele não estara em ambiente web. Alguém possui alguma ideia ? Desde já agradeço !
  19. Raposo

    Gif Giratório

    Tenho um logo em Gif e gostaría de fazer ele girar, como no exemplo: http://paginas.terra.com.br/informatica/te...cnolar_gif.html Como posso fazer ? Desde já agradeço
  20. Colegas, Disponibilizei o logo da minha empresa na barra de endereço do IE, porém o mesmo só é visualizado no IE 7. Como resolver este problema ? Segue o código que estou utilizando: <link rel="shortcut icon" href="http://www.meusite.com.br/favicon.ico"> Desde já agradeço!
  21. Possuo um servidor NT 4 e gostaria de configurar o controlador de domínio para que quando os usuários se logarem na rede o mesmo traga o padrão do servidor, tipo : papel de parede, desabilitar propriedades, etc. Como posso fazer isso ?
  22. Raposo

    Simulador De Peças

    Prezados Obrigado pela resposta, porém andei dando uma pesquisa e não estou conseguindo elaborar o código (até por este motivo demorei a responder). Algum de vocês possui ou sabe onde eu posso conseguir o código ? Esse tah embaçado mesmo ! Desde já agradeço
  23. Raposo

    Simulador De Peças

    Estou montando um site, o qual eu gostaria de possuir um simulador para o usuário ir selecionando as peças e no final o mesmo dar o valor de todas as peças somadas. Ex : http://www.sellcom.com.br/monte/ Necessito de algo neste molde. Alguém tem alguma ideia ? Desde já agradeço
  24. Primeiramente, obrigado pela resposta Porém é exatamente isso que eu necessito saber como eu posso colocar o famoso comando Ctrl+P, sendo chamado por um botão.... Desta forma resolve meu problema... Obrigado
  25. Tenho uma apresentação em ppt, e queria colocar um botão nas páginas para quando a mesma estiver sendo executada o usuário possa clicar e imprimir o Slide que ele está Como posso fazer isso ?? Tentei gravar uma macro mais não deu certo !!! Desde já agradeço
×
×
  • Criar Novo...