Gustavo Moraes

o código ficou assim: Dim data2, data3 data2 = Date() data3 = DateAdd("d",60,data2) ai pra mostrar a data no formato brasileiro, gravei a data num outro campo, pra mostrar separadamente na tela, q fica assim: Dim dia, mes, ano dia = Day(now()) mes = Month(now()) ano = Year(now()) data = dia & "/" & mes & "/" & ano

Funcionou legal, só ta dando um errinho q quando eu utilizo essa funçao, em vez de aumentar o mes, aumenta os dias...no caso 2 dias

document.write(DateAdd("m",1,"31-Jan-01")) no caso se eu usar variaveis do BD, como eu faço? onde ta document eu posso criar uma variavel? tipo dia = Day(now()) mes = Month(now()) ano = Year(now()) data_variavel(DateAdd("m",2,"dia-mes-ano")) to fazendo certo? tentei fazer com document.write(DateAdd("m",1,"31-Jan-01")) fiz: dia = Day(now()) mes = Month(now()) ano = Year(now()) data2(DateAdd("m",2,"'" & dia & "-" & mes & "-" & ano"'")) mas da erro de Expected ')' alguma sugestao?

fiz um esquema assim: Dim data, data2, dia, mes, ano dia = Day(now()) mes = Month(now()) ano = Year(now()) data = dia & "/" & mes & "/" & ano If mes > 9 then data2 = dia & "/" & mes + 3 & "/" & ano + 1 Else data2= dia & "/" & mes + 3 & "/" & ano End if mas quando somo 3 ao mes 10 por exemplo, fica mes 13... alguém tem uma ideia pra resolver esse problema? estou tentando fazer um sistema onde as noticias expiram em 3 meses...

o problema é q estou fazendo num esquema do tipo dia = Day(now()) mes = Month(now()) ano = Year(now()) data = dia & "/" & mes & "/" & ano então se eu fizer aí, data + 60 não vai funcionar... e num posso adicionar só 2 no month, senao se tiver no 11 vai pro 01, só q do mesmo ano a não ser q eu faça, um " if month > 10, então month + 2 e year + 1.... sera q rola? e como eu faço isso?

Ae! estou com uma dúvida, gostaria que fosse adicionado a data do dia ao BD..até aí td bem, mas q em um outro campo do BD ( Data de expiração ) fosse sempre adicionado a data atual + 60 dias, ou enfim, 2 meses... Ex: Adicionou um registro dia 02/10/2007, e grava tb em outro campo a data 02/12/2007, alguém sabe como efetuar essa soma? Obrigado!!!

deu certo kuroi!! valeu!!!

Olá pessoal , tenho uma dúvida simples, tenho 3 arquivos, no primeiro o cara poe o nome, ai ele poe enviar, vai pro segundo formulario, onde ele poe o telefone, e finalmente quando ele poe enviar, ai os dados são armazenados no BD. alguém sabe como carregar o valor preenchido no primeiro for até o ultimo? ex arquivo 1.asp <input type=text name="nome" value="" size="70" maxlength="100"> eu poderia fazer no arquivo 2 <% nome = request.Form("nome") %> <input type=text name="nome" value="" size="70" maxlength="100"> e no arquivo 3, onde eu faço o insert, como eu recupero os dados? ou já estou errando logo no segundo arquivo? alguma ideia? muito obrigado!

no arquivo anterior, eu criei isso <%Abrecla Identificacao="select * from cadastro where ID= '"&login&"' " Set Identificacao = conexao.execute(Identificacao) Session("identificacao") = Identificacao("ID") %> e esta dando o seguinte erro na linha do Set: Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

