Ir para conteúdo
Fórum Script Brasil

smez

Membros
  • Total de itens

    328
  • Registro em

  • Última visita

Tudo que smez postou

  1. smez

    multi-idioma

    deu certo Bareta, no banco salvou em japones mas quando vou trazer imprimido na pagina ele não traz em japones ele traz com as "????", mas no banco esta em japones
  2. smez

    multi-idioma

    certo, mas como que vou chamar cada idioma referente o que o usuario escolher, outra coisa o idioma japonês não salva no SQL SERVER ele fico com "?????" o idioma japones no banco. porque o site vai ser em portiguês | japonês | inglês
  3. smez

    multi-idioma

    boa tarde pessoal, como que eu faço um site de multi-idioma estou perdido, obrigado
  4. smez

    Acessando Um E-mail Pop3

    so não aparece nada, não da nenhum erro, ele mostra a quantidade de email que tenho, mas não lista
  5. smez

    Acessando Um E-mail Pop3

    Olá Bareta, o script so mostra a quantidade de e-mail que tenho, mas não lista
  6. smez

    Erro -2147352567

    Q tipo de erro e esse Chega assim no meu email Erro Detalhe do errosPagina: /console/listarImoveis.asp Número: -2147352567 Descrição: Fonte:
  7. smez

    ASP alterando senha do ftp

    as senhas fica armazenadas no iis do windows server 2003 r2
  8. smez

    listando email em asp

    Ola pessoal estou com esse script abaixo que ele mostra os meus e-mail, mas estou com um problema, ele consegue mostrar a quantidade de emails q eu tenho, mas não traz a lista dos email onde será q estou errando <% ' Cria uma instância de controle Set AspPop3 = Server.CreateObject("POP3svg.Mailer") ' Endereço do Servidor de SMTP AspPop3.RemoteHost = "pop3.meudominio.com.br" ' Endereço do E-mail AspPop3.UserName = "meu@email.com.br" ' Senha do E-mail AspPop3.Password = "minha senha" ' Abre a Conexão com o Servidor If AspPop3.OpenPop3 Then ' Total de Mensagens int_Mensagens = AspPop3.MessageCount ' Mostra a quantidade de mensagens no servidor Response.Write "<b>Existem "& int_Mensagens &" mensagens de e-mail no servidor.</b>" & VbCrLf ' Lista todas as Mensagens na tela. Response.Write "<table border=""1"">" & VbCrLf Response.Write " <tr>" & VbCrLf Response.Write " <th>Nº. Mensagem</th>" & VbCrLf Response.Write " <th>Assunto</th>" & VbCrLf Response.Write " <th>Enviada por</th>" & VbCrLf Response.Write " </tr>" & VbCrLf For i = 1 To Cint(int_Mensagens) If AspPop3.Retrieve(i) Then Response.Write " <tr>" & VbCrLf Response.Write " <td>"& i &"</td>" & VbCrLf Response.Write " <td>"& AspPop3.Subject &"</td>" & VbCrLf Response.Write " <td>"& AspPop3.FromName &" ("& AspPop3.FromAddress &")</td>" & VbCrLf Response.Write " </tr>" & VbCrLf End If Next Response.Write "</table>" Else ' Caso não tenha conseguido se conectar, exibe a mensagem Response.Write "Não foi possível a conexão ao servidor. Verifique os dados de acesso!" End If ' Fecha a Conexão AspPop3.ClosePop3 ' Tira o objeto da memória Set AspPop3 = Nothing %>
  9. Olá pessoal, gostaria de saber como que faz em asp um script para mudar senha do ftp eu criei um servidor de hospedagem de sites, e queria que no meu painel de controle o cliente alterasse a senha do ftp
  10. smez

    formatando valor

    já tentou fazer assim? Valor = replace(Request.Form("txtValor"),".","") Valor = replace(Valor,",",".")
  11. smez

    Grade de Programação

    entendi, mas como que eu faço para mostras as hora lá em cima, a hora atual e a cada 30min. mostrando somente somente 4 colunas de horas e tipo assim, se o programa tem 1 hora teria q mesclar a celular
  12. Então Juan, ñão posso deixar o combo vázio com valor, por causa da programação em asp se eu deixar com algum valor ele vai buscar o valor q ta.
  13. Bom pessoal tenho 4 combos e 2 text no meu form como que eu faço, se todos os 6 tiverem vázio ele da um alerta "campo vázio" se algum deles 6 tiver alguma coisa ele não da o alerta.
  14. smez

    Grade de Programação

    Estou querendo fazer uma grade de programação igual a essa http://www.tvalphaville.com.br/index.php?s...iadeprogramacao como que eu faço
  15. smez

    UPLOAD de Arquivo com mais de 5mb

    <% Dim objUpload Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 614400 objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False objUpload.Save "/ftp" Set objUpload = Nothing Response.Write "Upload efetuado com sucesso" %> estou fazendo assim agora, esta dando o seguinte erro Dundas.Upload.2 error '80004005' Uploading file size limit exceeded. /ftp/upload.asp, line 9
  16. Bom Pessoal fiz um sistema de upload de arquivo sem componente, esta enviando normal, mas quando tento subir uma arquivo grande mais de 5mb , não sobe e não aparece o tipo de erro da a seguinte mensagem O Internet Explorer não pode exibir a página da Web se o arquivo for menor de 5mb sobe normal o que pode ser segue abaixo o script Session.TimeOut = 99999 ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- Nome = UploadRequest.Item("txtNome").Item("Value") contentType = UploadRequest.Item("txtFoto").Item("ContentType") filepathname = UploadRequest.Item("txtFoto").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace(filename,".","_"& rndit &".") value = UploadRequest.Item("txtFoto").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 'FAZ O UPLOAD DAS IMAGENS EM UMA PASTA (/CONTEUDO). pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 'Set MyFile = ScriptObject.CreateTextFile(Server.mapPath("../foto/"&filename&"")) Set MyFile = ScriptObject.CreateTextFile("D:/"&filename&"") For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close 'renomeia ao arquivo Function rndit() Dim RndTemp Randomize RndTemp = Rnd * 100 RndTemp= Int(RndTemp) rndit = RndTemp End Function Response.Redirect "arquivo.asp"
  17. Tenho esse script, como que eu faço para tirar a virgula depois do ultimo registro listado.
  18. Bom DIa Pessoal, como q eu faço Quando eu clicar no link de um popup, ele fecha o popup e a pagina principal do meu frame carrega o link que o usuario clicou no popup estou fazendo assim <frameset rows="0,*" frameborder="no" border="0" framespacing="0"> <frame src="UntitledFrame-3" name="topFrame" scrolling="No" noresize="noresize" id="topFrame" /> <frame src="novo/default.asp" name="mainFrame" id="mainFrame" /> </frameset> na pagina novo/default.asp esta assim <script language="JavaScript"> <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> <body onLoad="MM_openBrWindow('popup.asp','Desconto','toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=320,height=195,top=100,left=100')"> e na pagina popup.asp esta assim <% Set produto = server.CreateObject("ADODB.Recordset") SQL = "execute produto_popup_rnd" Set produto = abredb.execute(sql) %> <a href="#" onClick="opener.document.getElementById('mainFrame').src='produtos.asp?CdProduto=<%=produto("CdProduto")%>'; window.close();"><img src="produto/<%=produto("Imagem")%>" width="125" height="159" border="0"></a> mas não esta fazendo nada, não sei se estou fazendo certo
  19. smez

    Carregar combo atraves de outro

    e exatamente isso, carrega um resultado de um combo dependendo o resultado do outro, eu estou usando o onblur, mas ele da post na pagina, eu não queria que desse post na página, apenas carregar o combo.
  20. smez

    ASP + ORACLE

    <% MainDSN = "DEV-W04.wd5.local" '-------------------------------------------[ DSN do Banco de Dados ] MainUSER = "sergio" ' -------------------------------------------------[ LOGIN do Banco de Dados ] MainPASS = "123" '---------------------------------------------------[ SENHA do Banco de Dados ] StringdeConexao = "Provider=MSDAORA.1;Password="&MainPASS&";User ID="&MainUSER&";Data Source="&MainHost&";" Server.ScriptTimeOut = 999 application("ultimaatualizacao") = "Sexta, 04 de Janeiro de 2008" set abredb = Server.CreateObject("ADODB.Connection") abredb.Open(StringdeConexao) %> Esta dando esse erro abaixo. oque pode ser?
  21. smez

    Carregar combo atraves de outro

    como que eu uso ajax no asp?
  22. como que eu faço para carregar um combo atravez do outro sem dar post na pagina??
  23. valeu webdeveloper era erro de provider mesmo, foi mudado de servidor e o cara não tinha instalado o provider q eu tava usando, valeu.
×
×
  • Criar Novo...