Aldan Nunes

Galera to precisando de um script que faça aquela mesma função de exibição das notícias em destaque da uol, com aquele efeito alpha se alguém souber onde posso encontrar ou como fazer me ajuda, por favor. Desde já agradeço ae. :rolleyes:

Insert into dados (nome,email,ip,data,anexo)values ('aldan', 'aldanptu@gmial.com', '201.58.80.247', '21/7/2009 16:11:12', '?? gerou isso.

apoós ter rodado o código acima deu a seguinte msg Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''?????Aa??'. /faculdade/upload_form2.asp, line 57 linha 57 sql = "Insert into dados (nome,email,ip,data,anexo)" sql = sql & "values " sql = sql & "('"& nome &"', '"& email &"', '"& ip &"', '"& data &"', '"& anexo &"')" db.Execute(sql) (linha 57)

a linha 49 é essa aqui conexao.Execute(sql)

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''????'. /FACULDADE/upload_form2.asp, line 49

è não deu certo mesmo bareta, não era isso

Mais é o seguinte esse set rs = conexao.execute(sql) é o nome da conexão correto então da na mesma mudei continuou da mesma forma.

Bareta é o seguinte eu até conseguir um sisteminha q na pasta ele grava o arquivo mais no BD não está dando a seguinte msg Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument upload_form2.asp, line 37 arquivo upload_form2.asp <!-- #include file = "upload_funcoes.asp" --> <% ' 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("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_anexo = UploadRequest.Item("anexo").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_anexo = UploadRequest.Item("anexo").Item("FileName") ' Nome dos arquivos enviados nome_anexo = Right(caminho_anexo,Len(caminho_anexo)-InstrRev(caminho_anexo,"\")) ' Conteudo binario dos arquivos enviados anexo = UploadRequest.Item("anexo").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("curriculos/") nome_anexo = "/"&nome_anexo ' pasta + nome dos arquivos canexo = "curriculos" + nome_anexo ' Fazendo o Upload do arquivo selecionado if anexo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_anexo) For i = 1 to LenB(anexo) MyFile.Write chr(AscB(MidB(anexo,i,1))) Next MyFile.Close end if data = date() hora = time() datahora = now() ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("curriculos.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados sql = "Insert into curriculos (data, hora, datahora, nome, email, anexo) values ('"& data &"', '"& hora &"', '"& datahora &"', '"& nome &"', '"& email &"', '"& anexo &"')" set rs = url_conexao.execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.redirect "default.asp" %>

Gostaria de um sem componentes tem como não tem?

Galera alguém me ajuda to precisando criar um sisteminha para fazer upload de arquivos doc para uma pasta no meu servidor sem necessidade de Banco de Dados em asp. Se alguém puder me ajudar.. desde já agradeço.

Vlw ai Romerito através da sua idéia eu conseguir arrumar uma forma parecida.. abraço e obrigado.

Bom galera minha dúvida é o seguinte utilizo uma forma onde busco no banco de dados a imagem e o texto, onde estão em campos semparados. Gostaria que o texto acompanhasse o formato da imagem tipo esse site aqui http://www.acicb-mg.com.br/ onde tem a imagem do lado e o texto no seu formato, já tentei fazer em asp e não conseguir será que alguém pode estar me auxiliando ? desde já agradeço a atenção de vocês.

Bom galera aqui está o código que o InfoCidreira ajudou a criar para resolver meu caso. if foto1 = "imagens/noimage.gif" then %> <td width="22%"><div align="center"></div></td> <% else %> <td width="27%" valign="top"> <img src="<%=img%><%=foto1%>" onClick="window.open([u]'bloqueio.asp[/u]?img=<%=img%><%=foto1%>','popup','width=660,height=500')" alt="Clique na foto" width="339" height="270" border="0" align="center" /><br /> </td> <% end if %> Aqui está o código onde após a pessoa clicar na foto ela será ampliada e logo ela chama uma página com o nome bloqueio.asp onde essa página de bloquei está um script para impedir que a pessoa clique com o botão direto e salva a imagem. Lógico que tem várias formas de se bular isso mais está ai , eu precisava sinceramente só disso para resolver meu caso, façam um bom aproveito. Aqui em baixo está todo conteúdo da minha página bloqueio.asp. falou galera <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> function click() { if (event.button==2||event.button==3) { oncontextmenu='return false'; } } document.onmousedown=click document.oncontextmenu = new Function("return false;") var tagsAbertas =["input", "textarea", "select", "div"]; // CAMPOS QUE não SERAM BLOQUEADOS tagsAbertas = tagsAbertas.join("|"); function fechaCamposFF(e){ var elemento = (e.target)?e.target:e.srcElement; if (tagsAbertas.indexOf(elemento.tagName.toLowerCase())==-1) return false; } function abreCamposFF(){ return true } function fechaCamposIE(){ var elemento = event.srcElement; if(tagsAbertas.indexOf(elemento.tagName.toLowerCase()) == -1) document.onselectstart = new Function ("return false"); } function abreCamposIE(){ var elemento = event.srcElement; if(tagsAbertas.indexOf(elemento.tagName.toLowerCase()) == -1){ document.onselectstart = new Function ("return false"); }else{ document.onselectstart = new Function ("return true"); } } if (typeof document.onselectstart != "undefined"){ document.onmousedown = fechaCamposIE; document.onmouseup = abreCamposIE; document.onselectstart = new Function ("return false"); }else{ document.onmousedown = fechaCamposFF; document.onmouseup = abreCamposFF; } </script> <style type="text/css"> <!-- .style2 {font-size: 10px} .style3 {color: #CCCCCC} --> </style> </head> <body bgcolor="#000000"> &lt;script language=JavaScript1.2> //Script para impedir a seleção do texto function disableselect(e){ return false } function reEnable(){ return true } //if IE4+ document.onselectstart=new Function ("return false") //if NS6 if (window.sidebar){ document.onmousedown=disableselect document.onclick=reEnable } </SCRIPT> Pronto parece ser simples né rsrs. abraço galera

Galera gostaria de agradecer a vocês que de alguma forma tentaram ajudar, graças a Deus conseguir arrumar uma forma pra resolver o problema graças a ajuda do membro "InfoCidreira", criamos uma função que deu certinho. vlw

Bom galera, procurei muito na net e nada de encontrar uma solução a respeito desse tópico que estou postando, estou com o seguinte problema, criei um site onde as fotos postas nesse site são de um empresa que faz fotografias para formaturas, bloquiei o botão direito do mouse para essas imagens não serem copiadas, só q tenho uma função em asp onde a pessoa clica sobre a foto e ela aumenta para uma tamanho de 640 x 480 e não sei como bloquear que não copie essas fotos apos sua ampliação será que podem me ajudar nessa questão?? agradeço a atenção. vlw

Galera boa noite a todos, seguinte to com um probleminha no meu site eu criei uma estrutura onde aparece uma imagem menor dai quando a pessoa clica sobre essa imagem abre uma janela com a imagem um pouco maior, até ai tdo bem , dai o que acontece eu tenho q dificultar a cópia dessas imagens do site e logo coloquei um script na página de conteúdo onde tudo q estiver no corpo do site não tem como copiar " " (entre aspas) mais quando abre essa janela a imagem já da a opção de ser copiada meu código é esse > <img src="<%=img%><%=foto2%>" onClick="janPratel=window.open('<%=img%><%=foto2%>', 'Fotos', 'width=660, height=500, scrollbar=NO, resizable=NO')" alt="Clique na foto" width="339" height="270" border="0" align="center" /> gostaria q vocês me descem uma forcinha ai pra ajeitar isso. Vlw ae e até mais.