continuo quebrando a cabeça, se alguém me ajudar a analisar esse codigo, trata-se do aspsmartupload.... quando mando gravar as imagens , chama essa pagina, só q não da nenhum erro, simplesmente aparece page not found, algo do tipo.. o codigo é esse: <!--#include file="conectar.asp"--> <% Abrecla Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 'seta as opções de upload ! 'Como o exemplo é um cadastro de usuário com foto, permitirei a entrada de arquivos com extensão jpg,gif,jpeg e png objUpload.AllowedFilesList = "jpg,gif,jpeg,png" 'Nessa linha limito o upload de cada arquivo a 500kb objUpload.MaxFileSize = 500000 'Upload é feito a seguir para o servidor objUpload.Upload 'Recuperacao do campo nome!VERIFIQUE QUE: o request.form foi substituído por objUpload.Form if err.number = -2147220399 or err.number = -2147220494 then 'Estes números de erros correspondem respectivamente á Tamanho de arquivo maior que permitido e extensão diferente da permitida.Caso isso aconteça é exibido uma mensagem response.write("Erro!!Tamanho ou extensão diferente do permitido ") else 'caso tamanho e extensão dos arquivos estiverem corretos... 'Atribui a letra i valor de 0 i=0 'Vamos fazer um loop para recuperar e gravar os arquivos For Each File In objUpload.Files 'recupera “i” e atribui a ele +1 i=i + 1 'este if verifica se os campos de upload não estão vazios If Not File.IsMissing Then 'Aqui são renomeadas as imagens.Arquivo é o ID(recuperado pela session)”_” +valor do i+ a extensão.Ficara assim por exemplo:12_1.gif ,12_2.gif , 12_3.gif(correspondendo ao ID 12 e os três campos de imagens selecionados) arquivo=recupera_bd("instituicao_id")&"_"&i&"."&File.FileExt 'salva os arquivos com o nome escolhemos acima no diretório ../pasta_para_gravar/ 'Lembrando que a pasta deve ter permissão para gravação! File.Saveas(Server.MapPath("/fotos/"&arquivo)) 'Cria sessões baseadas no loop com valores de upload_nome_ 1 a 3 session("upload_nome_"&i)=arquivo End If Next 'Agora vamos gravar o nome das imagens no banco de dados! conexao.execute("update cadastro set imagem1='"& session("upload_nome_1") & "', imagem2='"& session("upload_nome_2") & "', imagem3='"& session("upload_nome_3") & "' where ID="&session("identificacao")) Response.Write(intCount & " file(s) uploaded.") %> não entendi essa parte: arquivo=recupera_bd("instituicao_id")&"_"&i&"."&File.FileExt no caso ele criou a variavel arquivo, mas o q quer dizer recupera_bd e instituicao_id seria o id da minha tabela?

Da erro nessas ultimas 3 linhas , escrito End Expected

