douglasdamame

Oi, Vê se estes códigos te ajudam: http://www.imasters.com.br/artigo.php?cn=779&cc=2 http://www.imasters.com.br/artigo.php?cn=780&cc=2

Olá , No caso do exemplo que você esta dando, eles estão limitando mo tamanho das fotos pelo HTML.... Você pode ver que a foto original é esta: http://www.webflogger.com.br/carnabalada/DSC00023.JPG E no site, que até esta deformada é: http://www.webflogger.com.br/carnabalada/index.asp?y=268 Se você quer que fique desta forma, você deve colocar as fotos assim: <img src="Pasta/Imagem.jpg" width="500" height="360"> Onde, width é a largura e height é a altura.... Mas redimencionar as fotos mesmo, pelo que eu sei, somente com componentes.. Me diga uma coisa?? Você vai colocar seu fotolog em um servidor pago?? Se sim eles tem componentes de imagem !!!

Estou tendo um erro neste código que não mostra os registros. O erro que descreve é: ADODB.Recordset (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. Se eu tirar o FOR, ele funciona mas ai vai mostrar todos os registros e eu quero limitar.... Não sei se é um conflito com o DO, que faz mostrar em colunas... realmente preciso de uma luz !!!! <% strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/mercadonautico.mdb") Set rs = Server.CreateObject("adodb.recordset") sql="select * from classificados where destaque = 'Sim' and data_exp >= NOW() order by RND(INT(NOW*id_prod)-NOW*id_prod)" RS.Open SQL, strConnect, 1, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 3 If rs.eof then response.write "Não há registros gravados" Exit For Else %> <table align="center" border="0" cellspacing="10" cellpadding="5" width="120"> <tr> <% n = 1 c = 5 'c, é o numero de colunas Do while not RS.Eof %> <td valign="bottom" align="center"> <table width="110" border="1" cellspacing="0" cellpadding="0" height="150" bordercolor="#f0f0f0"> <tr> <td bgcolor="#f5f5f5" height="40" valign="middle"> <div align="center"><font size="1" color="#003366" face="Tahoma"><%=rs("titulo")%></font></div> </td> </tr> <tr> <td width="78" height="100" valign="middle" align="center"> <table width="110" border="0" cellspacing="0" cellpadding="0" height="110" align="center"> <tr> <td valign="middle" align="center"> <div align="center"><img src="fotos/destaque_<%=rs("foto")%>" border="0" align="absmiddle"></div> </td> </tr> </table> </td> </tr> <tr> <td bgcolor="#f5f5f5"> <div align="center"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font color="#FF0000"></font></font><font color="#FF0000"><b>R$</b></font><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font color="#FF0000"><b> <%=rs("preço")%></b></font></font></font></font><font color="#FF0000"></font></font></font></font></div> </td> </tr> </table> </td> <% n = n + 1 RS.Movenext If n > c then response.write "</tr><tr>" n = 1 End If Loop %> </table> <% RS.Movenext End If Next %>

Olá pessoal, recorro mais uma vez a vocês !!! Tenho que fazer um cadastro, onde terá varios campos TEXT e 06 campos FILE. Estes campos FILE serão para fotos.... O formulário esta pronto, mas meu problema esta em redimencionar as fotos. Sei que tem vários exemplos no aspjeg.com, mas não consigo entender como funciona. O meu servidor tem os dois componentes, para as imagens e para uoload. Se alguém puder postar um exemplo e como funciona para redimencionar varias imagens para um determinado tamanho (tipo largura 300 pixels) e ainda garvar no BD os Texts, agardeceria muito. Outro problema é que eu utilizarei a mesma imagem em vários tamanhos, ou seja, a imagem ao ser enviada será redimencionada para uma largura máxima de 300 pixels, mas terei também miniaturas de 75 de largura ou 75 de altura, para isso eu sei que teria que usar o código abaixo, mas vou ter que salvar isso no BD também??? ou não?? AspJpeg.PreserveAspectRatio = True If AspJpeg.OriginalWidth > 300 or AspJpeg.OriginalHeight > 300 Then If AspJpeg.OriginalWidth > AspJpeg.OriginalHeight Then AspJpeg.Width = 75 Else AspJpeg.Height = 75 End If End If else AspJpeg.Width = AspJpeg.OriginalWidth AspJpeg.Height = AspJpeg.OriginalHeight end if Estou completamente perdido nestes componentes e não existe na web um tutorial em português !!! Por favor, me ajudem..... um tutorial em potugues... um código.... Douglas

Olá ............ Acabei de testar, colocando uma nova verificação na hora de submeter o formulário, mas não funcionou. Até que é feito uma nova checagem e neste momento é mostrado novamente o Alert, mas quando se clica em OK, o Alert fecha e é encaminhando o campo com os valores inválidos automaticamente....

Olá Fercosminq, O problema é se eu fizer um reload(), eu apagaria todos os campos.... ou não?? o meu form teria muito outros campos, como: Titulo: textfield Descrição: textfield Categoria: Combo fotos1: Filefield fotos2: Filefield fotos3: Filefield fotos3: Filefield Até tentei colocar "javascript:location.reload()" após o Alert, mas apaga todos os outros campos já preencidos !!! Tem alguma outra forma de apagar sem o reload da página?? Eu estava pensando, na hora de submeter o form, colocar para verificar novamente o Function: <form name="form" method="post" ENCTYPE="multipart/form-data" action="cad_anuncio.asp" onsubmit="return verificaFoto()> Isso resolveria??? Eu ainda não testei, mas se sim cairia em um outro peoblema, pois neste form eu terei 6 Filefield, então serão 6 Function, como fazer o Onsubmit???

Olá, Muito obrigado pelas Funcões que me enviou..... Vou utilizar um outro script para os Uplods e fazer a verificação dos campos preenchidos pelo ASP... Valeu, Pra quem esta precisando de um Script para validar a extensão e o tamanho das imagens para o Upload: http://scriptbrasil.com.br/forum/index.php?showtopic=72682 ESTE SCRIPT NÃO É MEU, EU ACHEI AQUI NO FÓRUM... Moderadors, PODEM FECHAR O TÓPICO !!!! DOUGLAS

Peguei aqui no forum um Script de verifica a extensão e o tamanho do arquivo para Upload, por sinal Muiito Bom.... A questão agora é que quando o arquivo é inválido, sendo pela Extensão ou pelo Tamanho, o Campo continua com o endereço, então se o usuário enviar, será cadastrado no BD. Como limpar o campo preenchido???? Lembrando que existem outros campos no formulário então não da para dar um RESET..... Segue abaixo o Codigo: ----------------------------------------------------------- Segue o código com o erro resolvido... <html> <head> <title>Script de Fotos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="/includes/estilos/azul.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- .style4 { color: #FF0000; font-weight: bold; font-size: 10px; } .style5 {font-size: 10px} --> </style> <script> var escondido = 0; function preview() { img = document.getElementById('img'); if(escondido) { esc.innerHTML = '<a href="javascript:;" class="menu style5" onclick="preview()">(esconder)</a><br><img onload="getSize()" width="150" src="'+escondido+'" name="img" id="img">'; escondido = 0; } else { escondido = img.src; img.src = ''; esc.innerHTML = '<a href="javascript:;" class="menu style5" onclick="preview()">(mostrar)</a><br><img onload="getSize()" src="1px.gif" width="1" height="1" name="img" id="img">'; } } function find_array(arr,str) { for(i=0; arr.length>i; i++) { if(arr[i] == str) return 1; } return 0; } function verificaFoto() { var obj = document.getElementById('file'); var v = obj.value; var extencao=v.substr(v.length - 4).toLowerCase(); var extPerm = new Array(".gif",".jpg",".png","jpeg",".GIF",".JPG",".PNG","JPEG"); var img = document.getElementById('img'); img.src = "file://"+obj.value; img.width = 200; if(!find_array(extPerm,extencao)) { alert("Só são permitidas fotos nos formatos GIF, PNG e JPG/JPEG"); obj.value = ""; esc.innerHTML = '<br><img onload="getSize()" src="1px.gif" width="1" height="1" name="img" id="img">'; return 0; } escondido = img.src; if(escondido) preview(); } function getSize() { if(document.getElementById('img').fileSize > 200000) { alert("A foto não pode ter mais de 200 KB."); obj.value = ""; esc.innerHTML = '<br><img onload="getSize()" src="1px.gif" width="1" height="1" name="img" id="img">'; return 0; } return 1; } var escondido1 = 0; function preview1() { img1 = document.getElementById('img1'); if(escondido1) { esc1.innerHTML = '<a href="javascript:;" class="menu style5" onclick="preview1()">(esconder)</a><br><img onload="getSize1()" width="150" src="'+escondido1+'" name="img1" id="img1">'; escondido1 = 0; } else { escondido1 = img1.src; img1.src = ''; esc1.innerHTML = '<a href="javascript:;" class="menu style5" onclick="preview1()">(mostrar)</a><br><img1 onload="getSize1()" src="1px.gif" width="1" height="1" name="img1" id="img1">'; } } function find_array1(arr,str) { for(i=0; arr.length>i; i++) { if(arr[i] == str) return 1; } return 0; } function verificaFoto1() { var obj1 = document.getElementById('file1'); var v1 = obj1.value; var extencao1 = v1.substr(v1.length - 4).toLowerCase(); var extPerm1 = new Array(".gif",".jpg",".png","jpeg",".GIF",".JPG",".PNG","JPEG"); var img1 = document.getElementById('img1'); img1.src = "file://"+obj1.value; img1.width = 200; if(!find_array(extPerm1,extencao1)) { alert("São permitidas fotos nos formatos GIF, PNG e JPG/JPEG"); obj1.value = ""; esc1.innerHTML = '<br><img1 onload="getSize1()" src="1px.gif" width="1" height="1" name="img1" id="img1">'; return 0; } escondido1 = img1.src; if(escondido1) preview1(); } function getSize1() { if(document.getElementById('img1').fileSize > 200000) { alert("A foto não pode ter mais de 200 KB."); obj1.value = ""; esc1.innerHTML = '<br><img1 onload="getSize1()" src="1px.gif" width="1" height="1" name="img1" id="img1">'; return 0; } return 1; } </script> <script language="JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); // --> </script> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#666666"> <div id="Layer1" style="position:absolute; left:40%; top:-350px; width:300px; height:150px; z-index:1"> <table width="300" border="0" cellpadding="0" cellspacing="0" class="tabelaborda"> <tr> <td height="20" colspan="3" class="tabelatopo"><font face="Tahoma" size="1">&nbsp;AGUARDE...</font></td> </tr> <tr> <td height="10" colspan="3"><font face="Tahoma" size="1"><img src="1px.gif" width="1" height="1"></font></td> </tr> <tr> <td width="10" rowspan="2">&nbsp;</td> <td width="280" align="center" valign="middle" class="verdana12"> <div align="justify"><font face="Tahoma" size="1">Aguarde enquanto a foto está sendo enviada. Isto pode levar alguns segundos. <strong>Não pare este processo.</strong> </font></div> <td width="10" rowspan="2">&nbsp;</td> </tr> <tr> <td height="12" colspan="3" class="noticialink"><font face="Tahoma" size="1"><img src="1px.gif" width="1" height="1"></font></td> </tr> </table> </div> <form> <table width="510" border="0" cellpadding="0" cellspacing="5"> <input type="hidden" name="MAX_FILE_SIZE" value="1048576" /> <tr> <td valign="top"> <p class="texto"><b><font face="Tahoma" size="1">FOTO 1 :<br> <input type="file" id="file" onChange="verificaFoto()" name="file" size="20" /> </font></b></p> </td> </tr> <tr> <td valign="top" class="texto"><font face="Tahoma" size="1">Pré-visualização: <label id="esc"><br> <img src="1px.gif" name="img" id="img" width="1" height="1"></label></font></td> </tr> </table> <hr size="1"> <table width="510" border="0" cellpadding="0" cellspacing="5"> <input type="hidden" name="MAX_FILE_SIZE" value="1048576" /> <tr> <td valign="top"> <p class="texto"><b><font face="Tahoma" size="1">FOTO 2 :<br> <input type="file" id="file1" onChange="verificaFoto1()" name="file1" size="20" /> </font></b></p> </td> </tr> <tr> <td valign="top" class="texto"><font face="Tahoma" size="1">Pré-visualização: <label id="esc1"><br> <img src="1px.gif" name="img1" id="img1" width="1" height="1"></label></font></td> </tr> </table> <hr size="1"> </form> </body> </html> VALEU, DOUGLAS

Estou completamente perdido.... tentei a tarde toda e NADA... Tentei colocar o Form como exemplo que me passou mas acho que eu não sei o que estou fazendo!!! Estou colocando todo o Código, se puder ver o meu erro... <form name="Form" method="post" action="cad_anuncio.asp" onSubmit="return validateForm(this);verifica_extencao();" > <br> <font size="2"><b><font color="#003366">:: Tipo de Divulga&ccedil;&atilde;o ::</font></b></font> <hr width="100%" align="center" size="1"> <table width="90%" border="0" cellspacing="5" cellpadding="2" align="center"> <tr> <td width="22%" valign="middle" height="25"> <font color="#003366"><b><font size="1"> <input type="radio" name="destaque" value="sim" checked> <font size="2">Com destaque :</font></font></b></font> <table width="90" border="0" cellspacing="0" cellpadding="0" height="25" align="center"> <tr> <td> <div align="center"><b><font size="1" color="#003366">Valor:</font><font size="1" color="#FF0000"> R$ 0,00</font></b></div> </td> </tr> </table> </td> <td width="78%" height="25"><font size="1">- Seus an&uacute;ncios aparecer&atilde;o na primeira p&aacute;gina. A melhor exposi&ccedil;ao do site !!<br> - T&iacute;tulos em <b>Negrito</b>. Deixa o título com uma letra mais grossa, chamando mais a aten&ccedil;&atilde;o dos Compradores.<br> - <b>Destque na Lista da categoria</b>.<b> </b>Seu t&iacute;tulo estar&aacute; dentro de uma faixa colorida e com miniatura da foto do seu produto.</font></td> </tr> </table> <hr size="1" width="90%"> <table width="90%" border="0" cellspacing="5" cellpadding="2" align="center"> <tr> <td width="22%" valign="middle" height="25"> <font color="#003366"><b><font size="1"> <input type="radio" name="destaque" value="não"> <font size="2">Sem Destaque :</font></font></b></font> <table width="90" border="0" cellspacing="0" cellpadding="0" height="25" align="center"> <tr> <td> <div align="center"><b><font size="1" color="#003366">Valor:</font><font size="1" color="#FF0000"> R$ 0,00</font></b></div> </td> </tr> </table> </td> <td width="78%"><font size="1">- At&eacute; Seis fotos para divulgar seu produto.<br> - Divulga&ccedil;&atilde;o na Lista da categoria em que foi cadastrado.</font></td> </tr> </table> <hr width="100%" align="center" size="1"> <font size="2" color="#003366"><font size="1"><font size="2"><b><font color="#003366">:: Dados do An&uacute;ncio ::</font></b></font> <br> <br> <font color="#FF0000">* Campos s&atilde;o Obrigat&oacute;rios.<br> <font color="#003366">Para sua comodidade e seguran&ccedil;a verifique todos os seus dados antes de prosseguir. </font></font></font></font> <table width="100%" border="0" cellspacing="10" cellpadding="2" align="center"> <tr> <td width="38%"><b><font size="1" color="#003366" face="Tahoma">Data do Cadastro:</font></b></td> <td width="62%"><font size="2"> <%=now%></font></td> </tr> <tr> <td width="38%"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b> T&iacute;tulo do An&uacute;ncio: <font size="2"><b><font color="#FF0000">*</font></b></font><br> </b><font color="#000000">N&atilde;o &eacute; permitido nenhum c&oacute;digo HTML ou uso de asteriscos (*). M&aacute;ximo de 60 caracteres. </font> </font></div> </td> <td width="62%"> <input type="text" name="titulo" size="63" maxlength="60"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=titulo src="imagens/blankimage.gif" width=100></font><br> <font size="1"><b>Dica:</b> Use palavras descritivas que sejam de f&aacute;cil compreens&atilde;o e que possam atrair compradores. </font></td> </tr> <tr> <td width="38%"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Categoria:</b></font><font size="2"><b><font color="#FF0000"> *</font></b></font><font color="#003366" size="1" face="Tahoma"><b><br> </b> <font color="#000000">Selecione a categoria que seu produto mais se enquadra.</font></font></div> </td> <td width="62%"> <select name=id_cat> <option value="" selected>Selecione uma categoria </option> <% Dim Cat set Cat = Server.CreateObject("ADODB.Connection") Cat.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("database/mercadonautico.mdb") Cat.open %> <% set lista_categoria = Cat.Execute("SELECT * FROM categoria ORDER BY Categoria") While not lista_categoria.EOF %> <option value="<%=lista_categoria("id_cat")%>" <%If (lista_categoria("id_cat") = categoria) Then Response.Write "selected" End If%>><%=lista_categoria("categoria")%></option> <% lista_categoria.MoveNext Wend %> </select> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=id_cat src="imagens/blankimage.gif" width=100></font> </td> </tr> <tr> <td width="38%"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Estado do Produto:</b></font><font size="2"><b><font color="#FF0000"> *</font></b></font><font color="#003366" size="1" face="Tahoma"><b><br> </b> <font color="#000000">Seja honesto ao fazer a descri&ccedil;&atilde;o do produto em seu estado atual. </font></font></div> </td> <td width="62%"> <select name="condicao_prod"> <option value="" selected>Selecionar</option> <option value="NOVO">NOVO</option> <option value="USADO">USADO</option> </select> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=condicao_prod src="imagens/blankimage.gif" width=100></font> </td> </tr> <tr> <td width="38%" height="110"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Descri&ccedil;&atilde;o do Produto: </b></font><font size="2"><b><font color="#FF0000">*</font></b></font><font color="#003366" size="1" face="Tahoma"><b></b></font><font color="#003366" size="1" face="Tahoma"><b><br> </b><font color="#000000">C&oacute;digos HTML s&atilde;o permitidos - lembrando que a descri&ccedil;&atilde;o deve esclarecer a condi&ccedil;&atilde;o do produto, formas de pagamento e envio, prazos de entrega e outras informa&ccedil;&otilde;es adicionais que julgue necess&aacute;rio. </font></font></div> </td> <td width="62%" height="110"> <textarea name="descricao1" style="width:400; height:200"></textarea> <script language="javascript1.2"> editor_generate('descricao1'); </script> <br> <font size="1"><b>Dica:</b> Para fazer uma simples quebra de linha , digite Shift+Enter</font> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=descricao src="imagens/blankimage.gif" width=100></font></td> </tr> <tr> <td width="38%"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Pre&ccedil;o do Produto: </b></font><font size="2"><b><font color="#FF0000">*</font></b></font></div> </td> <td width="62%"> <b><font size="2">R$</font></b> <input type="text" name="preço" size="20"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=preço src="imagens/blankimage.gif" width=100></font> </td> </tr> <tr> <td width="38%" height="2"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Localidade do Produto:</b></font><font size="2"><b><font color="#FF0000">*</font></b></font></div> </td> <td width="62%" height="2"> <input type="text" name="cidade" size="30"> <b><font size="1" color="#008000" face="Verdana"> <select name="estado"> <option value="" selected>UF</option> <option value="AC" >AC</option> <option value="AL" >AL</option> <option value="AP" >AP</option> <option value="AM" >AM</option> <option value="BA" >BA</option> <option value="CE" >CE</option> <option value="DF" >DF</option> <option value="ES" >ES</option> <option value="GO" >GO</option> <option value="MA" >MA</option> <option value="MT" >MT</option> <option value="MS" >MS</option> <option value="MG" >MG</option> <option value="PA" >PA</option> <option value="PB" >PB</option> <option value="PR" >PR</option> <option value="PE" >PE</option> <option value="PI" >PI</option> <option value="RJ" >RJ</option> <option value="RN" >RN</option> <option value="RS" >RS</option> <option value="RO" >RO</option> <option value="RR" >RR</option> <option value="SC" >SC</option> <option value="SP" >SP</option> <option value="SE" >SE</option> <option value="TO" >TO</option> </select> </font></b><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><img border=0 height=10 name=estado src="imagens/blankimage.gif" width=100></font></b></td> </tr> <tr> <td width="38%"> <div align="left"><font color="#003366" size="1" face="Tahoma"><b>Telefone para Contato:<br> </b></font><font size="1" face="Tahoma">&Eacute; importante, mas n&atilde;o obrigat&oacute;rio o fornecimento de um telefone para contato. Informando, sua negocia&ccedil;&atilde;o poder&aacute; ser mais r&aacute;pida.</font></div> </td> <td width="62%"> <input type="text" name="telefone" size="30" value="<% response.write session("telefone") %>"> </td> </tr> <tr> <td width="38%"><b><font size="1" color="#003366" face="Tahoma">Data que Expira o An&uacute;ncio:</font></b></td> <td width="62%"><font size="2"> <%=now+30%></font></td> </tr> </table> <hr width="100%" align="center" size="1"> <table width="90%" border="0" cellspacing="10" cellpadding="2" align="center"> <tr> <td colspan="3"><font size="2"><b><font color="#003366">:: Gerenciamento de Imagens ::</font><font size="1"><font color="#FF0000"><br> S&oacute; &eacute; permitido o envio de arquivos com extens&otilde;es, .JPG, .JPEG e .GIF<br> Somente arquivos com menos de 400KB</font></font></b></font></td> </tr> <tr> <td width="49%" height="202"> <table width="100%" border="0" cellspacing="3" cellpadding="2"> <tr> <td colspan="2" height="3"><font size="1"><b>Envie as fotos diretamente do seu Computador para ilustrar seu An&uacute;ncio.</b></font></td> </tr> <tr> <td width="19%"><font color="#003366" size="1" face="Tahoma"><b>Foto 1 :</b></font></td> <td width="81%"> <input type="file" name="foto" size="20" class="form2" id="arq"> </td> </tr> <tr> <td height="24" width="19%"><font color="#003366" size="1" face="Tahoma"><b>Foto 2 :</b></font></td> <td height="24" width="81%"> <input type="file" name="foto1" size="20"> </td> </tr> <tr> <td width="19%" height="2"><font color="#003366" size="1" face="Tahoma"><b>Foto 3 :</b></font></td> <td width="81%" height="2"> <input type="file" name="foto2" size="20"> </td> </tr> <tr> <td width="19%"><font color="#003366" size="1" face="Tahoma"><b>Foto 4 :</b></font></td> <td width="81%"> <input type="file" name="foto3" size="20"> </td> </tr> <tr> <td width="19%"><font color="#003366" size="1" face="Tahoma"><b>Foto 5 :</b></font></td> <td width="81%"> <input type="file" name="foto4" size="20"> </td> </tr> <tr> <td width="19%"><font color="#003366" size="1" face="Tahoma"><b>Foto 6 :</b></font></td> <td width="81%"> <input type="file" name="foto5" size="20"> </td> </tr> </table> <div align="center"><font size="1" color="#FF0000">Obs: A &quot;Foto 1&quot; &eacute; a imagem principal do seu An&uacute;ncio.</font></div> </td> <td width="5%" valign="top" height="202"> <div align="center"><b><font size="4" color="#003366">OU</font></b></div> </td> <td width="46%" valign="top" height="202"> <div align="center"> <table width="100%" border="0" cellspacing="3" cellpadding="2" height="2%"> <tr> <td valign="top"> <div align="center"><font size="1"><b>Você pode digitar um endereço (URL) para buscar uma imagem em qualquer site. </b></font></div> </td> </tr> <tr> <td valign="top" height="2"> <div align="center"> <input type="text" size="35" maxlength="100" name="imgUrl"> <br> <font size="1" color="#FF0000"><b>Inserir o endere&ccedil;o completo, por exemplo:</b><br> http://www.website.com/imagem/foto.jpg</font></div> </td> </tr> </table> <font size="1"></font></div> </td> </tr> </table> <input type="hidden" name="ID_User" value="<% response.write session("ID_User") %>"> <hr width="100%" align="center" size="1"> <p> <input type="submit" name="submit" value="Enviar"> <br> <% end if end if %> </p> </form> Os JavaScripts que estão antes do </head> <script language="Javascript1.2"><!-- // load htmlarea _editor_url = "htmlarea/"; // URL to htmlarea files var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]); if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; } if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; } if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; } if (win_ie_ver >= 5.5) { document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"'); document.write(' language="Javascript1.2"></scr' + 'ipt>'); } else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); } // --> </script> <script language="JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); // --> </script> <script> function verifica_extencao() { var extensoesOk = ",.gif,.jpg, .jpeg"; var extensao = "," + document.form.foto.value.substr( document.form.foto.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao ) == -1 ) { alert( document.form.foto.value + "\nNão possui uma extensão válida" );javascript:location.reload()} else {javascript:tamanhos()} } function tamanhos() { var imagem=new Image(); imagem.src=document.form.foto.value; tamanho_imagem = imagem.fileSize img_tan = tamanho_imagem if (tamanho_imagem < 0) {javascript:tamanhos()} else if (tamanho_imagem > 400000) {alert("O tamanho da Imagem é muito grande ... "+tamanho_imagem+" Bytes!!");javascript:location.reload()} else } </script> <script LANGUAGE="JavaScript"> <!-- var haveerrors = 0; function showImage(imagename, imageurl, errors) { document[imagename].src = imageurl; if (!haveerrors && errors) haveerrors = errors; } function validateForm(f) { haveerrors = 0; (f.titulo.value.length < 5 ) ? showImage("titulo", "imagens/fieldempty.gif", true) : showImage("titulo", "imagens/blankimage.gif", false); (f.id_cat.value.length < 1 ) ? showImage("id_cat", "imagens/fieldempty.gif", true) : showImage("id_cat", "imagens/blankimage.gif", false); (f.condicao_prod.value.length < 2 ) ? showImage("condicao_prod", "imagens/fieldempty.gif", true) : showImage("condicao_prod", "imagens/blankimage.gif", false); (f.preço.value.length < 1 ) ? showImage("preço", "imagens/fieldempty.gif", true) : showImage("preço", "imagens/blankimage.gif", false); (f.cidade.value.length < 1 ) ? showImage("estado", "imagens/fieldempty.gif", true) : showImage("estado", "imagens/blankimage.gif", false); (f.estado.value.length < 1 ) ? showImage("estado", "imagens/fieldempty.gif", true) : showImage("estado", "imagens/blankimage.gif", false); return (!haveerrors); } // End --> function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script>

Olá Pessoal, Estou com um probleminha, pois preciso juntar estes dois Scripts e como não conheço muito de Java Script estou perdido. Já utilizei estes dois separadamente, mas agora gostaria de colocar tudo em um Form só, então a idéia seria juntar os dois Scripts !! Script verifica Extensão: <script> function verifica_extencao() { var extensoesOk = ",.gif,.jpg, .jpeg"; var extensao = "," + document.form.arq.value.substr( document.form.arq.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao ) == -1 ) { alert( document.form.arq.value + "\nNão possui uma extensão válida" );javascript:location.reload()} else {javascript:tamanhos()} } function tamanhos() { var imagem=new Image(); imagem.src=document.form.arq.value; tamanho_imagem = imagem.fileSize img_tan = tamanho_imagem if (tamanho_imagem < 0) {javascript:tamanhos()} else if (tamanho_imagem > 400000) {alert("O tamanho da Imagem é muito grande ... "+tamanho_imagem+" Bytes!!");javascript:location.reload()} else {location.href = "jogoupload_gravar.asp"} } </script> Script Verifica Campos: <script LANGUAGE="JavaScript"> <!-- var empty = new Image(); empty.src = "imagens/fieldempty.gif"; var Email = new Image(); Email.src = "imagens/emailerror.gif"; var zipcd = new Image(); zipcd.src = "imagens/fieldempty.gif"; var phone = new Image(); phone.src = "imagens/fieldempty.gif"; var haveerrors = 0; function showImage(imagename, imageurl, errors) { document[imagename].src = imageurl; if (!haveerrors && errors) haveerrors = errors; } function validateForm(f) { haveerrors = 0; (f.login.value.length < 2 ) ? showImage("login", "imagens/fieldempty.gif", true) : showImage("login", "imagens/blankimage.gif", false); (f.Senha.value.length < 4 ) ? showImage("Senha", "imagens/fieldempty.gif", true) : showImage("Senha", "imagens/blankimage.gif", false); (f.nome.value.length < 3 ) ? showImage("nome", "imagens/fieldempty.gif", true) : showImage("nome", "imagens/blankimage.gif", false); (f.sobrenome.value.length < 3 ) ? showImage("sobrenome", "imagens/fieldempty.gif", true) : showImage("sobrenome", "imagens/blankimage.gif", false); (f.dia.value.length < 1 ) ? showImage("nascimento", "imagens/fieldempty.gif", true) : showImage("nascimento", "imagens/blankimage.gif", false); (f.mes.value.length < 1 ) ? showImage("nascimento", "imagens/fieldempty.gif", true) : showImage("nascimento", "imagens/blankimage.gif", false); (f.ano.value.length < 1 ) ? showImage("nascimento", "imagens/fieldempty.gif", true) : showImage("nascimento", "imagens/blankimage.gif", false); (f.Cpf.value.length < 14 ) ? showImage("Cpf", "imagens/fieldempty.gif", true) : showImage("Cpf", "imagens/blankimage.gif", false); (f.Email.value.search("@") == -1 || f.Email.value.search("[.*]") == -1) ? showImage("emailerror", "imagens/emailerror.gif", true) : showImage("emailerror", "imagens/blankimage.gif", false); return (!haveerrors); } // End --> function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script> Bem, O primeiro script é acionado pelo Botão:<a href="javascript:verifica_extencao()">GRAVAR!!</a> O Segundo é pelo Form: <form name="Form" method="post" action="envia.asp" onSubmit="return validateForm(this)"> Como juntar os Dois?? No meu caso, estou fazendo um formulário, onde o visitante vai cadastrar algumas informações e também fazer uploads de fotos, portanto, para as informações seria para verificar se alguns campos obrigatórios estão vazios, mostrando uma imagem de alerta e para o Upload, verificar a extensão do arquivo... Por favor, Quem puder me ajudar serei muito grato, Douglas

