claytonprog

Pessoal valeu ai, Consegui de outra forma!!! Segue a sintaxe: sqleventos = ("select * from eventos where id_perfil = "& perfil &" and DATA = #" & mes & "/" & dia & "/" & ano & "# ") rs.open sqleventos, cn Pode fechar o tópico

<% Function DiaEvento(dia,mes,ano) perfil = request.querystring("id") RS.Open "Select * From eventos Where Data=#" & mes & "/" & dia & "/" & ano & "#" and id_perfil ="&perfil" , CN If RS.Eof Then DiaEvento = dia Else DiaEvento = "<b><font color=black>" & dia & "</b></a>" End If RS.Close End Function %> está dando o seguinte erro: Erro de tempo de execução do Microsoft VBScript (0x800A000D) Tipos incompatíveis: '[string: "Select * From evento"]' /portalpregadores/agenda.asp, line 9 o valor do id_perfil é = 44 o tipo de campo é numero na tabela. Peço a juda de vocês

Pessoal estou de novo aqui com uma dúvida!!! Tenho esse link aqui numa página de de downloads de e-books: <font color="#00000" Size="2" Face="Tahoma"> <a href='painel/Downloads/<%=rs("productfile")%>' target='_blank' style='font-color:#000000'><img src='tudo.gif' border='0'></a></b></font></td> O que eu eu quero fazer é o seguinte: Qualquer usuário poderão ver os e-books, porém quando ele clicar no link para baixá-lo o sistema terá que verificar se ele está logado, caso contrário tenho que chamar uma tela de login e senha. Desde já agradeçoa a ajuda!

Amigo Rafael! Coloque o insert dentro do loop e nada. Continua repetindo o mesmo nome nos dois campos. Deveria ficar assim: Titulo - Autor - Descrição - Arquivo - Imagem livro - Clayton - Livro que escrevi - livro.zip - livro.jpg Está gravando assim: Titulo - Autor - Descrição - Arquivo - Imagem livro - Clayton - Livro que escrevi - livro.zip - livro.zip Ficou assim meu código: <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, sql, verifica Dim mySmartUpload, intCount, File, titulo, autor, descricao, arquivo, arquivo1 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" On error Resume Next Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "doc,pdf,zip,rar,jpg,gif" mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png" mySmartUpload.MaxFileSize = 350000 mySmartUpload.Upload For Each File in mySmartUpload.Files titulo=mySmartUpload.Form("titulo") autor=mySmartUpload.Form("autor") descricao=mySmartUpload.Form("descricao") arquivo = File.FileName ' Nome do arquivo arquivo1 = File.Filename ' Nome da imagem strQuery = "INSERT INTO tblProducts (ProductName,Autor, ProductDescription,ProductFile, imagem) VALUES ('"&titulo&"', '"&autor&"', '"&descricao&"', '"&arquivo&"','"&arquivo1&"')" objRs = ObjConn.Execute(strQuery) intCount = mySmartUpload.Save("downloads") Next If Err.number <> 0 Then Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .doc e nem .pdf A operação foi cancelada. Por favor tente de novo. ") response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='3; url=enviar_ebooks.asp'/>" response.end end if objConn.close Set verifica = Nothing Set objConn = Nothing Set ObjRs = Nothing response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 5 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='5; url=enviar_ebooks.asp'/>" %>