Pessoal estou com muita dificuldade, fiz um formulario bem simples onde o usuario preenche apenas o nome, e quando ele envia, abre um tela pra ele dar upload em 3 imagens ( usando smartupload) , mas não estou conseguindo fazer funcionar :( eu acho q o problema está no upload, mais precisamente na ultima linha: conexao.execute("update usuarios set imagem1='"& session("upload_nome_1") & "', imagem1='"& session("upload_nome_2") & "', imagem1='"& session("upload_nome_3") & "' where ID="&session(“id”)) Vou postar aqui os 3 arquivos q estou usando nesse processo. No meu banco de dados, eu tenho a tabela cadastro, e os campos ID , user, nome, imagem1, imagem2, imagem3 Enviar.asp: <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% Dim data, dia, mes, ano dia = Day(now()) mes = Month(now()) ano = Year(now()) data = dia & "/" & mes & "/" & ano %> <html> <head> <title>teste</title> <link rel="stylesheet" type="text/css" href="estilo.css"> <script src="funcoes.js"></script> </head> <body> <!--#include file="topo.inc"--> <br /><br /> <form action="enviar2.asp" method="post" name="form"> <input type="hidden" value="sim" name="enviado"> <input type="hidden" value="<%=Session("login")%>" name="user"> <input type="hidden" value="<%=data%>" name="data"> <input type="hidden" value="<%=Session("email")%>" name="email"> <table width="100%" cellpadding="3" cellspacing="0" bgcolor="#ECECEC"> <tr> <td bgcolor="#eeeeee" width="23%"><font size=2><b>Nome:</b></font></td> <td bgcolor="#eeeeee" width="77%"><font size=2><input type=text name="nome" value="" size="70" maxlength="100"></font></td> </tr> </table> <table bgcolor="#eeeeee" align="center" width="100%"> <tr> <td align="center"> <input type="submit" value="=-Postar-="> <input type="reset" value="=-Apagar-="> </td> </tr> </table> </form> </body> </html> Enviar2.asp <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% Abrecla SQL = "SELECT * FROM cadastro ORDER BY id DESC" Set rs = Conexao.Execute(SQL) noticia1 = rs("id") noticia2 = noticia1 + 1 noticia = replace(request.form("noticia"), "'", "''") noticiad = replace(noticia, chr(13), "<br>") Sql = "INSERT INTO cadastro (user, nome) " Sql = Sql & "VALUES('" & Request.Form("user") & "','" Sql = Sql & Request.Form("nome") & "')" Conexao.Execute(Sql) %> <% Fechacla %> <html> <body> <form name="form" method="post" action="gravar.asp" enctype="multipart/form-data"> <input type="file" id="arquivo1" name="arquivo1"> <br> <input type="file" id="arquivo2" name="arquivo2"> <br> <input type="file" id="arquivo3" name="arquivo3"> <br> <input type="submit" name="botao" id="botao" value="Cadastrar "> </form> </body> <HTML> E finalmente o gravar.asp que utiliza smartupload <!--#include file="conectar.asp"--> <% Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 'seta as opções de upload ! 'Como o exemplo é um cadastro de usuário com foto, permitirei a entrada de arquivos com extensão jpg,gif,jpeg e png objUpload.AllowedFilesList = "jpg,gif,jpeg,png" 'Nessa linha limito o upload de cada arquivo a 500kb objUpload.MaxFileSize = 500000 'Upload é feito a seguir para o servidor objUpload.Upload 'Recuperacao do campo nome!VERIFIQUE QUE: o request.form foi substituído por objUpload.Form if err.number = -2147220399 or err.number = -2147220494 then 'Estes números de erros correspondem respectivamente á Tamanho de arquivo maior que permitido e extensão diferente da permitida.Caso isso aconteça é exibido uma mensagem response.write("Erro!!Tamanho ou extensão diferente do permitido ") else 'caso tamanho e extensão dos arquivos estiverem corretos... 'Atribui a letra i valor de 0 i=0 'Vamos fazer um loop para recuperar e gravar os arquivos For Each File In objUpload.Files 'recupera “i” e atribui a ele +1 i=i + 1 'este if verifica se os campos de upload não estão vazios If Not File.IsMissing Then 'Aqui são renomeadas as imagens.Arquivo é o ID(recuperado pela session)”_” +valor do i+ a extensão.Ficara assim por exemplo:12_1.gif ,12_2.gif , 12_3.gif(correspondendo ao ID 12 e os três campos de imagens selecionados) arquivo=recupera_bd("instituicao_id")&"_"&i&"."&File.FileExt 'salva os arquivos com o nome escolhemos acima no diretório ../pasta_para_gravar/ 'Lembrando que a pasta deve ter permissão para gravação! File.Saveas(Server.MapPath("/fotos/"&arquivo)) 'Cria sessões baseadas no loop com valores de upload_nome_ 1 a 3 session("upload_nome_"&i)=arquivo End If Next 'Agora vamos gravar o nome das imagens no banco de dados! conexao.execute("update usuarios set imagem1='"& session("upload_nome_1") & "', imagem1='"& session("upload_nome_2") & "', imagem1='"& session("upload_nome_3") & "' where ID="&session("id")) %> valeu ae!!! se alguém puder dar uma ajuda agradeço muito!!!

Pessoal, eu queria que ao preencher um formulario, os dados fossem enviados ao bd, mas abrisse um outro formulario em outra pagina, com mais campos , para preencher os campos restantes...ou seja, um cadastro em 2 etapas... mas não sei como fazer, sei q tem q usar o session(id), algo do tipo...alguém tem uma dica? meu codigo é esse: Não estou tb conseguindo colocar o redirect ... não funciona!! <!--#include file="restrito.asp"--> <!--#include file="conectar.asp"--> <% Dim data, dia, mes, ano dia = Day(now()) mes = Month(now()) ano = Year(now()) data = dia & "/" & mes & "/" & ano %> <html> <head> <title>Cadastrando Notícia</title> <link rel="stylesheet" type="text/css" href="estilo.css"> <script src="funcoes.js"></script> </head> <body> <!--#include file="topo.inc"--> <br /><br /> <% AbreMus If Request.form("enviado") = "sim" then SQL = "SELECT * FROM noticias ORDER BY id DESC" Set rs = Conexao.Execute(SQL) noticia1 = rs("id") noticia2 = noticia1 + 1 noticia = replace(request.form("noticia"), "'", "''") noticiad = replace(noticia, chr(13), "<br>") Sql = "INSERT INTO noticias (user, data, assunto, noticia, sub, foto, email) " Sql = Sql & "VALUES('" & Request.Form("user") & "','" Sql = Sql & Request.Form("data") & "','" & Request.Form("assunto") & "','" & noticiad & "','" & Request.Form("sub") & "','" & Request.Form("foto") & "','" & Request.Form("email") & "')" Conexao.Execute(Sql) %> <font face="Verdana"><font size="3" color="#FFFFFF" face="Verdana"><b>Noticia enviada com sucesso!<BR> Obrigado <%=Session("login")%>!</font><br> <font size="3"><a href="ver.asp"><b>Clique Aqui para ver todas as notícias</a> OU<BR> <a href="noticia.asp?id=<%=noticia2%>"><B>A</B>qui <b>P</b>ara ver somente a que você postou</font> <% else %> </font> <form action="enviar.asp" method="post" name="form"> <input type="hidden" value="sim" name="enviado"> <input type="hidden" value="<%=Session("login")%>" name="user"> <input type="hidden" value="<%=data%>" name="data"> <input type="hidden" value="<%=Session("email")%>" name="email"> <table width="100%" cellpadding="3" cellspacing="0" bgcolor="#ECECEC"> <tr> <td bgcolor="#eeeeee" width="23%"><font size=2><b>Título:</b></font></td> <td bgcolor="#eeeeee" width="77%"><font size=2><input type=text name="assunto" value="" size="70" maxlength="100"></font></td> </tr> <tr> <td bgcolor="#eeeeee" width="23%"><font size=2><b>Sub-título:</b></font></td> <td bgcolor="#eeeeee" width="77%"><font size=2><input type=text name="sub" value="" size="120" maxlength="200"></font></td> </tr> </table> <table> <tr> <td valign=top bgcolor="#eeeeee" width="23%"><font size=2><b>Mensagem:</b></font></td> <td bgcolor="#eeeeee"><font size="2"> <textarea name="noticia" rows="12" cols="60"></textarea> </font><BR> </td> </tr> </table> <table bgcolor="#eeeeee" align="center" width="100%"> <tr> <td bgcolor="#eeeeee" width="23%"><font size=2><b>Foto da Home:</b></font></td> <td bgcolor="#eeeeee" width="77%"><font size=2><input type=text name="foto" value="" size="30" maxlength="100"></font></td> </tr> </table> <table bgcolor="#eeeeee" align="center" width="100%"> <tr> <td align="center"> <input type="submit" value="=-Postar-="> <input type="reset" value="=-Apagar-="> </td> </tr> </table> </form> </body> </html> <% FechaMus end if %>

Olá tenho um site com 10 Banners laterais, e gostaria de um script para "rodar" eles aleatoriamente. Tá eu sei que já existem vários scripts para isso, mas no meu caso, eu quero exibir os 10 ao mesmo tempo, sem que apareçam 2 banners da mesma empresa. Eu achei um código em php que faz isso, mas precisava dele em ASP! se alguém puder ajudar! Muito OBrigado segue em php <? /* Você poderá acrescentar quantos banners e endereços quiser. Se for iniciante mesmo, só edite as variáveis $banner e $exibir para caeda novo banner acrescente: $banner[] = array("Imagem","URL","Texto Alternativo"); */ $banner[] = array("images/banner1.jpg","http://www.site1.com","Texto Alternativo 1"); $banner[] = array("images/banner2.jpg","http://www.site2.com","Texto Alternativo 2"); $banner[] = array("images/banner3.jpg","http://www.site3.com","Texto Alternativo 3"); $banner[] = array("images/banner4.jpg","http://www.site4.com","Texto Alternativo 4"); $exibir = 2; //numero de banners a serem exibidos por vez...esse numero tem q ser menor q o numero de banners if(count($banner) >= $exibir){ $sorteado = array(); while(count($sorteado) <= ($exibir-1)){ $numero = rand(0,count($banner)-1); //sorteia um numero if (!in_array($numero,$sorteado)){ $sorteado[] = $numero; } } } else { echo "variavel exibir tem que ser menor que o numero de banners cadastrados"; } //exibe banners for($i=0;$i<count($sorteado);$i++){ $lnk = $banner[$sorteado[$i]][1]; $img = $banner[$sorteado[$i]][0]; $alt = $banner[$sorteado[$i]][2]; echo "<table style="height:95px;"><tr>n"; echo "<td><a href="$lnk"><img style="border:none" src="$img" title="$alt" alt="$alt"></a><td>n"; echo "</tr></table>n"; } ?> editando problema já resolvido!!!

Olá pessoal, gostaria de saber se existe algum script, para ou algum sisteminha pra rodar uma rádio FM, só q na internet. Eu sei que tem que ter um servidor especifico de shoutcast parece, mas e quanto a programação? não faço a menor ideia de por onde começar esse site!

Resolvido!! perfeito!!! Muito Obrigado!!!

editado

Olá, eu tinha uma página com extensao .aspx, copiei ela e colei pra uma página extensao .asp , agora todas as palavras acentuadas, aparecem com interrogação, ( mas só no firefox) , nos dois IE aparece a acentuação normalmente. alguém sabe o que pode ser? Obrigado!!!!!

após mtos testes estou mais confuso ainda, ta assim: se eu coloco texto, link , texto link....as vezes aparece um ou o outro link, as vezes o texto q ta depois do link não aparece na noticia!! cada pau muito loko!

Eu fiz um sisteminha de notícias onde Você insere o texto numa textarea, e exibe depois, até aí tudo simples. Mas gostaria também de poder colocar algum link dentro da noticia quando necessario, nem que eu tivesse que digitar o "<a href="http://lalalalal.com.br">texte</a> , já estaria de otimo tamanho. Meu script até o momento ta assim: Página HTML: <HTML> <HEAD> <TITLE>Inserir.html</TITLE> </HEAD> <BODY> <div align="center"> <h1>Inserir um registro</h1> <br> <FORM METHOD="POST" ACTION="inserir.asp"> Título: <INPUT TYPE="TEXT" NAME="titulo" size="20"><br> Texto: <TEXTAREA NAME="texto" ROWS="5" COLS="50"></textarea> <br /><INPUT TYPE="SUBMIT" value="Inserir"> </FORM> </div> </BODY> </HTML> Página asp, para pegar os dados: <!--#include file="conexao.asp"--> <HTML> <HEAD> <TITLE>Inserir</TITLE> </HEAD> <BODY> <% 'Recolhemos os valores do formulário titulo=Request.Form("titulo") texto= Request.Form("texto") call abre_conexao 'Agora criamos a sentença SQL Set rs=conexao.execute("Insert into tabela (titulo,texto) values('" & titulo & "','" & texto & "')") %> <h1><div align="center">Registro Inserido</div></h1> <div align="center"><a href="index.asp">Visualizar o conteúdo da base</a></div> <% 'Fechamos o sistema de conexão Call fecha_conexao%> </BODY> </HTML> alguém sabe como eu posso fazer para ter essa opção de inserir links nas noticias? Obrigado

Cara perfeito! é isso mesmo q eu queria saber !!! entendi agora! brigadao!!! falow

vou postar aqui o codigo completo da pagina, aí você vai entender melhor o q eu quero: <!--#include file="conexao.asp"--> <HTML> <HEAD> <TITLE>teste</TITLE> <link rel="stylesheet" type="text/css" href="estilo.css"/> </HEAD> <BODY> <h1><div align="center">Leitura da tabela</div></h1> <br> <br> <% call abre_conexao Set rs=conexao.execute("select * from tabela order by id desc") id = rs("id") titulo = rs("titulo") link = "<a href='noticia.asp?id=" & id & "'>" & titulo & "</a>" %> <div id="Div10" style="position:absolute; left:395px; top:585px; width:215; height:200; z-index:4" class="cinema"> <table border=0 cellpadding=0 cellspacing=0 background="img/teste55.gif"> <tr > <td width=215 height=25><a href=portal/tecnologia/tecnologia_def.aspx><img border=0 src="img/tecnologia.gif" /></a> </td> </tr> </table> <table width=215 border=0 cellpadding=0 cellspacing=0 background="img/teste55.gif"> <tr> <td>&nbsp;<img border=0 src="img2/aq_80x80.jpg" /> </td> <td><%=link%> </td> </tr> <% rs.MoveNext %> </table> <table> <tr> <td><%=link%> </td> </tr> <tr> <% rs.MoveNext %> <td><%=link%> </td> </tr> </table> <% 'Fechamos o sistema de conexão Call fecha_conexao%> <div align="center"> <a href="inserir.html">Acrescentar um novo registro</a><br> <a href="atualizar1.asp">Atualizar um registro existente</a><br> <a href="apagar1.asp">Apagar um registro</a><br> </div> </BODY> </HTML>

ta. o q exatamente não ta saindo certo pra você?? Eu gostaria de exibir o ultimo registro numa tabela, e o penultimo na outra, utilizando apenas rs.MoveNext, mas não ta funcionando. Ele mostra o ultimo registro nas duas tabelas, mesmo usando o rs.movenext....

não entendi.... alguém tem alguma ideia? obrigado While e For são a mesmo coisa... já tentei e o problema continua... Gostaria de exibir os resultados 1, 2 e 3 do BD em tabelas diferentes, por isso q com o for não esta dando! alguém tem alguma ideia? obrigado

Eu gosto do EditPlus, é bem leve e funcional