ibreak

Oi pessoal, beleza... É o seguinte, eu tenho esse código que exibe as 10 últimas notícias cadastradas no meu DB. <%Dim objDestTexto2 Set objDestTexto2 = Banco.Execute("SELECT TOP 10 ID, Titulo, ExibicaoDe FROM Noticias ORDER BY ID DESC") While not objDestTexto2.EOF Response.Write "<a href='Noticia.asp?ID="& objDestTexto2("ID") &"' class='lVerdana11Azul'>["& objDestTexto2("ExibicaoDe") &"] "& objDestTexto2("Titulo") &"</a><br>" objDestTexto2.MoveNext : Wend Set objDestTexto2 = Nothing%> Eu gostaria de usar esse código também para exibir as últimas notícias da data anterior a que eu acesso o site, no caso ontém. Como eu tenho que fazer no meu código pra dar certo. Outra coisa,,, antes de aparecer as notícias eu vou escrever numa tabela, Notícias do dia ??? (Como eu coloco um comando para que ele exiba a data de ontém, mesma data que será usada para exibir notícias. Caso não tenha nenhum dado, aparecer sem registros. Podem me ajudar? Muito obrigado. Paulinho

Delphi conheço legal o ASP... NÃO O AVANÇADO... Eu quero na verdade criar as minhas páginas web (asp) com fotos e imagens on-line... tipo eu abro um página no site aonde preencho, título e conteúdo e digo se aquela página vai pro menu do site... e envio ela pro DB. Meu interesse é saber se é mais legal usar fckeditor ou o htmlarea com muita gente usa por aqui. Tipo dá pra enviar fotos, criar tabelas e tudo mais, estou certo... isso claro usando ume ditor on-line.

Pessoal me ajudem a organizar uma lógica... fiz uma busca no site e procurei sobre editor on-line de páginas.... tipo criar as páginas do meu site pela web... Eu vi que muita gente usa um tal de htmlarea, tipo fckeditor... eu acessei o site e achei o WYSIWYG Editor, que ao meu ver também é da htmlarea. Bem minha dúvida é este. Eu creio uma página asp e insiro nela esse editor... a função desse editor será criar as páginas... Depois de criar a página no editor eu devo enviá-la a um DB conteúdo e inserir todas as informações nele, fotos e textos numa mesmo campo da tabela conteúdo, é isso? Se alguém puder me explicar como eu faço o insert no DB com todos os dados do editor eu agradeço. Obrigado.

Andreia eu olhei na busca mas não achei nada, sobre um script ou ajax que fizesse isso... mudasse a imagem com aquele efeito fade... Pra entender o script exibe uma imagem, da fade, vai pra próxima, da fade e assim sucessivamente... mínimo 3 vezes... Alguém já viu ou teria esse script... Obrigado.

Oi Andreia... outro web que estuda comigo usa o outro nick... Vou instalar então o mysql... você disse DOS? Já me assustei... Espero que não seja tão complexo o uso dele via dos... Obrigada...

Alterei minha linha para: objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" e resolveu... Obrigado.

Já resolvi, obrigado.

Delphi estou usando a função Random, mas está dando erro... Microsoft JET Database Engine erro '80040e10' Nenhum valor foi fornecido para um ou mais parâmetros necessários. /noticias/indexnot.asp, line 54 Tenho isso na linha 54: RS2.Open SQL2, Dados, 3, 3 Veja como está o meu código (parte principal) SQL = "SELECT Top 12 noticias.ID, noticias.categoria, noticias.descricao, noticias.data, noticias.hora, noticias.foto, categorias.categorias FROM noticias, categorias WHERE categorias.ID=noticias.categoria ORDER BY noticias.ID DESC" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Dados, 3, 3 Cont = RS.RecordCount Aux = 1 Dim RS_Tema(12), RS_Data(12), RS_Hora(12), RS_Foto(12), RS_Descricao(12), RS_Link(12) While (Aux < Cont) RS_Tema(Aux) = RS("categorias") RS_Data(Aux) = RS("data") RS_Hora(Aux) = RS("hora") RS_Foto(Aux) = "noticias/imagens/" & RS("foto") If Ucase(Cstr(RS_Foto(Aux))) = "noticias/IMAGENS/N" then RS_Foto(Aux) = "noticias/imagens/semfoto.gif" End if RS_Descricao(Aux) = RS("descricao") RS_link(Aux) = "noticias/view.asp?id=" & RS("ID") Aux = Aux + 1 RS.MoveNext Wend SQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY RND(INT(DOW*DESTAQUE.ID)-NOW*DESTAQUE.ID)" 'SQL2 = "SELECT Top 1 destaque.ID, destaque.categoria, destaque.titulo, destaque.descricao, destaque.data, destaque.foto, destaque.descricaofoto, destaque.foto2, destaque.descricaofoto2, categorias.categorias as auxcategorias FROM destaque, categorias WHERE categorias.ID=destaque.categoria ORDER BY destaque.ID DESC" Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open SQL2, Dados, 3, 3 Cont = 2 Aux = 1 Dim RS2_Tema(2), RS2_Data(2), RS2_Titulo(2), RS2_Foto(2), RS2_Descricaofoto(2), RS2_Descricao(2), RS2_Link(2) While (Aux < Cont) RS2_Tema(Aux) = RS2("auxcategorias") RS2_Titulo(Aux) = RS2("titulo") RS2_Data(Aux) = RS2("data") RS2_Foto(Aux) = "noticias/imagens/destaque/" & RS2("foto") If Ucase(Cstr(RS2_Foto(Aux))) = "noticias/IMAGENS/N" then RS2_Foto(Aux) = "noticias/imagens/semfoto.gif" End if RS2_Descricaofoto(Aux) = RS2("descricaofoto") RS2_Descricao(Aux) = RS2("descricao") RS2_link(Aux) = "noticias/view_destaque.asp?id=" & RS2("ID") Aux = Aux + 1 RS2.MoveNext Wend SQL3 = "SELECT Top 4 agenda.ID, agenda.categoria, agenda.descricao, agenda.foto, categorias.categorias as auxcategorias FROM agenda, categorias WHERE categorias.ID=agenda.categoria" Set RS3 = Server.CreateObject("ADODB.Recordset") RS3.Open SQL3, Dados, 3, 3 Cont = 5 Aux = 1 Dim RS3_Tema(5), RS3_Foto(5), RS3_Descricao(5), RS3_Link(5) While (Aux < Cont) RS3_Tema(Aux) = RS3("auxcategorias") RS3_Foto(Aux) = "noticias/imagens/agenda/" & RS3("foto") If Ucase(Cstr(RS3_Foto(Aux))) = "noticias/IMAGENS/AGENDA/N" then RS3_Foto(Aux) = "noticias/imagens/agenda/semfoto.gif" End if RS3_Descricao(Aux) = RS3("descricao") RS3_link(Aux) = "noticias/view_agenda.asp?id=" & RS3("ID") Aux = Aux + 1 RS3.MoveNext Wend SQL4 = "SELECT Top 3 emdestaque.ID, emdestaque.categoria, emdestaque.descricao, emdestaque.foto, categorias.categorias as auxcategorias FROM emdestaque, categorias WHERE categorias.ID=emdestaque.categoria" Set RS4 = Server.CreateObject("ADODB.Recordset") RS4.Open SQL4, Dados, 3, 3 Cont = 4 Aux = 1 Dim RS4_Tema(4), RS4_Foto(4), RS4_Descricao(4), RS4_Link(4) While (Aux < Cont) RS4_Tema(Aux) = RS4("auxcategorias") RS4_Foto(Aux) = "noticias/imagens/emdestaque/" & RS4("foto") If Ucase(Cstr(RS4_Foto(Aux))) = "noticias/IMAGENS/EMDESTAQUE/N" then RS4_Foto(Aux) = "noticias/imagens/emdestaque/semfoto.gif" End if RS4_Descricao(Aux) = RS4("descricao") RS4_link(Aux) = "noticias/view_emdestaque.asp?id=" & RS4("ID") Aux = Aux + 1 RS4.MoveNext Wend 'SQL5 = "select * from noticias WHERE categoria = 26 ORDER BY ID DESC" set CMD=Server.CreateObject("ADODB.COMMAND") CMD.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\banco\noticias.mdb") cmd.CommandText="select * from noticias WHERE categoria = 26 ORDER BY ID DESC" set RS5 = CMD.Execute 'Set RS5 = Server.CreateObject("ADODB.Recordset") 'RS5.Open SQL5, Dados, 3, 3 'Cont = 6 'Aux = 1 'Dim RS5_Categoria(6), RS5_Data(6), RS5_Hora(6), RS5_Titulo(6), RS5_Link(6) 'if not (RS5.Eof or RS5.Bof) then 'RS5_Categoria(Aux) = RS5("categoria") 'RS5_Titulo(Aux) = RS5("titulo") 'RS5_Data(Aux) = RS5("data") 'RS5_Hora(Aux) = RS5("hora") 'RS5_link(Aux) = "noticias/view.asp?id=" & RS5("ID") 'Aux = Aux + 1 'End If set CMD=Server.CreateObject("ADODB.COMMAND") CMD.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\banco\noticias.mdb") cmd.CommandText="select * from noticias WHERE categoria = 27 ORDER BY ID DESC" set RS6 = CMD.Execute %>