Pessoal! Estou com o seguinte problema: Tenho uma tabela com os seguintes campos: ProductName Autor ProductDescription ProductFile imagem Tenho um form que digito o nome de um livro, o autor, descrição, e faço o uploas de doisa arquivos, sendo que um tem quer imagem e outro zipado. Meu Form tá assim: <form action="upload.asp" method="post" enctype="multipart/form-data"> <td> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="121"> <p align="right"><b> <font size="2" face="Verdana">Título:</font></b></td> <td> <font face="Verdana"> <input type="text" name="titulo" size="52" ></font></td> </tr> <tr> <td width="121"> <p align="right"><b> <font size="2" face="Verdana">Autor:&nbsp;&nbsp; </font></b></td> <td> <font face="Verdana"> <input type="text" name="autor" size="32" ></font></td> </tr> <tr> <td width="121"> <p align="right"><b> <font size="2" face="Verdana">Descrição:</font></b></td> <td> <textarea name="descricao" cols="49" rows="8"></textarea></td> </tr> <tr> <td width="121" height="28"> <p align="right"><b> <font size="2" color="#800000" face="Verdana">Imagem:</font></b></td> <td height="28"> <input name="arquivo1" type="file" class="style10" size="26" /></td> </tr> <tr> <td width="121"> &nbsp;</td> <td> <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos com extensões </font><font face="Verdana" size="2">.jpg</font><font face="Verdana" size="2" color="#FF0000"> ou .</font><font face="Verdana" size="2">gif <font color="#FF0000">e o tamanho máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td> </tr> <tr> <td width="121"> &nbsp;</td> <td> &nbsp;</td> </tr> <tr> <td width="121"> <b><font face="Verdana" size="2" color="#800000">Anexar arquivo:</font></b></td> <td> <input name="arquivo" type="file" class="style10" size="26" /></td> </tr> <tr> <td width="121"> <p align="right"><b><font face="Verdana" size="2" color="#800000">&nbsp;</font></b></td> <td> <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos com extensões </font><font face="Verdana" size="2">.zip, .rar</font><font face="Verdana" size="2" color="#FF0000">, </font> <font face="Verdana" size="2"> doc</font><font face="Verdana" size="2" color="#FF0000"> ou .</font><font face="Verdana" size="2">pdf <font color="#FF0000">e o tamanho máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td> </tr> </table> <p><input type="submit" name="enviar" value="Enviar" /></p> <p>&nbsp;<th width="5" align="left" valign="middle" scope="col">&nbsp;</th> Arquivo upload.asp <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, sql, verifica Dim mySmartUpload, intCount, File, titulo, autor, descricao, arquivo, arquivo1 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" On error Resume Next Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "doc,pdf,zip,rar,jpg,gif" mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png" mySmartUpload.MaxFileSize = 350000 mySmartUpload.Upload For Each File in mySmartUpload.Files titulo=mySmartUpload.Form("titulo") autor=mySmartUpload.Form("autor") descricao=mySmartUpload.Form("descricao") arquivo = File.FileName ' Nome do arquivo arquivo1 = File.Filename ' Nome da imagem Next If Err.number <> 0 Then Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .doc e nem .pdf A operação foi cancelada. Por favor tente de novo. ") response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='3; url=enviar_ebooks.asp'/>" response.end end if strQuery = "INSERT INTO tblProducts (ProductName,Autor, ProductDescription,ProductFile, imagem) VALUES ('"&titulo&"', '"&autor&"', '"&descricao&"', '"&arquivo&"','"&arquivo1&"')" objRs = ObjConn.Execute(strQuery) intCount = mySmartUpload.Save("downloads") objConn.close Set verifica = Nothing Set objConn = Nothing Set ObjRs = Nothing response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 5 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='5; url=enviar_ebooks.asp'/>" %> O envio dos arquuvos para o servidor está OK! Problema é que na hora de gravar no banco ele está gravando o mesmo nome nas tabela. Deveria ficar assim: Titulo - Autor - Descrição - Arquivo - Imagem livro - Clayton - Livro que escrevi - livro.zip - livro.jpg Está gravando assim: Titulo - Autor - Descrição - Arquivo - Imagem livro - Clayton - Livro que escrevi - livro.zip - livro.zip Por Favor alguém se souber me ajude ai a corrigir esta falha.

Caro Bareta! Veja como está meu codigo: CODE <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, sql, verifica Dim mySmartUpload, intCount, File, descricao, nome, titulo Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" On error Resume Next Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "jpg,gif,doc,zip,rar,pdf" mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png" mySmartUpload.MaxFileSize = 350000 mySmartUpload.Upload For Each File in mySmartUpload.Files titulo=mySmartUpload.Form("titulo") descricao=mySmartUpload.Form("descricao") nome=File.FileName sql = "SELECT * FROM tblproducts WHERE productfile = '"&titulo&"'" Set verifica = objConn.Execute(sql) If NOT verifica.EOF Then Response.Write "Já existe um arquivo com este nome, tente outro!" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>" Else strQuery = "INSERT INTO tblproducts (productname,productdescription,imagem,productfile) VALUES ('"&titulo&"','"&descricao&"','"&nome&"','"&nome&"')" objRs = ObjConn.Execute(strQuery) intCount = mySmartUpload.Save("Downloads") End If Next If Err.number <> 0 Then Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .zip, .rar e nem .pdf Ou então o arquivo que você enviou é maior que 15.000 bytes(8 kb. ). A operação foi cancelada. Por favor tente de novo. ") response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='5; url=downloads_full.asp'/>" response.end end if objConn.close Set verifica = Nothing Set objConn = Nothing Set ObjRs = Nothing Response.Write("Arquivo <b>" & File.FileName & "</b> ") Response.Write "Extensão do arquivo: " & File.FileExt & "<br>" Response.Write "Tamanho do arquivo: " & File.Size & "<br>" response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>" %> Dois problemas estão acontecendo: Está gravando duplicadamente Ex: enviei dois aquivos foto1.jpg arquivo.zip Na minha tabela está assim: - para arquivos de foto uso campo chamado: imagem - para arquivos de zip ou rar uso campo chamado: productfile quando foi feito o envio ficou gravado assim: 1- foto1.jpg foto1.jpg 2 - arquivo.zip arquivo.zip Eu quero que grave assim 1- foto1.jpg arquivo.zip