Olá José !! Novamente me salvando de erros de principiante, mas um dia eu fico bom nisso !!!! Valeu novamente, Era isso mesmo... Funcionando agora..... Douglas

Não sei o porque esta dando errado este código. Ele é para fazer o login, mas quero colocar uma variante, que é o campo chamado "Confirmado". Se este campo estiver com o valor "0" ele envia o visitante para a página erro2.asp, se o valor for "1", o login é completado. <% 'Conexão com o banco de dados conexao="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("database/mercadonautico.mdb") Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao login=(Request.QueryString("login")) senha=(Request.QueryString("senha")) set acesso=DB.Execute("SELECT * FROM user WHERE login='"&login&"' AND senha='"&senha&"' ") if acesso.eof then Response.Redirect"erro.asp" else If Confirmado="0" then Response.Redirect"erro2.asp" Else Session("login")=login Session("nome")= acesso("nome") Session("Email")= acesso("Email") Session("login")= acesso("login") Session("Senha")= acesso("Senha") Session("Id_User")= acesso("Id_User") Session.TimeOut = 180 Response.Redirect"default.asp" end if end if DB.close %> O erro é que ele não esta verificando este Campo, mesmo com o valor "0" no BD ele faz o Login !!! Valeu, Douglas

JCMPJ MUITÍSSIMO OBRIGADO !!!!!!!!! Realmente, eu nem estou chamando a Function em nenhum local então para que coloca-lo no meio do código....... rsrsrsrsrs............ Valeu, mesmo.... Esta funcionano perfeitamente !!!!!!! Obrigado novamente, Douglas