Andrei verifiquei detalhadamente mas não consegui resolver o problema não... Contei as aspas e com a linha debaixo está tudo ok... Aonde poderia estar o problema... Obrigado...

Oi pessoal, beleza... estou com o erro abaixo numa página que é responsável por gerar o arquivo rss do meu site. Podem ajudar. Obrigado. Erro de compilação do Microsoft VBScript erro '800a0409' Constante de seqüência não finalizada /rss/generate.asp, line 31 objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" -------------------------------------------------------------^ Na linha 31 eu tenho isso: set objfso = server.createobject("scripting.filesystemobject") set objtstream = objfso.createtextfile(var_file, true) objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">" objtstream.writeline "<channel>" Abaixo código completo da página: <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/data.asp" --> <% Dim rs_news Dim rs_news_numRows Set rs_news = Server.CreateObject("ADODB.Recordset") rs_news.ActiveConnection = MM_data_STRING rs_news.Source = "SELECT * FROM noticias ORDER BY data DESC" rs_news.CursorType = 0 rs_news.CursorLocation = 2 rs_news.LockType = 1 rs_news.Open() rs_news_numRows = 0 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <% dim var_path, var_file, var_count var_path = server.mappath("rss") var_file = var_path & "\" & "news.xml" var_count = 0 set objfso = server.createobject("scripting.filesystemobject") set objtstream = objfso.createtextfile(var_file, true) objtstream.writeline "<?xml version="&chr(34)&"1.0"&chr(34)&" encoding="&chr(34)&"ISO-8859-1"&chr(34)&"?>" objtstream.writeline "<rss version="&chr(34)&"2.0"&chr(34)&">" objtstream.writeline "<channel>" objtstream.writeline "<title>Notícia Regional</title>" objtstream.writeline "<link>http://www.noticiaregional.com.br</link>" objtstream.writeline "<description>As principais notícias de Rio Claro/SP e região atualizadas diariamente. </description>" objtstream.writeline "<language>pt-br</language>" while (var_count < 10) and (not rs_news.eof) objtstream.writeline "<item>" objtstream.writeline "<title>"&rs_news.fields.item("new_title").value&"</title>" objtstream.writeline "<link>http://www.noticiaregional.com.br/noticias/view.asp?id="&rs_news.fields.item("new_id").value&"</link>" objtstream.writeline "<description>"&rs_news.fields.item("new_resume").value&"</description>" objtstream.writeline "</item>" var_count = var_count + 1 rs_news.movenext() wend objtstream.writeline "</channel>" objtstream.writeline "</rss>" objtstream.close Set objtstream = nothing Set objfso = nothing %> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><a href="rss/news.xml">RSS &gt;&gt; </a></strong><a href="rss/news.xml">rss/news.xml</a></font> </body> </html> <% rs_news.Close() Set rs_news = Nothing %>

