jf_rodrigues
-
Total de itens
142 -
Registro em
-
Última visita
Tudo que jf_rodrigues postou
-
E ae galerinha!!! beleza?! Seguinte, baixei o Web Wiz Rich Text Editor, que é muito bom para editar textos on-line, só que eu queria que ele salvasse o que eu digitar e formatar em banco de dados, ou seja, o código final HTML. Alguém sabe como fazer isso no Web Wiz Rich Text Editor, ou sabe se existe um q já faça isso? Valeu mesmo galera!! [ ]'s
-
E ae galera, beleza?! Concordo plenamente com o bolomaster e com o diraol. Como o bolomaster falou, creio q esta seja uma comunidade criada com o fim da busca mutua da solução de dúvidas e consequentemente o cresimento de todos, assim como o bolomaster, eu e várias outras pessoas buscam neste fórum aumentar ou até mesmo iniciar o conhecimento em ASP, não fazer nome de forma ilícita e covarde. E, como o diraol, também apoio a candidatura daqueles q já tenham um certo tempo d casa, porque todo crescimento deve ser por méritos, e tb q votem apenas aqueles q realmente fazem desta comunidade uma verdadeira família, onde uns ajudam os outros. É o q penso.... [ ] 's a todos....
-
Valeu brother, pela dica.... Fiz um teste com o q nosso amigo André Gusmão passou e deu certo, coloquei assim: <script> window.open('index.asp','_parent'); </script> inclusive eu já tinha até usado esse script, só q fiquei invocado com o tal do response.redirect q nem lembrei dele. Mas valeu d+ a ajuda.... [ ]'s a todos.....
-
cara, esse código seu retornou o seguinte erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0414) Não é possível usar parênteses ao chamar um Sub /fasam/direita.asp, line 24, column 79 Response.Redirect("index.asp","target='_parent'")
-
Olá pessoal, estou com a mesma dúvida q nosso amigo Hug, só q eu fiz o q o Ruinas falou mas não deu certo... alguém sabe se é isso mesmo? Valeu.. Abraços
-
Cara, acho q tenho a responsta para a sua dúvida e tenho certeza q de várias outras pessoas... Mas enquanto eu dou uma olhadinha aqui pra te passar... registre-se no fórum aí!!! Daqui a pouco eu posto!! [ ]'s
-
cara...valeu dmais, funcionou. Vai aí o código inteiro: <%response.Buffer = true 'Dim Comando Comando = Request("comando") %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <p> </p> <form name="form1" method="post" action="up.asp?comando=inserir" enctype="multipart/form-data"> <p> <input name="foto1" type="file" id="foto1"> </p> <p> <input name="foto2" type="file" id="foto2"> </p> <p> </p> <p> <input type="submit" name="Submit" value="Enviar"> </p> </form> <p> <% if comando = "inserir" then On Error Resume Next Dim objUpload Set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False objUpload.Save "..\upload" If Err.Number <> 0 Then Response.Redirect "Error.asp" Else For Each objUploadedFile in objUpload.Files path=objUploadedFile.Path foto = "upload\"& objUpload.GetFileName(path) Response.Write "O campo "" & objUploadedFile.TagName & "" input file recebeu o arquivo abaixo.<br>" Response.Write "O arquivo "" & foto & "" foi salvo corretamente.<br>" If InStr(1,objUploadedFile.ContentType,"octet-stream") Then objUploadedFile.Delete End If Next End If Set objUpload = Nothing End if %> </p> </body> </html> Se alguém tiver a mesma dúvida que eu esse código resolve, para jogar no banco é só fazer a instruçao sql UPDATE dentro do <FOR>... recebendo a variável FOTO. [ ]'s a todos....
-
Realmente. Eu estava utilizando 6 <input type="file"...> para enviar os arquivos para o servidor. O problema nem é com fazer o upload para o servidor, isso está funcionando dboa. O problema é em pegar o nome dos arquivos e gravar no banco de dados, pra dpois eu poder abrir as imagens em outro lugar. O Código abaixo faz isso, porém ele pega o nome só de um campo <input type="file"...> e grava o mesmo nome em todas as tabelas do banco. foto1 = "upload\conteudo\"& objUpload.GetFileName(path) Aqui ele grava no banco o caminho do diretório que está entre "". O objUpload.GetFileName(path) retorna apenas o nome do arquivo do último objeto. Se não entendeu posta aí q explico melhor. Se puder me ajudar...! [ ]'s
-
E ae galerinha, beleza?! Seguinte, estou tentando fazer uma rotina que faça vários uploads de uma vez, na verdade o problema nem é o upload mas pegar os nomes dos arquivos e jogar no banco. Estou usando o seguinte código: On Error Resume Next Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>" Set objUpload = server.CreateObject("Dundas.Upload.2") objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False objUpload.Save "..\upload\conteudo" If Err <> 0 Then Response.Write Err.Description & " " & Err.Number & "<br>" Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<a href=javascript:history.back(-1)>Voltar</a></b></font>" Else Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>" For Each objUploadedFile in objUpload.Files path=objUploadedFile.Path titulo = objUpload.form("titulo") busca = objUpload.form("busca") previa = objUpload.form("previa") texto = objUpload.form("texto") link = objUpload.form("linka") foto1 = "upload\conteudo\"& objUpload.GetFileName(path) Next End If Response.Write "</BODY></HTML>" Este código faz o upload e pega os dados dos campos para jogar no banco, só que não estou sabendo pegar varios arquivos, pensei em usar assim: foto2 = "upload\conteudo\"& objUpload.GetFileName(path) foto3 = "upload\conteudo\"& objUpload.GetFileName(path) foto4 = "upload\conteudo\"& objUpload.GetFileName(path) foto5 = "upload\conteudo\"& objUpload.GetFileName(path) foto6 = "upload\conteudo\"& objUpload.GetFileName(path) mas não deu certo. alguém sabe me ajudar?!?! Valeu galera. [ ]'s
-
Vai aí o código da form q tem a ação: <form action="" method="GET" name="fotos" id="fotos"> <table width="100%" border="0" cellspacing="4" cellpadding="0"> <tr> <td class="textoazul12bd"><div align="center"> Escolha o evento <select name="galeria" class="campos" id="galeria" onChange="top[2].location='?id_evento=' + document.fotos.galeria.options[this.form.galeria.selectedIndex].value"> <% ft_SQL = "Select * FROM evento" set RS = Conn.execute(ft_SQL)%> <option value='' selected>- Escolha o evento pelo título</option> <%While Not RS.EOF%> <option value="<%=RS("id_evento")%>"><%=RS("evento")%></option> <% RS.MoveNext Wend%> </select> </div></td> </tr> </table> </form> Flow!
-
Pipino Com O Listbox Em Iframe
pergunta respondeu ao jf_rodrigues de jf_rodrigues em HTML, XHTML, CSS
Galera, agradeço aqueles q tentaram ajudar!! É só fazer o seguinte: top[1].location = '..... sendo q "1" é o numero de ordem do frame onde a página se abrirá. [ ]'s -
Galera, agradeço aqueles q tentaram ajudar!! É só fazer o seguinte: top[1].location = '..... sendo q "1" é o numero de ordem do frame onde a página se abrirá. [ ]'s
-
Script Meio Complicado
pergunta respondeu ao jf_rodrigues de jf_rodrigues em Ajax, JavaScript, XML, DOM
Nóó galera!!! Valeu d+!! tem uma semana q tou atrás dessa paradinha e ninguém sabia responder, mas vocês me ajudaram d+, valeu mesmo!!!! Nota 10. [ ]'s -
E ae galera, beleza?! É o seguinte: Tenho uma página index.asp q chama tres iframes. Na página do meio tem uma form com um select com a seguinte configuração: <select name="galeria" class="campos" id="galeria" onChange="top.location='?id_evento=' + document.fotos.galeria.options[this.form.galeria.selectedIndex].value"> Esse código abre a mesma página (galeria.asp) com a pesquisa ?id_evento que retorna o ID da opção selecionada. Estou querendo q a pesquisa retorne o resultado na página do meio, dentro do iframe q está na index.asp, porém ela está abrindo sozinha na página inteira. Seria a mesma função do TARGET mas este ítem não aceita esta opção. Ajuda aí galera, estou rancando os cabelos com essa dúvida!! Valeus!! [ ]'s
-
Script Meio Complicado
pergunta respondeu ao jf_rodrigues de jf_rodrigues em Ajax, JavaScript, XML, DOM
Puts!!! Ninguém tem nem idéia de como faz?!?!?! Ajuda aí galera, já estou ficando doido com esse pipino!!! Valeu a todos! [ ]'s -
Ajuda aí galera, como resolvo esse problema! Se é com função javascript e se alguém tem, ou de qualquer outra forma!!! Deve ter uma solução!!! [ ]'s
-
E ae galera, beleza?! É o seguinte: Tenho uma página index.asp q chama tres iframes. Na página do meio tem uma form com um select com a seguinte configuração: <select name="galeria" class="campos" id="galeria" onChange="top.location='?id_evento=' + document.fotos.galeria.options[this.form.galeria.selectedIndex].value"> Esse código abre a mesma página (galeria.asp) com a pesquisa ?id_evento que retorna o ID da opção selecionada. Estou querendo q a pesquisa retorne o resultado na página do meio, dentro do iframe q está na index.asp, porém ela está abrindo sozinha na página inteira. Seria a mesma função do TARGET mas este ítem não aceita esta opção. Ajuda aí galera, estou rancando os cabelos com essa dúvida!! Valeus!! [ ]'s
-
Que tipo de função seria essa? Vou ser um pouco mais claro. Tenho uma página INDEX.ASP q contem tres colunas e que chamam tres páginas através de IFRAME, a página do meio (centro.asp) tem a galeria de fotos com a LISTBOX quando eu dou o comando: <select name="galeria" class="campos" id="galeria" onChange="top.location='?id_evento=' + document.fotos.galeria.options[this.form.galeria.selectedIndex].value"> perceba q ela chama a página centro.asp?id_evento..... e aparece no lugar da página index.asp com os tres iframes, apenas a página centro.asp com o resultado da pesquisa na janela toda Concluindo: eu queria chamar apenas a página centro.asp mas q ela continuasse dentro da index.asp como se eu usasse a função TARGET. Valeu a todos pela ajuda!! [ ]'s
-
Galera, descobri como faz, vou postar aqui pra caso alguém ter a mesma dúvida: <select name="galeria" class="campos" id="galeria" onChange="top.location='?id_evento=' + document.fotos.galeria.options[this.form.galeria.selectedIndex].value"> Quando você escolhe uma opção ela funciona como um link q automaticamente chama a página sem a necessidade de um outro botão. Porém ainda tenho uma pequena dúvida: estou usando IFRAME e quando o LISTBOX chama a página aparece só a página, ou seja, não estou sabendo como usar o TARGET neste caso. Se alguém souber me ajude por favor! Valeu! Abraços
-
Cara, já q você tá tentando qualquer coisa, tenta mudar o código q abre o banco para este: conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("aula.mdb") Talvez pode ser isso, q esse é para access 2000 Abraços!
-
E ae galerinha, beleza?! Seguinte, tenho uma LISTBOX com 5 opções, queria criar um evento que quando uma destas cinco opções fosse escolhida automaticamente executaria uma ação, abriria uma determinada página por exemplo. Pra ser mais exato, executaria uma ação em ASP tipo: materia.asp?comando=inserir&id=<%=RS("id")%> Alguém tem este código ou sabe como funciona?! Valeu e abraço a todos!!
-
Galera valeu pela ajuda!! Resolvi o problema, tirei o Persist e coloquei o Dundas que é Free, se alguém quiser pegaí: Componente Aspload Dundas Se alguém tiver a mesma dúvida que eu tive o código abaixo resolve. Ele faz o upload do arquivo para o servidor e salva o caminho e outros campos no banco de dados! On Error Resume Next Response.Write "<HTML><HEAD><TITLE>Fazendo UpLoad com Dundas UpLoad</TITLE></HEAD><BODY>" Dim objUpload 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = server.CreateObject("Dundas.Upload.2") 'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual. objUpload.UseVirtualDir = True 'Grava o arquivo no servidor com o nome original objUpload.UseUniqueNames = False 'Utilizamos o caminho virtual que determina onde serão salvos os arquivos carregados. objUpload.Save "..\upload" 'Aqui nós verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o último erro, caso nenhum erro tenha ocorrido o objeto conterá o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem será dada ao usuário. If Err <> 0 Then 'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número. Response.Write Err.Description & " " & Err.Number & "<br>" Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<a href=javascript:history.back(-1)>Voltar</a></b></font>" Else 'Se o objeto Err for igual a 0 será apresentado a mensagem de sucesso e os dados estarão salvos no caminho determinado acima 'Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>" For Each objUploadedFile in objUpload.Files path=objUploadedFile.Path titulo = objUpload.form("titulo") previa = objUpload.form("previa") texto = objUpload.form("texto") foto = "..\upload\"& objUpload.GetFileName(path) ativo = objUpload.form("ativo") Next End If Response.Write "</BODY></HTML>" if ativo = "checkbox" then ativo = 1 else ativo = 0 end if Conn.Execute("Insert Into proxevento(titulo,previa,texto,foto_index,ativo) values ('"&titulo&"','"&previa&"','"&texto&"','"&foto&"','"&ativo&"')") 'Limpa a instância criada na memória do servidor. Set objUpload = nothing Abraços a todos!!
-
Cara, valeu! Mas o problema era que o access pacere ter dado algum problema, aí segui a dica de um colega aqui do fórum que me recomendou mudar o arquivo de pasta, e funcionou. Mas obrigado por comentar!!! Abraços!!
-
O componente está instalado sim! Agora não sei se tenho permissão de escrita, onde vejo isso? (Primeira vez q uso este componente!). Na linha 11 está o código: Count = Upload.Save("c:\upload")
-
E ae galera, estou com um probleminha aqui q não estou conseguindo resolver e queria ver se alguém pode me ajudar. Instalei o AspUpload, mas quando vou rodá-lo da o seguinte erro: O código é o seguinte: Ajuda aí galera!! Abraços!