Eu deixei esta linha em branco pis eu não quero que ele mostre CPF VÁLIDO !!! Eu quero que se o CPF for válido ele cadastra se não for ele mostra o ERRO..... Mas isso, depois de fazer as outras verificações que tenho.....

Olá, Eu faria da seguinte forma: Você esta fazendo este cadastro e posteriormente vai querer mostrar estes dados em outras páginas, né? Então eu faria o cadastro da pessoa e se ela não adicionar nenhuma foto eu deixaria o campo do BD em Branco. Na hora de chamar os dados nas páginas onde aparecerão as informações eu faria: <% if rs("Cfoto") = "" then %> <img src="imagens/semfoto.gif" border="0" align="left" hspace="8" vspace="2"> <% else %> <img src="imagens/<%=rs("Cfoto")%>" border="0" align="left" hspace="8" vspace="2"> <% end if %> Não sei se é isso ou eu entendi mal o que você quer fazer. Neste exemplo eu faria uma imagem padrão chamada "semfoto.gif" e colocaria na pasta "Imagens" e se ao chamar os dados para mostrar, o campo "Cfoto" estivesse vazio, chamaria esta imagem padrão. OBS: Este código você coloca na hora de chamar as insformações e não na hora do cadastro. Se não te ajudei, fica para uma próxima..... Douglas