Andréia tudo bem. Andréi poderia me dizer que programas devo usar pra criar DB MYSQL localmente? Tem programa que converte de access para mysql? Obrigado.

Pessoal aonde eu arrumo este script... Alguns sites usam um sisteminha aonde aparece a notícia (foto e um testinho embaixo) e dá um fade, muda para a próxima, fade de novo e muda pr aoutra... Geralmente sempre são 3 imagens com texto... As imagens mudam num intervalo de 4 segundos... Tem algo assim em java ou é dhtml??? Podem me ajudar...

Oi Andreia, muito obrigado pela resposta, porque estava difícil receber informações a respeito da montagem deste sistema. Andreia eu não sei usar esta função que você mencionou, mas verifiquei sobre o componente Ad Rotator e conta no meu servidor instalado sim Microsoft Ad Rotator, é o mesmo né? Aonde posso obter informações para montar uma consulta no DB que chama a foto em destaque, juinto duma breve notícia... alternando... 3 última snotícias selecionadas em destaque... Obrigado...

Tudo bem gente. Eu gostaria de criar um sistema como o da MSN, vocês já viram... na UOL também tem um sistema parecido. A notícia em destaque fica mudando. No campo é exibido 3 notícias em destaque, as 3 últimas. A cada 4 segundos muda para a próxima e assim sucessivamente. Alguém tem um código parecido que eu possa usar como base para o meu sistema de news? Se alguém puder ajudar agradeço. Muito obrigado. Jr.