Pessoal! Estou com problemas neste código: Formulario de Cadastro <form action="upload.asp" method="post" enctype="multipart/form-data"> <td> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="121"> <p align="right"><b> <font size="2">Título:&nbsp;&nbsp; </font></b></td> <td> <font face="Verdana"> <input type="text" name="titulo" size="32" ></font></td> </tr> <tr> <td width="121"> <p align="right"><b> <font size="2">Descrição:</font></b></td> <td> <textarea name="descricao" cols="49" rows="8"></textarea></td> </tr> <tr> <td width="121" height="28"> <p align="right"><b> <font size="2" color="#800000">Imagem:</font></b></td> <td height="28"> <input name="arquivo1" type="file" class="style10" size="26" /></td> </tr> <tr> <td width="121"> &nbsp;</td> <td> <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos com extensões </font><font face="Verdana" size="2">.jpg</font><font face="Verdana" size="2" color="#FF0000"> ou .</font><font face="Verdana" size="2">gif <font color="#FF0000">e o tamanho máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td> </tr> <tr> <td width="121"> &nbsp;</td> <td> &nbsp;</td> </tr> <tr> <td width="121"> <b><font face="Verdana" size="2" color="#800000">Anexar arquivo:</font></b></td> <td> <input name="arquivo" type="file" class="style10" size="26" /></td> </tr> <tr> <td width="121"> <p align="right"><b><font face="Verdana" size="2" color="#800000">&nbsp;</font></b></td> <td> <font face="Verdana" size="2" color="#FF0000"><br>Obs: Só é permitido arquivos com extensões </font><font face="Verdana" size="2">.zip, .rar</font><font face="Verdana" size="2" color="#FF0000">, </font> <font face="Verdana" size="2"> doc</font><font face="Verdana" size="2" color="#FF0000"> ou .</font><font face="Verdana" size="2">pdf <font color="#FF0000">e o tamanho máximo do arquivo não deve ultrapassar </font>1.8 MB.</font></td> </tr> </table> <p><input type="submit" name="enviar" value="Enviar" /></p> <p>&nbsp;<th width="5" align="left" valign="middle" scope="col">&nbsp;</th> </tr> <tr> </form> Formulário de envio <% Option Explicit Response.Expires = 0 Dim objConn, objRs, strQuery, sql, verifica Dim mySmartUpload, intCount, File, descricao, nome, titulo Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("db/downloads.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" On error Resume Next Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.AllowedFilesList = "jpg,gif,doc,zip,rar,pdf" mySmartUpload.DeniedFilesList = "exe,bat,cab,swf,asp,aspx,htm,html,png" mySmartUpload.MaxFileSize = 350000 mySmartUpload.Upload For Each File in mySmartUpload.Files titulo=mySmartUpload.Form("titulo") descricao=mySmartUpload.Form("descricao") nome=File.FileName Next If Err.number <> 0 Then Response.Write("<p><br><font face=""Verdana"" size=""2""><br><br>Um dos seguintes erros aconteceu: você tentou enviar um arquivo cuja terminação não é .zip, .rar e nem .pdf Ou então o arquivo que você enviou é maior que 15.000 bytes(8 kb. ). A operação foi cancelada. Por favor tente de novo. ") response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='5; url=downloads_full.asp'/>" response.end end if sql = "SELECT * FROM tblproducts WHERE productfile = '"&nome&"'" Set verifica = objConn.Execute(sql) If NOT verifica.EOF Then Response.Write "Já existe um arquivo com este nome, tente outro!" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>" Else strQuery = "INSERT INTO tblproducts (productname,productdescription,productfile) VALUES ('"&titulo&"','"&descricao&"','"&nome&"')" objRs = ObjConn.Execute(strQuery) intCount = mySmartUpload.Save("Downloads") End If objConn.close Set verifica = Nothing Set objConn = Nothing Set ObjRs = Nothing Response.Write("Arquivo <b>" & File.FileName & "</b> ") Response.Write "Extensão do arquivo: " & File.FileExt & "<br>" Response.Write "Tamanho do arquivo: " & File.Size & "<br>" response.write "<font face=""Verdana"" size=""2""><br><br><br>arquivo enviado com sucesso<br></font>" response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em alguns segundos..<br></font>" response.write "<meta http-equiv='refresh' content='1; url=downloads_full.asp'/>" %> Eu consigo enviar dois arquivos um no formato .zip e outro no formato jpg. porém na hora de gravar os nomes no banco de dados eu consigo gravar o primeiro. Eu preciso salvar os nomes do dois arquivos um no formato .zip e outro no formato .jpg. Não está dando erro nenhum eu só não consigo salvar os nomes do dois arquivos no banco. Quem puder ajudar agradeço. .

Pessoal! Peguei um código na net recentemente e estou tentando adaptá-lo porém não estou conseguindo, se alguém puder me ajudar. Segue o código: <html> <head> <style TYPE="text/css"> <!-- #tickertape{ position:relative; width:240; height:165; } #subtickertape{ position:absolute; border: 1px solid black; width:240; height:165; } #noticia{ width: 240px; height: 165px; position:relative; } #imagem{ width: 240px; height: 165px; position:absolute; } #fill1{ top: 130px; width: 240px; height: 35px; position:absolute; background-color: #ffffff; filter: alpha(Opacity=60); } #Nota{ top: 130px; width: 240px; height: 35px; position:absolute; font-size : 10pt; font-family : Verdana; font-weight : bold; position:absolute; text-align: center; } .light2 { top:-1; left:0; color:white; } .light1 { top:+1; left:+1; color:white; } .fill2 { top:0; left:0; color:black; } .bg1 {border-color: #cc0033; border-width : medium;border-style : solid;;} --> </style> </head> <body onload="if (document.all||document.layers) {regenerate2();update()}"> <div id="tickertape"> <div id="subtickertape" class="subtickertapefont"> Carregando ... </div> </div> <!-- Noticas com Foto --> <script language="JavaScript1.2"> var speed=3000 dbConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("painel/db/noticias.mdb") SQL = "SELECT TOP 4 * FROM Noticias order by Data DESC" set rs = server.CreateObject("ADODB.Recordset") /* Informaçoes para exibir */ NewImg = new Array ( do while RS.eof Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],") rs.movenext loop ); i=0 if (document.all) tickerobject=document.all.subtickertape.style; else tickerobject=document.tickertape.document; function regenerate(){ window.location.reload() } function regenerate2(){ if (document.layers) setTimeout("window.onresize=regenerate",240) } function update(){ BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10); if (document.layers){ document.getElementById.subtickertape.document.open(); document.getElementById.subtickertape.document.write('<span class="subtickertapefont">'+news[i]+'</span>'); document.getElementById.subtickertape.document.close(); } else document.all.subtickertape.innerHTML=news[i]; if (i<news.length-1) i++ else i=0 setTimeout("update()",speed)} function BgFade(red1, grn1, blu1, red2, grn2, blu2, steps) { sred = red1; sgrn = grn1; sblu = blu1; ered = red2; egrn = grn2; eblu = blu2; inc = steps; step = 0; RunFader(); } function RunFader() { var epct = step/inc; var spct = 1 - epct; if (document.layers) tickerobject.bgColor = Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); else tickerobject.backgroundColor= Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); if ( step < inc ) { setTimeout('RunFader()',50); } step++; } function MontaCasca(imagem,urlbase,linhafina) { var MontaCasca = "<table cellpadding='0' cellspacing='0'>"+ "<tr><td class='bg1'>"+ "<div id='noticia'>"+ "<div id='imagem'><a href='"+urlbase+"'>"+ "<img src='"+imagem+"' width='240' height='165' border='0'/></a>"+ "</div><div id='fill1'></div>"+ "<div id='nota' class='light1'>"+linhafina+"</div>"+ "<div id='nota' class='light2'>"+linhafina+"</div>"+ "<div id='nota' class='fill2'>"+linhafina+"</div>"+ "</div></td></tr></table>"; return MontaCasca; } </script> </body> </html> Não está dando erro simplemesmente só aparece um quadrado com um texto dizendo: carregando.

Ted K'! Amigão este código seu ajudou bastante está funcionando aqui, porém eu preciso de uma coisinha que eu esqueci de mensionar, preciso que os dados apareçam em 4 colunas tipo o do Orkut. Ex: Foto1 Foto2 Foto3 Foto 4 Está assim meu código adapatado do seu; <tr> <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>Nome</strong>&nbsp;</td> <td width="47%" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>E-Mail</strong>&nbsp;</td> </tr> <% conn.CursorLocation = 3 Set rs = Server.CreateObject("Adodb.RecordSet") rs.Pagesize = 4 rs.Open "SELECT * FROM tblperfil order by nome",conn If rs.Eof Then Response.Write("") Else PaginaAtual = CInt(Request.Querystring("Pages")) If PaginaAtual = 0 Then PaginaAtual = 1 End If rs.AbsolutePage = PaginaAtual Num = rs.PageCount While Not rs.Eof And rs.AbsolutePage = PaginaAtual %> <tr> <td height="22" bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(rs("Nome")) %>&nbsp;</td> <td bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(rs("cliques")) %>&nbsp;</td> </tr> <% rs.MoveNext : Wend Anterior = PaginaAtual - 1 Proximo = PaginaAtual + 1 If Anterior <= 0 Then Anterior = 1 End If If Proximo > rs.PageCount Then Proximo = rs.PageCount End If %> <tr> <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong>&nbsp;<% Jo = 1 While Jo <= rs.PageCount If PaginaAtual = Jo Then Response.Write("["&Jo&"]&nbsp;&nbsp;") Else Response.Write("<a href=""comunidade.asp?Pages="&Jo&""" class=""classFonte01"" title=""P&aacute;gina "&Jo&""">"&Jo&"</a>&nbsp; ") End If Jo = Jo + 1 Wend End If %></td> </tr> Me dá uma força ai e faz a adaptação do código. Desde já agradeço.

Pessoal! Tenho esse código aqui tá funcionando belza mais preciso fazer uma páginação, alguém poderia ajudar a adaptar: <tr> <td><tr><br> <td height="156" width="412" style="border-style:solid; border-width:1px; "><font color="#000000"><%cont = 1%> <table height="101" width="399" cellspacing="4" style="border-collapse: collapse" cellpadding="0"> <% set rs = cn.execute("SELECT * From Products order by rnd(ProductID)") %> <% if request.QueryString("cid") <> "" then set rs = cn.execute("Select * From Products Where CategoryID=" & request.QueryString("cid")) else 'Response.Write "<font color='#0000FF'" 'response.write "</p>" 'Response.write "<br>Nenhum produto Cadastrado" end if %> <% if RS.EOF then %> <div align="center"> </font></font></font> <font color=#BF3200 face=verdana><b> <font size="2"><br>Nenhum produto cadastrado</font></b></font><font face="Tahoma"><font size="2" color="#BF3200"> <% else %> <%End If %> <% While not rs.EOF %> </font></font><font face="Tahoma" color="#289AD4"> <td width="133" style="border-style: none; border-width: medium"><a href="detalhes_produtos.asp?ID=<%=rs("productid")%>"style="text-decoration: none"><img src="images/products/<%=rs.fields("image")%>" width="100" height="86" alt="clique na imagem" ></a></td> <td width="254" height="39" style="border-style:none; border-width:medium; "><font size="2" color="#00000" face="tahoma"><p align="justify"><%=rs.fields("productname")%></font><P> <b> <% if rs("price") = "0,0" then %> <font size="2" color="#00000" face="tahoma">Preço Sob Consulta</font></b> <% else %> <font size="2" color="#800000" face="tahoma">Preço:<%=FormatCurrency(rs.fields("price"),2)%></font> <% end if %> </b><br> </td> <% If cont = 2 then %> </tr> <tr> <% cont = 1 Else cont = cont + 1 End if rs.MoveNext wend if cont = 2 then %> <tr> <td height="1" width="133" style="border-style:none; border-width:medium; " align="center"></td> <%Elseif contador = 1 then %> <td height="1" width="254" style="border-top-style: none; border-top-width: medium; border-left-style:none; border-left-width:medium"></td> <% End if %> </tr> <p></p> </table></font> </td> </tr> Preciso paginar pra ficar assim: primeira 1 2 3 4 5 6 ultima

Ok! Vou fazer e testar aqui, qualquer coisa eu posto a dúvida.

Eis a questão, esse código em javascript está na minha página index.asp e toda vez que a página index.asp é carregada ele abre a janela pop up, então mesmo que a página banner.asp não atenda o critério ele irá abrir uma pop up sem os dados. Entendeu?

Essa parte eu entendi TED, porém veja como eu abro a minha pop up no meu site: segue código: <script language="JavaScript"> var gt = unescape('%3e'); var popup = null; var over = "Abre Janela"; popup = window.open('', 'janela', 'width=420,height=420,resizable=no,scrollbars,status=no,left=300,top=200'); if (popup != null) { if (popup.opener == null) { popup.opener = self; } popup.location.href = 'banner.asp'; } // --> </script> Assim que o usuário acessa o site ela abre automaticamente, ai é que está a minha dúvida. Essa Janela só pode abrir o banner de acordo com a condição estabelecida do banco de dados, no caso a data. Então como eu montaria isso na minha página principal?

Pessoal to com uma dívida! estou querendo fazer o seguinte: Tenho um banco de dados que cadastra banner, esse banner depois de cadastrado deverá aparecer na página principal em uma Janela pop up. Só que quero que ela apareça por um período de tempo, por exemplo por 10 dias depois ele não deve aparecer mais ná página principal. Me banco de dados tá assim: id - Autonumeração promocao - texto imagem - texto ( caminho da imagem ) Duracao - numero ( quantidade de dias que o banner deve aparecer na página principal ) url - link do banner Ajuda ai pessoal! Como é que vou montar o script na página principal? Aguardo Resposta!!!!!

Pessoal! Peguei um slide Show na net e tentei adaptar, porém o slide não está funcionando não dá erro simplesmente não está trazendo a foto e as notícias do banco de dados. Quem puder ajudar a indentificar o que está acontecendo agradeço muito. Segue código: slide_noticias.asp <!--#include file="config.asp" --> <% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_store_STRING rs.Source = "SELECT * FROM noticias ORDER BY data DESC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rsNotPainel2_numRows = 0 %> <% Dim strRe__numRows Dim strRe__index strRe__numRows = 4 strRe__index = 0 rs_numRows = rs_numRows + strRe__numRows %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <head> <title></title> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <link href="style.css" rel="stylesheet" type="text/css"> <script type="text/javascript"> function settings(){ var el = document.getElementById('settings'); (el.style.display == 'none') ? el.style.display = 'block' : el.style.display = 'none'; } </script> <script type="text/javascript"> /* $BD:Slide - version 0.9.4$ $LastModified: 04/02/2006$ Sistema Free para uso pessoal ou comercial contanto que os créditos permaneçam intactos. Eu já nem estou colocando um monte de coisa pra não deixar o código pesado. ^^ Maiores Informações: http://my.opera.com/bimonti/ Colaboração Code SLIDE VERSÃO ASP : Júnior Dias: Tecnologiasvirtuais@gmail.com Zeke_ : Fórum Imasters */ slide = { // vetor com os slides _imagens : [ <% While ((strRe__numRows <> 0) AND (NOT rs.EOF)) Response.Write("[""noticias/imagens/"&(rs("foto1").Value)&""","""&(rs("chamada"))&""","""&Mid(rs("manchete"),1,45)&"..."",""/lernoticia.asp?id="&(rs("id"))&""""&"],") Response.Write(vbnewline) strRe__index=strRe__index+1 strRe__numRows=strRe__numRows-1 rs.MoveNext() Wend %> ["logo.jpg","","Tetel.com","index.asp"] ], // ID dos elementos que o sistema modifica // ID da imagem do slide _slideImg : 'slideImg', // ID do link do slide, ou seja, um elemento A _linkSlide : 'linkSlide', // ID do título do slide, uma div ou span por exemplo _titleSlide: 'titleSlide', // ID do título do slide, idêntico ao de cima _textSlide : 'textSlide', // ID da imagem de play|pause _playPause : 'playpause', // ID da div que mostra ou esconde as opções de customização de tempo // essa opção pode ser omitida do usuário, basta retirar o botão // settings da página, e como a div já vem com o display:none por // padrão o usuário não terá acesso a essas opções. _showTimer : 'showTimer', // variáveis do sistema // Daqui para baixo não é necessário alterar mais nada, aqui o sistema // cuidará de tudo _count : 0, _length : null, _timeOutID : null, _pause : false, _timer : 4, // função que inicia o slide e seta todas os parâmetros necessários start : function(){ with(this){ _preLoader(); _length = _imagens.length; _work(); } }, // faz o pré-carregamento das imagens _preLoader : function(){ for(x in this._imagens){ var image = new Image(); image.src = this._imagens[x][1]; } }, // função principal que faz as checagens necessárias _work : function(){ with(this){ (_count == _length) ? _count = 0 : (_count < 0) ? _count = _length-1 : void(0); var current = _imagens[_count]; _exchange(current); if(!_pause){ (typeof(_timeOutID) == "number") ? clearTimeout(_timeOutID) : void(0); _timeOutID = setTimeout( function(){ slide.next(); fade(0,0,$(_slideImg)); }, (Number(_timer)*1000) ); } } }, // função que altera os elementos da página, altere os IDs se necessário _exchange : function(img){ this.$(this._slideImg).src = img[0]; this.$(this._titleSlide).innerHTML = img[1]; this.$(this._textSlide).innerHTML = img[2]; this.$(this._linkSlide).href = img[3]; this.fade(50,100,this.$(this._slideImg)); }, // altera para o próximo slide ao clicar no botão Próximo next : function(){ with(this){ _count++; _work(); } }, // altera para o slide anterior ao clicar no botão correspondente previous : function(){ with(this){ _count--; _work(); } }, // pausa e continua a apresentação pause : function(){ var img = this.$(this._playPause); if(this._pause){ this._pause = false; img.src = 'img/pause.gif'; img.title = 'Parar'; } else{ this._pause = true; img.src = 'img/play.gif'; img.title = 'Continuar'; } with(this){(typeof(_timeOutID) == "number") ? clearTimeout(_timeOutID) : void(0); _work();} }, // controla o tempo de troca de cada slide tControl : function(act){ with(this){ (act=="m")?((_timer==4)?void(0):_timer=_timer-1):frown:(_timer==9)?void(0):_timer= _timer +1); this.$(this._showTimer).innerHTML = _timer+"s"; } }, // altera a opacidade do elemento e suaviza a transição entre os slides fade : function (){ var type,signal; var from = arguments[0]; var to= arguments[1]; var el= arguments[2]; (document.all) ? type = 'filter' : type = 'opacity'; (from>to) ? signal = '-' : signal= '+'; if(from >= to/2){ from = eval(from+signal+10); }else{ from = eval(from+signal+5); } if(type=='opacity'){ try{el.style[type] = Number(from*0.01); }catch(e){} }else{ try{el.style[type] = 'alpha(opacity='+from+')'; }catch(e){} } if(from != to){ setTimeout( function(){ slide.fade(from,to,slide.$(slide._slideImg)); } ,50); } }, // retorna o elemento solicitado através de seu ID $ : function(){ return document.getElementById(arguments[0]); } } </script> </head> <style type="text/css"> <!-- img{ border: 0px; } #nav{ width: 100%; background: #D9ECFF; padding: 0px; } #nav ul{ padding: 0px; } #nav ul li{ display: inline; float: right; list-style-type: none; margin: 0px; padding: 3px; } #nav ul li a{ /*padding: 3px 3px 0px 3px;*/ background: #D9ECFF; } #nav ul li a:hover{ background: #D9ECFF; } #pic{ width: 295px; padding: 0px; margin: 0px; } #pic .img{ padding: 3px; background: #eee; } #titleSlide{ padding: 3px; margin: 0px; background: #D9ECFF; } #titleSlide a{ text-decoration: none; color: #555; } #textSlide{ width: 280px; padding: 3px; margin: 0px; font: normal 12px 'Trebuchet MS'; background: #D9ECFF; } #settings{ width: 100px; } #settings span, #settings img{ float: left; } #settings span{ font: bold 11px 'Arial'; width: 20px; text-align: center; line-height: 19px; border: 1px dashed #ccc; background: #eee; height: 16px; margin: 0px 2px; } .center{ width: 300px; float:left; margin: 0px auto; background:#D9ECFF; } --> </style> <script language=javascript type=text/javascript> function over_(ID){ ob = document.getElementById(ID); ob.style.visibility = "visible"; } function out_(ID){ ob = document.getElementById(ID); ob.style.visibility = "hidden"; } </SCRIPT> <script type="text/javascript"> function settings(){ var el = document.getElementById('settings'); (el.style.display == 'none') ? el.style.display = 'block' : el.style.display = 'none'; } </script> </head> <body onLoad="slide.start()"> <table width="300" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div class="center"> <div id="pic"> <a href="" id="linkSlide"> <img name="slideImg" width="294" border="0" height="204" class="img" id="slideImg" /> </a> </div> </div></td> </tr> <tr> <td><table width="300" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="162" bgcolor="#D9ECFF"><div id="titleSlide" class="faa f10"></div> </td> <td width="138" align="right" bgcolor="#D9ECFF"> <div id="nav"> <ul> <li> <a href="#" onClick="slide.previous();"> <img src="img/next.gif" /> </a> </li> <li> <a href="#" onClick="slide.pause();"> <img id="playpause" src="img/pause.gif" /> </a> </li> <li> <a href="#" onClick="slide.next();"> <img src="img/past.gif" /> </a> </li> </ul> </div></td> </tr> <tr> <td colspan="2" bgcolor="#D9ECFF"> <a href="" id="linkSlide"><div id="textSlide"></div></a></td> </tr> </table></td> </tr> </table> </style> <% rs.Close() Set rs = Nothing %> config.asp <% MM_store_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("noticias/db/Noticias.mdb") %>

Pessoal! Tenho um arquivo em flash que lê um arquivo xml. Estou querendo gravar informações neste arquivo xml via código ASP. Segue conteúdo do arquivo xml. nome do arquivo: mp3player.xml <?xml version="1.0" encoding="UTF-8"?> <player showDisplay="yes" showPlaylist="yes" autoStart="yes"> <song path="mp3 files/oh_happy_day.mp3" title="Gospel- Americano" /> <song path="" title="" /> <song path="" title="" /> <song path="" title="" /> <song path="" title="" /> <song path="" title="" /> </player> Ajuda aê pessoal!

me mande um e-mail que te envio, pois estou reformulando meu site.

Andreia! Mil obrigados funcionou direitinho. você é 10.

Fiz como você disse mais ainda continua o mesmo erro.

Esse é o problema não sei como. www.claytonlima.com/clientes_comentarios.zip

Nesta parte do Id está ficando em branco você tem razão. Depois que ele carrega a combo ele perde o id. dá uma olhada nos códigos e vê se você consegue descobrir já tentei aqui e nada. www.claytonlima.com/clientes_comentarios.rar

Verifiquei o form clientes e o id está sendo passado corretamente sim, de forma que quando eu chamo o form clientes_comentaros.asp ele já carrega a combo com os eventos reverente a ID do cliente selecionado, o problema é quando eu seleciono o evento na combo e tento chamar os comentários dele ai dá erro. Fiz o que foi peddo troquei: isso: stringSQL = "SELECT * from tbleventos where id_cliente ="&cliente por isso: stringSQL = "SELECT * FROM tbleventos WHERE id_cliente ="&cliente&"" mais ainda continua dando o mesmo erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id_cliente ='. /solution/painel/clientes_comentarios.asp, line 162

Pessoal mais uma vez venho pedir help! Estou com um consulta dando erro. No form clientes.asp tenho varios clientes cadastrados e através dele chamo uns eventos: <div align="center"><font size="1" face="Tahoma"><b><a href="clientes_comentarios.asp?id=<%=rs("id")%>">Ver Comentários</a></b></font></div> No form clientes_comentarios.asp ele abre um combo com os eventos de acordo com a id do cliente do form clientes até ai tudo bem, porém quando eu seleciono um evento para trazer os comentários do evento dá erro. Segue o codigo: <% ' Declare our variables... always good practice! Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim cliente ' The text being looked for strSearch = Request.QueryString("search") %> <td><p align="left"><STRONG><font color="#000033" face="Tahoma" size="2"> :: Selecione o Evento:</font><FONT face=Tahoma size=2>:</FONT></STRONG></p> <form action="<%= search %>" method="get"> <div align="center"> <select name="Search" class="formula1" style="width:205; height:22" > <% Response.Expires = -1 cliente = request.querystring("Id") Dim objConnCur, stringSQL, evento Set objConnCur = Server.CreateObject("ADODB.Connection") Set objRSCur = Server.CreateObject("ADODB.Connection") objConnCur.Open "DBQ=" & Server.MapPath("db/desing.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" stringSQL = "SELECT * from tbleventos where id_cliente ="&cliente [b]Set objRSCur = objConnCur.Execute(stringSQL) // LINHA 162[/b] While not objRSCur.eof %> <option value="<%=objRSCur("id")%>"><%=objRSCur("descricao")%></option> <br> <% objRSCur.MoveNext Wend objRSCur.Close %> </select> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <table border="0" width="84%" cellspacing="0" cellpadding="0"> <tr> <td> <p align="center"><font size="2"><b> <% If strSearch <> "" Then strDBPath4 = Server.MapPath("db/desing.mdb") Set cnnSearch4 = Server.CreateObject("ADODB.Connection") cnnSearch4.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath4 & ";" strSQL4 = "SELECT * from tbleventos where id ="&strSearch Set rstSearch4 = cnnSearch4.Execute(strSQL4) %> <div align="center"> <table border="0" cellpadding="4" cellspacing="1" width="228" height="56"> <tr> <th bgcolor="#FFFFFF" width="218" height="36"><STRONG> <font color="#FD680C" face="Tahoma" size="2">:: Evento::</font></STRONG></th> </tr> <% Do While Not rstSearch4.EOF %> <tr> <td bgcolor="#FFFFFF"> <div align="center"> <table border="0" width="102%" cellspacing="0" cellpadding="0"> </table> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><%=rstSearch4("Descricao")%></b><br> </font><table border="0" width="100%" cellspacing="0" cellpadding="0"> </td> </tr> </table> </td> </tr> <% rstSearch4.MoveNext Loop %> </table> <% rstSearch4.Close Set rstSearch4 = Nothing cnnSearch4.Close Set cnnSearch4 = Nothing End If ' That's all folks! See it's really not all that hard. %> </b></font></td> </tr> </table> </div></td> erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id_cliente ='. /solution/painel/clientes_comentarios.asp, line 162

Pessoal! É o seguinte tenho um form onde listo vários eventos e clico no link com o id para ser excluído porém está dando erro de sintaxe me ajudem ai por favor! aqui é o link do form <a href=apagar_eventos.asp?ID=<%=rs("ID")%>' onclick='return excluir();'>Excluir</a></b></font> aqui o form apagar_eventos.asp <HTML> <BODY> <% dim conn set conn = createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("DB/desing.mdb") 'Declara variaveis Dim ID dim sql 'Coloca nas variaveis o que vou digitado nos campos ID = Request.querystring("ID") sql="delete * FROM tbleventos where id =" & ID Set Rs = Conn.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "<font face=""Verdana"" size=""2""><b>Evento excluído com Sucesso!!</b><br></font>" ' Redireciona após 5 segundos response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='3; url=eventos_full.asp'/>" %> </BODY> </HTML> aqui está o erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na seqüência de caracteres na expressão de consulta 'id =11''. /solution/painel/apagar_eventos.asp, line 21

Consegui Resolver o problema era : ID = UploadRequest.Item("ID").Item("Value") tinha que ser maiusculo.