VOU TE ENVIAR UM CÓDIGO: INDIQUE.ASP <form name="form1" action="Indicar.asp" > <table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" height="2%"> <tr> <td> <table border="1" width="125" cellspacing="1" cellpadding="0" align="center" height="1" bordercolor="c0c0c0" bgcolor="c0c0c0"> <tr> <td height="2" bgcolor="c0c0c0"> <div align="center"><font size="2" color="#000000"><b><font face="Verdana" size="1"><font color="#666666" size="2">Indique-nos</font></font></b></font></div> </td> </tr> <tr> <td height="1" bgcolor="f0f0f0"> <p align="center"><font size="1" face="Verdana" color="#000000"><b>Seu Nome:</b></font> </td> </tr> <tr> <td height="25" bgcolor="#f0f0f0"> <p align="center"><font size="2" face="Verdana" color="#000000"> <input type="text" name="txtnome" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"> </font> </td> </tr> <tr> <td height="1" bgcolor="f0f0f0"> <p align="center"><font size="1" face="Verdana" color="#000000"><b>Nome do Amigo(a):</b></font> </td> </tr> <tr> <td height="25" bgcolor="e5e5e5"> <p align="center"><font size="2" face="Verdana" color="#000000"> <input type="text" name="txtnomeamigo" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"> </font> </td> </tr> <tr> <td height="1" bgcolor="f0f0f0"> <p align="center"><font size="1" face="Verdana" color="#000000"><b>E-mail do Amigo(a):</b></font> </td> </tr> <tr> <td height="25" bgcolor="f0f0f0"> <p align="center"> <font color="#000000"> <input type="text" name="txtemailamigo" size="15" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"> </font> </td> </tr> </table> </td> </tr> </table> <div align="center"><font color="#000000"> <input type="submit" value="&lt;&lt; OK &gt;&gt;" name="Submit"> </font> </div> </form> INDICAR.ASP <% Option Explicit Dim var_nome, var_amigo, var_to, EnviarMail, MsgBody var_nome = Request.QueryString("txtnome") var_amigo = Request.QueryString("txtnomeamigo") var_to = Request.QueryString("txtemailamigo") Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = "SEUE-MAIL@SEUSITE.com.br" EnviarMail.Subject = "Indicação do seu Amigo(a) " & var_nome & "" MsgBody = "<html>" _ & "<head>" _ & "</head>" _ & "<body bgcolor=""#FFFFFF"">" _ & "<p align=""left""><font face=""Verdana"" size=""2"">Olá <b>" & var_amigo & "</b>,<br> Seu amigo(a) <b>" & var_nome & "</b>, visitou nosso site e recomendou-o para você.<br><br> <p>Acesse:<br><a href=""http://www.SEUSITE.com.br""><b>http://www.SEUSITE.com.br</b></a></p><p>Estaremos aguardando sua visita.</font><br></p>" _ & "</body>" _ & "</html>" EnviarMail.Body = MsgBody EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 EnviarMail.Send Set EnviarMail = Nothing Response.redirect "Obrigado_indicar.asp" %> Veja como eu fiz e tente entender...... Douglas