Oi pessoal beleza... vejam esse filme abaixo e notem o seguinte defeito que ocorre... Vejam que logo no começo da animação um painél que eu fiz no fotoshop com várias fotos coladas uma do lado da outra (salvo em jpg) começa rolando da esquerda para a direita e passa durante toda a animação... O probelam que acontece é de que quando exporto o filme em swf ou aperto o f12 pra visualizar no navegador dá esse problema... o fundo fica distorcido e a foto logo no comecinho só aparece um pedaço e sai... Não entendo porque acontece isso... Já instalei duas versões do flash e está do mesmo jeito... refazer tudo de novo me mataria... gostaria de saber de vocês esperientes no flash o que pode dar esse defeito... qual pode ser o problema... Pra quem quiser aqui vai o arquivo anexado... para examinarem e me ajudarem... obrigado... É um mega banner de topo... http://www.noticiaregional.com.br/anim.fla http://www.noticiaregional.com.br/modelo.htm Qualquer ajuda é bem vinda...

Pessoal beleza... quando faço o login num sistema de atnedimento on-line está reportando este erro: Microsoft JET Database Engine error '80004005' Not a valid file name. /suporte/admin_login.asp, line 232 Na linha 232 eu tenho isso aqui: Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open Application("SOS_conexao") Set objRS = Server.CreateObject("ADODB.Recordset") O que pode estar ocorrendo... Já mudei o caminho inúmeras vezes da página funções que faz a conexão com o DB mas nada adiantou... veja o arquivo funções que faz a conexão com o DB: 'Define demais variaveis do sistema Application("SOS_conexao") = "Data Source=" & endereco_fisico & "databases\SOSdatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Application("SOS_sistema_ativo") = True Podem me ajudar a resolver... Aguardo contato... Obrigado.

Podem me ajudar? Obrigado.

Para acrescentar... é nesse código da página de upload que é renomeado o arquivo. ' --- Trocamos o nome do arquivo --- objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File Next Inclusive se alguém souber como mudar o nome por completo e não só acrescentar os sinais agradeço. Tipo nesse código ele só acrescenta isso ao nome original da foto "{}_", eu gostaria de que ele mudasse tipo pra foto1, foto2 e etc...