Olá, Estou tentando fazer uma validação do CPF que esta sendo cadastrado. Busquei aqui um Script e testando ele separadamente sei que funciona, mas ao colocar no meu código ele simplesmente não valida, passando direto se cadastrando o usuário. O campo que esta sendo preenchido se chama CPF. <% db = "database/mercadonautico" 'caminho pro db sem .mdb, NÀO MUDE Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath(db) ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub AbreConexao If request.form("enviado") = "sim" Then Cadastrado =False set Dicionario = CreateObject("scripting.dictionary") i = 0 Sql = "SELECT Login FROM user WHERE Login = '"&Request.form("Login")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "- O Login : <b>" & Request.Form("login") & " </b> já esta Cadastrado no nosso Banco de Dados !" i= i+1 end if Sql = "SELECT email FROM user WHERE email = '"&Request.form("email")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "- O E-mail : <b>" & Request.Form("email") & " </b> já esta cadastrado no nosso Banco de Dados !" i= i+1 end if Sql = "SELECT cpf FROM user WHERE cpf = '"&Request.form("cpf")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "- O CPF : <b>" & Request.Form("cpf") & " </b> já esta cadastrado no nosso Banco de Dados !" i= i+1 end if ' O PROBLEMA COMEÇA QUI !!!!! '|///////////////////////////////////////////////////////////| '| | '| Funcao para Verificar CPF | '| | '|///////////////////////////////////////////////////////////| function CalculaCPF() Dim RecebeCPF, Numero(11), soma, resultado1, resultado2 RecebeCPF = Request.form("cpf") 'Retirar todos os caracteres que não sejam 0-9 s="" for x=1 to len(RecebeCPF) ch=mid(RecebeCPF,x,1) if asc(ch)>=48 and asc(ch)<=57 then s=s & ch end if next RecebeCPF = s if len(RecebeCPF) <> 11 then response.write("<h1>&Eacute; obrigat&oacute;rio o CPF com 11 d&iacute;gitos</h1>") elseif RecebeCPF = "00000000000" then response.write("<h1>CPF Inválido</h1>") else Numero(1) = Cint(Mid(RecebeCPF,1,1)) Numero(2) = Cint(Mid(RecebeCPF,2,1)) Numero(3) = Cint(Mid(RecebeCPF,3,1)) Numero(4) = Cint(Mid(RecebeCPF,4,1)) Numero(5) = Cint(Mid(RecebeCPF,5,1)) Numero(6) = CInt(Mid(RecebeCPF,6,1)) Numero(7) = Cint(Mid(RecebeCPF,7,1)) Numero(8) = Cint(Mid(RecebeCPF,8,1)) Numero(9) = Cint(Mid(RecebeCPF,9,1)) Numero(10) = Cint(Mid(RecebeCPF,10,1)) Numero(11) = Cint(Mid(RecebeCPF,11,1)) soma = 10 * Numero(1) + 9 * Numero(2) + 8 * Numero(3) + 7 * Numero(4) + 6 * Numero(5) + 5 * Numero(6) + 4 * Numero(7) + 3 * Numero(8) + 2 * Numero(9) soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado1 = 0 else resultado1 = 11 - soma end if if resultado1 = Numero(10) then soma = Numero(1) * 11 + Numero(2) * 10 + Numero(3) * 9 + Numero(4) * 8 + Numero(5) * 7 + Numero(6) * 6 + Numero(7) * 5 + Numero(8) * 4 + Numero(9) * 3 + Numero(10) * 2 soma = soma -(11 * (int(soma / 11))) if soma = 0 or soma = 1 then resultado2 = 0 else resultado2 = 11 - soma end if if resultado2 = Numero(11) then else Dicionario.add i, "- O CPF : <b>" & Request.Form("cpf") & " </b> É Inválido !" i= i+1 end if else Dicionario.add i, "- O CPF : <b>" & Request.Form("cpf") & " </b> É Inválido !" i= i+1 end if end if end function ' FIM DO MEU PROBLEMA..... RSRSRSRS Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "<Left><font face=Tahoma size=1>" Response.Write "<b>ATENÇÃO:</b><br>Encontramos o(s) seguinte(s) Problema(s) no seu Cadastro:<br><BR><br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<BR><br>" next response.write "<BR><br>" response.write "Por favor, <a href=javascript:self.history.go(-1)><b><font size=1 color=990000>Clique Aqui</font></b></a> para retornar e corrigir.<br><br>" response.write "Caso os dados estejam corretos, clique em <a href=login.asp><img src=imagens/button_login.gif width=45 height=20 border=0></a> para fazer seu Login.<br><br>" Else Sql = "INSERT INTO user (login, senha, nome, sobrenome, dia, mes, ano, cpf, email, endereco, numero, bairro, cidade, estado, cep, telefone) " Sql = Sql & "VALUES('" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("nome") & "', '" & Request.Form("sobrenome") & "', '" & Request.Form("dia") & "', '" & Request.Form("mes") & "', '" & Request.Form("ano") & "', '" & Request.Form("cpf") & "', '" & Request.Form("email") & "', '" & Request.Form("endereco") & "', '" & Request.Form("numero") & "', '" & Request.Form("bairro") & "','" & Request.Form("cidade") & "', '" & Request.Form("estado") & "', '" & Request.Form("cep") & "' , '" & Request.Form("telefone") & "' )" Conexao.Execute(Sql) Cadastrado = True End If End If If Cadastrado = False Then Else email = request.form("email") Set MyCDONTSMail = CreateObject("CDONTS.NewMail") ' Aqui é enviado os dados por e-mail O sistema ta funcionando, verificando se já existe no BD, cadastrando e enviando por e-mail, mas não valida um CPF por exemplo: 111.111.111-11..... Se puderem me ajudar, serei muito grato eternamente......... Douglas