Oi pessoal, acho que essa dúvida é sempre a de muitos usuários... fiz uma busca por este assunto mas não obtive sucesso em achar questões já respondidas aqui ou em outros fóruns. Eu estou usando o Dundas para fazer o upload de arquivos de foto para o site. Os arquivos são renomeados no momento em que eles são enviados. Primeiro que funciona desta maneira. O usuário abre uma página de cadastro de notícias. Nesta página tem um campo de texto. <input name="url" type="text" id="url" readonly> A frente desse campo URL tem um botão enviar foto. Quando o usuário clica neste botão abre uma popup por este comando java script: function enviarfoto() { var width = 350; var height = 200; var left = 0; var top = 0; self.name = 'enviarfoto'; remote = open('upload.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); remote.focus(); } Nessa popup eu tenho um formulário que procura a foto no pc e em seguida a envia... O problema está aí... Tipo a foto é enviada mas ela não é capturada pelo formulário. No momento em que a foto fosse enviada na popup, a popu deveria fechar e o nome da foto aparecer gravado no campo de texto url. Vale lembrar que a foto é renomeada no momento em que ela é enviada para o site. Como eu capturo o nome do arquivo enviado. Para ajudar, anexei abaixo os dois códigos. O do formulário que procura a foto para enviar e a da página responsável pelo envio... UPLOAD.ASP (FORMULÁRIO PROCURA E ENVIA FOTO) <html> <body> <form method="post" action="upload2.asp" enctype="multipart/form-data"> Arquivo: <input type="file" name="arquivo"> <input type="submit" value="Enviar"> </form> </body> </html> UPLOAD2.ASP (Usando Dundas) <% ' On Error Resume Next, passa por cima de possíveis erros 'On Error Resume Next Dim objUpload, objUploadedFile Dim lstFiles, strPath, str1File Dim strNome, intItem, strMsg 'Cria uma instancia do objeto Upload e atribui a variável objUpload. Set objUpload = Server.CreateObject("Dundas.Upload.2") ' Seta a não necessidade de alteração de configurações no servidor. objUpload.UseVirtualDir = False 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE, 'ela conserva o nome do arquivo original. objUpload.UseUniqueNames = TRUE 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo objUpload.SaveToMemory 'Pega algumas variaveis importantes que estão presentes no form-html que 'chama esse script '(é fundamental que estas atribuições só sejam feitas depois de rodar o '"SaveToMemory" strNome = objUpload.Form("Nome") intItem = objUpload.Form("selItems") 'Redireciona para o caminho físico onde serão guardados os docs. dependendo 'do módulo strPath = Server.MapPath("\news1\arquivos\adm")&"\fotos"&strNome&"\" lstFiles = "" For Each objUploadedFile in objUpload.Files str1File = objUpload.GetFileName(objUploadedFile.OriginalPath) lstFiles = lstFiles & "<li>" & str1File & "<BR>" '' Acrescenta como prefixo ao arquivo a chave do item em questao 'entre chaves ' --- Trocamos o nome do arquivo --- objUploadedFile.SaveAs strPath & "{"&intItem&"}_" & str1File Next 'Limpa a instância criada na memória do servidor. Set objUpload = nothing ' Vericamos se existe algum erro no codigo acima If Err <> 0 Then ' Mensagem de erro response.write "<b>Erro no envio do arquivo</b>" Else response.write "Arquivo gravado com sucesso com a referencia " & intItem End If %>

Andrei valeu pela ajuda, mas não deu certo não... dá o seguinte erro no arquivo upload.inc Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0005) Chamada de procedimento ou argumento inválido /news1/arquivos/adm/upload.inc, line 229 Na linha 229 eu tenho isso: Set TextStream = FS.CreateTextFile(FileName) Obrigado por toda ajuda.

Oi Andréi... mais uma vez muito obrigado pela sua ajuda... Não deu certo, eu fiz exatamente como você recomendou... Testei localmente no IIS do Win XP... Bem mediante a essa dificuldade usando Session eu fiz diferente... Eu criei uma área de texto de nome url e do lado um link enviar. Quando eu clico nele abre uma popup aonde eu procuro o arquivo que eu quero enviar e faço o upload. Acontece que está enviando o arquivo mas o nome do arquivo que foi enviado não é capturado pela caixa de texto da janéla principal... Se puder ajudar agradeço... Criei um novo post... veja: http://scriptbrasil.com.br/forum/index.php?showtopic=75603 Obrigado...

Oi pessoal... Gostaria de contar com a ajuda de vocês no seguinte problema. Eu tenho um campo no meu formulário que se chama url. Do lado desse campo tem o botão escolher. Quando eu clico nele é aberta uma janéla popup com a página upload.asp(1º código). Eu seleciono o arquivo que eu quero e clico no botão para enviar o arquivo. Acontece que quando eu faço isso... além deu não receber qualquer informação se o arquivo foi ou não enviado, o nome do arquivo que acabou de ser enviado, não é capturado pelo campo URL da tela principal. Nos testes que eu fiz a foto é enviada normalmente, mas o nome do arquivo não é capturado pela janéla principal depois de enviado na popup. Como resolver isso... Abaixo postei o código que faz o upload sem componente (deste fórum)... e mais abaixo o formulário que deverá capturar o nome do arquivo que foi enviado. UPLOAD.ASP <% byteCount = Request.TotalBytes 'RequestBin = Request.BinaryRead(byteCount) %> <html> <head> <title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title> <script LANGUAGE="JavaScript"> function Limit(upload) { if (upload.file.value == "") { alert("Informe o nome do arquivo (.jpg ou .gif)!"); upload.file.focus(); return false; } vfile = upload.file.value; tfile = vfile.length; if ((vfile.substr(tfile - 4, 4) != ".jpg") & (vfile.substr(tfile - 4, 4) != ".gif")){ alert("O arquivo deverá possuir o formato (.jpg ou .gif)!"); upload.file.focus(); return false; } } </script> </head> <body> <form name=upload OnKeyPress="return false;" OnSubmit= "return Limit(upload);" method=post ENCTYPE="multipart/form-data"> Arquivo : <input type="file" name="file" size="20"><br> <input type=submit Name="Action" value="Upload do Arquivo"> </form></input></input> </body></HTML> <!---#INCLUDE FILE="upload.inc" ---> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() If byteCount > 200000 Then Response.write "Tamanho do arquivo: <font color='red'>" & byteCount & "</font><br>" Response.Write "<center>Não deu certo...</center>" Response.End End If 'ALTERE A PASTA CHAMADA "imgs" PELA PASTA QUE VOCÊ QUER DEIXAR AS IMGENS 'LEMBRANDO QUE DEVE ESTAR NO MESMO DIRETORIO DAS PAGINAS UPLOAD.ASP E UPLOAD.INC 'DEIXE A BARRA "/" - PARA USAR NO SEU SITE 'DEIXE A BARRA "\" - PARA USAR NA SUA INTRANET FilePath = Server.MapPath("fotos") & "\" & Fields("file").FileName Fields("file").Value.SaveAs FilePath End If 'BY - ROBERTO GODOY %> INCLUIR.ASP <!--#include file="cookies.asp" --> <% 'Criando variáveis Dim rsTipos set rsTipos=server.createobject("adodb.recordset") 'Esta SELECT irá selecionar todos os tipos de notícias 'Neste caso, será para colocarmos no formulário as opções de escolher o tipo da notícia rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd %> <script language="JavaScript"> function eventos() { var width = 350; var height = 300; var left = 0; var top = 0; self.name = 'opener'; remote = open('upload2.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); remote.focus(); } function enviarfoto() { var width = 350; var height = 200; var left = 0; var top = 0; self.name = 'enviarfoto'; remote = open('upload.asp','site', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); remote.focus(); } </script> <html> <head> <title>iMasters / ASP - Notícias</title> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" cellspacing="3" cellpadding="0"> <tr valign="middle"> <td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">ADMINISTRATIVO - ASP NOT&Iacute;CIAS</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td width="126" height="277" valign="top" bgcolor="#BFEFFF"><table width="100%" border="0" cellspacing="2" cellpadding="1"> <tr> <td bgcolor="#FFFFFF"><a href="incluir.asp"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir Not&iacute;cia</strong></font></div> </a></td> </tr> </table></td> <td width="600" valign="top"><blockquote> <p><font face="Arial, Helvetica, sans-serif"><strong><font size="4"> Incluir not&iacute;cia</font></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif">Para incluir uma nova not&iacute;cia, preencha o formul&aacute;rio abaixo:</font></p> <form name="form1" method="post" action="incluir2.asp"> <table border="0" align="center" cellpadding="0" cellspacing="3"> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">T&iacute;tulo:</font></div></td> <td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2"> <input name="titulo" type="text" id="titulo" size="40"> </font></font></div></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <select name="tipo" id="tipo"> <% while NOT rsTipos.EOF %> <option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option> <% rsTipos.movenext wend %> </select> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="chamada" cols="40" id="chamada"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conte&uacute;do:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="conteudo" cols="40" rows="5" id="conteudo"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Data para expirar:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="expira" type="text" id="expira"> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td> <td> <table width="100" border="0" cellspacing="0" cellpadding="1"> <tr> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input type="radio" name="destaque" value="1"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">Sim</font></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="destaque" type="radio" value="0" checked> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">N&atilde;o</font></td> </tr> </table></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div></td> <td><table width="254" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="152" height="24"><input name="url" type="text" id="url" readonly> </td> <td width="102"><table width="81" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="81"><font size="1" face="Arial, Helvetica, sans-serif">Escolher</font></td> </tr> <tr> <td><font size="1" face="Arial, Helvetica, sans-serif"><a href="java script:enviarfoto();">Enviar</a></font></td> </tr> </table></td> </tr> </table> </td> </tr> <tr> <td colspan="2"><div align="right"> <input type="submit" name="Submit" value="Cadastrar"> </div></td> </tr> </table> </form> <p>&nbsp;</p> </blockquote></td> <td width="40" bgcolor="#BFEFFF"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">ASP - Not&iacute;cias</font></div></td> </tr> </table> <p>&nbsp;</p> </body> </html>

Marcus testei o seu sistema de upload e é muito legal, funciona que é uma beleza... De vários que eu testei é o mais fácil de usar... Eu vi que você disse o seguinte, Só faltou a opção de renomear arquivos antes de enviar, que seria uma boa também, mas infelizmente não tem mas vocês poderam acrescentar essa opção sem problemas! Alguém pode me ajudar a criar essa opção para renomear os arquivos antes de enviar... Muito obrigado e parabéns... quem não pegou, pega aqui... bem legal mesmo...

Andrea obrigado por responder este post. Bem vamos lá... Você deu um exemplo pra mim usar o Dundas, mas pelo que entendo não dá pra ao mesmo tempo fazer o upload da foto e das informações, ou dá? Tipo nesse meu sistema você preenche tudo mas primeiro envia a foto e em seguida as info são levadas para uma outra página e inseridas no DB. De que forma você pode sugerir para eu criar de uma forma legal de enviar a foto para a notícia? Abaixo estou postando o código da página que dá o erro... Tenho encontrado muitas dificuldades pra enviar a foto para a notícia. <!-- #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 ---------------------- SESSION ("titulo") = Request.form("titulo") SESSION ("tipo") = Request.form("tipo") SESSION ("chamada") = Request.form("chamada") SESSION ("conteudo") = Request.form("conteudo") SESSION ("expira") = Request.form("expira") data=day(now)&"/"&month(now)&"/"&year(now) SESSION ("destaque") = Request.form("destaque") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagens/noticia" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("../bd/base.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'Faremos aqui a inserção de todos os dados digitados no form anterior meubd.EXECUTE "INSERT INTO noticias (titulo, chamada, tipo, conteudo, expirar, data, destaque, foto) values ('"&titulo&"','"&chamada&"',"&tipo&",'"&conteudo&"','"&expira&"','"&data&"',"&destaque&"','"&cfoto&")" ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" 'Logo após a inserção dos dados, mostrará uma mensagem e voltará para a página principal.asp response.write "<script>location = 'principal.asp';alert('Sua notícia foi cadastrada com sucesso!')</script>" %>

Oi pessoal beleza... É o seguinte... eu tenho uma página aonde tenho vários campos de texto que são preenchidos e no final eu seleciono uma foto para enviar. No momento em que a foto é enviada uma página captura usando session... Está dando este erro: O erro que está aparecendo é este: Tipo de erro: Objeto Request, ASP 0207 (0x80004005) Não é possível usar a coleção Request.Form após chamar BinaryRead. /news1/arquivos/adm/upload_form2.asp, line 10 Na linha 10 eu tenho isso: SESSION ("titulo") = Request.form("titulo") Eu li num post que sempre que uso o método de envio do formulário como enctype="multipart/form-data", não consigo recuperar dados do formulario com o request.Form Diante disso eu gostaria de saber de que forma resolvo o problema... Como tem que ser o meu formulário para que eu consiga recuperar as informações? Obrigado. Meu formulário atualmente está assim: <!--#include file="cookies.asp" --> <% 'Criando variáveis Dim rsTipos set rsTipos=server.createobject("adodb.recordset") 'Esta SELECT irá selecionar todos os tipos de notícias 'Neste caso, será para colocarmos no formulário as opções de escolher o tipo da notícia rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd %> <html> <head> <title>iMasters / ASP - Notícias</title> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" cellspacing="3" cellpadding="0"> <tr valign="middle"> <td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">ADMINISTRATIVO - ASP NOT&Iacute;CIAS</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td width="126" height="277" valign="top" bgcolor="#BFEFFF"><table width="100%" border="0" cellspacing="2" cellpadding="1"> <tr> <td bgcolor="#FFFFFF"><a href="incluir.asp"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir Not&iacute;cia</strong></font></div> </a></td> </tr> </table></td> <td width="600" valign="top"><blockquote> <p><font face="Arial, Helvetica, sans-serif"><strong><font size="4"> Incluir not&iacute;cia</font></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif">Para incluir uma nova not&iacute;cia, preencha o formul&aacute;rio abaixo:</font></p> <form name="form1" enctype="multipart/form-data"> <table border="0" align="center" cellpadding="0" cellspacing="3"> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">T&iacute;tulo:</font></div></td> <td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2"> <input name="titulo" type="text" id="titulo" size="40"> </font></font></div></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <select name="tipo"> <% while NOT rsTipos.EOF %> <option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option> <% rsTipos.movenext wend %> </select> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="chamada" cols="40" id="chamada"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conte&uacute;do:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="conteudo" cols="40" rows="5" id="conteudo"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Data para expirar:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="expira" type="text" id="expira"> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div></td> <td><input type="file" name="foto" size="14"></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td> <td> <table width="100" border="0" cellspacing="0" cellpadding="1"> <tr> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input type="radio" name="destaque" value="1"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">Sim</font></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="destaque" type="radio" value="0" checked> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">N&atilde;o</font></td> </tr> </table></td> </tr> <tr> <td colspan="2"><div align="right"> <input type=button value="Cadastrar" onclick="document.form1.action='upload_form2.asp?tipo='+document.form1.tipo.value;document.form1.submit()"> </div></td> </tr> </table> </form> <p>&nbsp;</p> </blockquote></td> <td width="40" bgcolor="#BFEFFF"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">ASP - Not&iacute;cias</font></div></td> </tr> </table> </body> </html> Eu tentei fazer algumas modificações, mas não consegui. Obrigado.