Obrigado pela informação, Não sabia que poderia ser feito assim.... Vou buscar ler mais sobre o assunto.. Valeu, Douglas

Olá, Estou com um sistema de Login com Session funcionando corretamente e um dos campos se chama ID_Cliente. O caso é que estes visitantes ao se logarem, terão acesso a uma página para cadastrar Classificados e o meu problema é como gravar este ID_Cliente que esta na Session para o BD. Eu estou com 2 tabelas, uma para os Usuarios: ID_Cliente, Nome, E-mail, Telefone...... A outra tabela para os Classificados: ID, ID_Cliente, Titulo, descrição,..... O que eu quero é que ao cadastrar o Classificado, seje puxado o Session (Caso ele esteja Logado) ID_Cliente... Andei buscando informações sobre o tema e pelo que eu entendi eu tenho que declarar e chamar para uma outra variável: Dim ID_cliente ID_Cliente = session("ID_Cliente") Mas como eu gravaria esta variável?? Poderia ser Assim??:: <input type="hidden" name="ID_cliente" value="<%("ID_cliente")%>"> Bem se puderem me ajudar nesta dúvida... Obrigado Douglas

bem, tenta assim: <% 'Conexão com o banco de dados conexao="DBQ=C:\Inetpub\wwwroot\login\users.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao User=(Request.QueryString("User")) Pass=(Request.QueryString("pass")) set user=DB.Execute("SELECT * FROM users WHERE user='"&user&"' AND pass='"&pass&"' ") ' Caso os dados não estiverem corretos if user.eof then Response.Redirect"errado.asp" else Response.Redirect"user_index.asp" end if DB.close %>

Olá, Bem , o que eu qyero com este Select é mostrar apenas os registros de anuncios que ainda não Exipraram.... O agora() + 30 ou Now() +30 ..... é a função que coloquei na tabela ACSSES para qure na hora do registro ele já coloca em um campo o valor da data mais 30 dias, que seria este o prazo de expiração.. então com este Select eu quero que seja mostrado apenas os registros que ainda estão dentro do prazo.... Bem, acho que poderia fazer isso com IF também, mas se o Select já me mostrar o que eu quero já economizaria algumas linhas... hehehehehe Vou fazer uma busca e se não conseguir volto a postar aqui!!!!! valeu, Muito obrigado, Douglas

Olá Pessoal, estou uma uma dúvida: Estou montando um sistema de classificados parecido com a MercadoLivre, e minha primeira duvida é com o Select. No meu BD tenho registrado em um campo chamado "anuncio_exp" a data que expira o anuncio com a função agora()+30 então na hora do Select para mostrar os anuncios válidos seria: set rs=conn.execute("SELECT * FROM Classificados WHERE anuncio_exp =< NOW() ORDER BY ID") Isso ta correto?? ======================== Outra dúvida seria como mostrar os dias que faltam para este anuncio sair do ar, tipo. O anuncio: Cadastrado em : 14/01/2006 00:46:10 Expira em : 13/01/2006 00:46:10 Se hoje fosse dia 18/01/2006 me mostraia desta forma por exemplo: Finaliza em: 26d 13h (13/01/2006 00:46:10) Até mostrar o registro da data que expira, ta beleza,......, mas esta subitração entre a data e hora atual e o cadstrado eu não tenho nem idéia.... Veleu, Douglas

Olá, me informa uma coisa? O que você quer é um sistema de notícias com foto?? Os campos seriam: - Chamada (Para colocar na primeira página com uma foto pequena) - manchete (Texto) - Foto Seria isso com um painel administrativo? Quem vai editar as fotos? Pois no meu sistema eu utilizo uma largura máxima para não estragar o visual do site. Veja se te interessa em www.rugbymagazine.com.br o meu sistema de notícias... Infelizmente para fazer um portal completo eu não teria tempo, mas posso te ajudar enviando meus sistemas e você os modifica e inseri no seu portal. Douglas Damame webmaster@rugbymagazine.com.br

Andreia, Muiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitissimo Obrigado!!! Feliz Natal e um ótimo ano ano !!!!

Estou tentando utilizar uma Combo como Menu para navegação. Este Combo esta sempre preenchido com dados do BD (Até ai, tudo OK) e o ID destes dados é que seriam para incrementar o Link para uma nova página, onde apareceria os dados referentes ao ID. ------------------------------------------------------------- Página 1 - Combo <table width="600" border="2" cellspacing="2" cellpadding="2" bordercolor="#000000" bgcolor="#CCCCCC"> <tr> <td width="553" bgcolor="#FFCC00" height="7" > <table width="100%" border="0" cellspacing="2" cellpadding="1"> <form name="form1" action="view_fotos.asp" method="post" enctype="multipart/form-data"> <tr> <td width="27%"> <div align="right"><b><font size="2" face="Tahoma">Selecione um Albuns:</font></b></div> </td> <td width="73%"> <select name=Id_cat> <option value=nulo selected>Selecione um Album </option> <% Dim Cat set Cat = Server.CreateObject("ADODB.Connection") Cat.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\rio2005\db\fotos.mdb" Cat.open %> <% set lista_categoria = Cat.Execute("SELECT * FROM Menu ORDER BY ID DESC") While not lista_categoria.EOF %> <option value="<%=lista_categoria("id")%>" <%If (lista_categoria("id") = Nome_cat) Then Response.Write "selected" End If%>><%=lista_categoria("Nome_cat")%></option> <% lista_categoria.MoveNext Wend %> </select> <input type="submit" name="submit" value="Ver Fotos"> </td> </tr> </form> </table> </td> </tr> </table> ---------------------------------------------------------- Página 2 - Onde aparecerão os dados dependendo do ID <% 'Faço a conexão com o bd e recupero os dados cnpath="DBQ=" & Server.MapPath("DB/fotos.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") id = request.form("id_cat") Conn.Open DataSource set rs=conn.execute("SELECT * FROM Foto where id =" & id & " ORDER BY id DESC") %> <table> <tr> <% n = 1 c = 5 'c, é aqui que você controla o numero de colunas Do while not RS.Eof %> <td width="20%"><font size="1" color="#FFFFFF"><b><font size="2" face="Verdana"><font color="#000000"><font size="2" face="Verdana"><img src="imagens/<%=rs("foto")%>" border="0" hspace="8" vspace="2" width="120" height="100"></font></font></font></b></font></td> <% n = n + 1 RS.Movenext If n > c then response.write "</tr><tr>" n = 1 End If Loop %> -------------------------------------------------------------------------- O prblema é: Não funciona e eu não sei como faze-lo funcionar !!! rsrsrsrs Por favor, ajudem um mortal sem muito conhecimento!!! Obrigado, Douglas