ANDRE_GUSTAVO

Iai Rafael, so na paz?!?!? Cara é o seguinte, a página galeria_fotos.asp * lista os albuns de fotos cadastrados no DB * o user, escolhe qual album ele vai vizualizar, quando clica no link do album desejado, abre uma popUP referente ao album escolhido. * essa popup lista as fotos do album e os dados do album ("nome", "data", "local", "cidade") em um iframe, e em outro iframe na mesma janela é exibido as fotos em tamanho real. O PROBLEMA quando clico no link para para exibir o album, a popup abre beleza, porem, em qualquer link que eu clico é exibido o mesmo album. abaixo a pagina galeria_fotos.asp <%@LANGUAGE="vb script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a></b></span><br /> <strong><br /> </strong><br /> <strong>&nbsp;Data:</strong> <%= rsGaleria("DataFesta") %><br /> <strong>&nbsp;Local:</strong> <%= rsGaleria("Local") %><br /> <strong>&nbsp;Cidade:</strong> <%= rsGaleria("Cidade") %>-<%= rsGaleria("Estado") %><span class="style4">.</span> <br /> <span class="style4">.</span></div></td> </tr> <tr> <td height="14" bgcolor="#000000"><div align="right"><span class="style9"><span class="style16">+Ver Album</span>&nbsp; </span></div></td> </tr> <% i = i+1 Count = Count + 1 'paginacao rsGaleria.MoveNext LOOP 'tb paginacao %> </table></td> </tr> <tr> <TD></TD> </tr> <td><div align="center"><span class="style15"><br /> <% Response.Write("Página " & PagAtual & " / " & TotalPages & " ") %> </span><br /> <br /> </div></td> </tr> <td height="18" align="center" valign="middle" background="imagens/layout-visteon_r2_c3.jpg" bgcolor="#666666"> <div align="center" class="style10"> <% 'Coloca o Nº página atual / Nº Total de páginas 'Mostra os botões: Anterior e Próximo, utilizando da opção de IF '----------- Numeros - Calculos --------------------------------------------- var01 = Len(PagAtual) 'Lê o tamanho do numero var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig. var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero var05 = var03 & 0 ' Acrecenta ZERO no final IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero inicial = var05 + 1 final = inicial + 9 ELSE inicial = var05 - 9 final = var05 END IF indice_i = var04 - 1 'ultimo digito - 1 indice_f = 10 - var04 ' 10 - digito menos sig. If CInt(inicial) < 1 Then inicial = 1 if CInt(final) > CInt(TotalPages) Then final = TotalPages '------------------------------------------------------------------------------ IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></B>&nbsp;&nbsp;") IF PagAtual > 10 THEN Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & inicial - 1 & "'>") Response.Write("...") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") END IF Else Response.Write("<B>") Response.Write("Primeira") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Anterior") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") End If '---------------------- NUMEROS --------------------------- For i = inicial To final If CInt(i)=CInt(PagAtual) Then Response.Write "[ <B>" & i & "</B> ]</font>&nbsp;&nbsp;" END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;" END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN '##### CONDIÇÕES ######## 'digitos mais significativos do Numero com 1 no fim > PagAtual 'EX: 21 [ 22 ] 23 24 25 2 com 1 => 21 > 22 (F) 'OU 'PagAtual <= 10 E TotalPages > 10 'EX: ... 1 2 3 4 [ 5 ] 6 ... 5 <= 10 (V) E 6 > 10 (F) IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & final + 1 & "'>") Response.Write("...") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") END IF Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Próxima") Response.Write("</a></B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("<a href='galeria_fotos.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></B>&nbsp;&nbsp;") ELSE Response.Write("<B>") Response.Write("...") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Próxima") Response.Write("</B>&nbsp;&nbsp;") Response.Write("<B>") Response.Write("Ultima") Response.Write("</B>&nbsp;&nbsp;") End If loop %> </div></td> </tr> </table> </body> </html> Rafael essa é a pagina que lista os albuns cadastrados no DB

Boa tarde galera Aqui estou eu com mais um problema Estou com um álbum de fotos, para ser aberto em uma popup, Quando clico no link de cada álbum a janela popUp esta sendo aberta Porem em qualquer link que eu clico esta sendo aberto o mesmo álbum Na janela que exibe as fotos tenho 2 iframes, uma para as fotos em miniaturas e outro com as fotos no tamnho real. Esses sistema buscas as fotos direto no diretório, os dados de cada álbum que esta registrado no DB para abrir cada álbum é o campo URL(onde coloquei a url de de cada album) Ex: | url | galeria/Noite_festa_amigo/galeria.asp Vou postar meus códigos abaixo Pagina com os links para cada álbum: Galeria_fotos.asp (js e link para galeria) . . . <script language="JavaScript"> <!-- function AbrirPopup(id_titulo, window_path , W , H ){ window.open('<% =rsGaleria("URL") %>?'+id_titulo,'miniwin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width='+W+',height='+H+',top=100,left=100'); } //--> </script> . . . . <a href="java script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a> Agora a pagina que exibe o album: Galeria.asp (iframes) <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE ="conexaodb.inc"--> <% dim rsGaleria , strSQL , contador call AbreConexao strSQL = "SELECT * FROM galeria where URL = '"&request.QueryString("id")&"' " SET rsGaleria = conexaodb.Execute(strSQL) %> <tr> <td height="400" align="center" valign="top" bgcolor="#000000"><div> <iframe id="fotos" style="background:#000000" name="fotos" src="fotos.asp" width="480" height="400" scrolling="default" frameborder="no" marginwidth="0" marginheight="0" ></iframe> </div></td> <td align="center" valign="top"> <iframe id="mini" align="center" name="mini.asp" src="mini.asp" width="168" height="400" scrolling="default" frameborder="no" marginwidth="0" marginheight="0" ></iframe> <div align="left"></div></td> </tr> <tr> <td height="19" colspan="2" background="layout/ul_bg2.jpg">&nbsp;</td> </tr> </table> </body> </html> Pagina das miniaturas: Mini.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#INCLUDE FILE ="conexaodb.inc"--> <% dim rsGaleria , strSQL , contador call AbreConexao strSQL = "SELECT * FROM galeria " SET rsGaleria = conexaodb.Execute(strSQL) %> . . . <body> <table width="144" height="239" border="0" align="center" cellpadding="2" bgcolor="#333333"> <tr> <td height="34" colspan="2" bordercolor="#000066" bgcolor="#000000"> <span class="style1"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> </font></span> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><div align="center" class="style2"> <% = rsGaleria("NomeFesta") %> </div></td> </tr> <tr> <td>&nbsp;</td> </tr> <tr> <td><div align="right"><span class="style1">&nbsp; <% = rsGaleria("DataFesta") %> </span></div></td> </tr> <tr> <td><div align="right"><span class="style1"> &nbsp; <% = rsGaleria("Local") %> </span></div></td> </tr> <tr> <td><div align="right"><span class="style1"> <% = rsGaleria("Cidade") %> - <% = rsGaleria("Estado") %> </span></div></td> </tr> </table> </td> </tr> <% response.Buffer = true response.Write "<Tr>" DIM FSO , ARQ , PASTA SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT") SET PASTA = FSO.GETFOLDER(SERVER.MapPath("imagens/")) contator = 0 %> <% For each ARQ in PASTA.Files if(contador mod 2) = 0 then response.Write "</TR>" response.Write "<tr>" end if %> <td width="142" bgcolor="#000000"><div align="center"> <font size="-2"> <% nomeArquivo = ARQ.NAME %> <A NAME="<%= contador %>" href="imagens/<%= nomeArquivo %>" target="fotos" onclick="contador.nome.value='<%= nomeArquivo %>'; salvacookie();"><img src="imagens/<%= nomeArquivo %>" border="0" width="55" height="55" /></A> </font> </div> </td> <% contador = contador + 1 if contador = 50 then exit for end if next %> </table> </body> Desde já agradeço pela atenção e ajuda de todos até breve.

Com certeza bareta... pode crer sempre uso o sistema de busca do forum, porem de uma forma bem superficial minhas buscas serao mais profundas agora ihaiuahiauhiauhau ate mais bareta

hauaihauaiuahiauhaiuhai O que seria do mundo sem pessoas assim como você heim ....?!??!? Muito bom Rafael.... Consegui iuahiauaiuahiuahiau ta funcionando belezinha cara... e tem mais funcionalidades de que eu esta precisando De primeira deu certo Ate breve cara valeu mais uma vez pela sua ajuda. Sucessos pra você.

Rafael, beleza ? descupa pelo meu "pessimismo" cara, minha intenção não era essa, de ser pessimista, mas sem perceber acabei sendo, concordo com você, talvez eu não tenha usado as palavras certas para me expressar. Eram quase 2 da madruga quando postei o tópico, meu cerebro, já não tava funcionando direito.... hehehehheheheh Mais uma vez obrigado pela sua ajuda cara valeu mesmo. ate breve manim

Fala ai Rafael, so na paz? Passei uns dias sumido cara... tava aprendendo instalar o mysql hehhe, demorei uns 3 dias pra aprender instalar, agora ta funcionando beleza, as vezes da uns tilt, não sei o porque, mas ta valendo. deixei o access de lado. é heim so subindo de cargo aqui no forum... hehehheheh quem sabe um dia eu chego la iauhiuahuaiuha Vamos ao que interessa... minha paginação esta sendo exibida assim: 1 2 3 4 5 6 7 8 9 10 11 12 13 [ 14 ] 15 por exemplo, se o total de paginas for 50 sera exibido 50 links, entendeu ?

Gostaria de saber como fazer para a paginação ficar assim: Primeira | Anterior 1 2 3 4 5 6 7 8 [9] 10 ... Proxima | Ultima e quando clicasse na 10 Primeira | Anterior 11 12 [13] 14 15 16 17 18 19 20 ... Proxima | Ultima a parte do meu codigo para exibir os links: <% contar = 1 While contar <= rsGaleria.PageCount If PaginaAtual = contar Then Response.Write("<B>["&contar&"]</B> ") Else Response.Write("<a href=""galeria_fotos.asp?Pages="&contar&""" "" title=""Página "&contar&""">"&contar&"</a> ") End If contar = contar + 1 Wend End If %> a páginação ta funcionando beleza, pra fechar so falta esse detalhe. ajuda ai galera desde já obrigado a todos

Não saco nada de MySql mas pelo q foi postado o erro e na sintaxe da sua query. Tenta rodá-lo no cliente do Mysql e verifique se roda corretamente. Faça só um teste pois acho que no MySql deve-se finalizar as query´s com ; assim: strSQL = "SELECT * FROM usuarios order by Id_usuarios; " fala jothaz beleza cara...?!?! fiz o que me indicou, mas não deu certo ainda continua com o mesmo erro.

fala ai galera so na paz?!?!? aqui estou com mais um problema, é o seguinte estou tentando desenvolver um sistema com asp e mysql mas quando mando exibir os registros da o seguinte erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [MySQL][ODBC 5.1 Driver]You have an error in your SQL syntax near 'character_set_results = NULL' at line 1 /VISTEON_SOUND/db_visteon/conexaodb.inc, line 6 conexaodb.inc <% dim Conexaodb sub AbreConexao Set Conexaodb = Server.CreateObject("ADODB.Connection") Conexaodb.open "driver=MySQL ODBC 5.1 Driver;server=localhost;uid=root;pwd=;database=visteon_sound" end sub Sub FechaConexao Conexaodb.close set Conexaodb = nothing end sub %> exibeusuario.asp <!--#INCLUDE FILE ="db_visteon/conexaodb.inc"--> <% dim rsUsuarios , strSQL call abreconexao strSQL = "SELECT * FROM usuarios order by Id_usuarios " SET rsUsuarios = conexaodb.Execute(strSQL) response.write(rsUsuarios("nome")) response.End() %> como resolver esse problema? desde já obrigado pela atenção e ajuda de todos

cara a pagina não ta abrindo "Page Not Found"

Fala ai irmaozim... so na paz?!?! não tem nada o que descupar não cara. Sim cara, estou utilizando access tem alguma coisa haver?

Olá jothaz, td bem? desde já agradeço sua atenção. Pode me explicar melhor sobre o que me citou acima? sou bastante leigo, o trabalho que estou desenvolvendo é o meu primeiro, e eu estava pensado que estava terminando, so esta faltando o painel de controle, mas diantes desses fatos estou vendo que terei que rever toda a parte de programação do site que estou desenvolvendo. não tenho noção do que seria Stored Procedure como seria esse Javascript Injetion ? Se puder me explicar ficarei grato Obrigado

Fala ai galera... Estava pesquisando sobre SQL INJECTION, e encontrei essa função que bloqueia o sql injection. Gostaria de saber se ela esta completa, se realmente esta bloqueando a ação sql injection? E também gostaria de saber como usa-la corretamente, onde coloca-la, etc? Se possivel exemplifique um caso usando a funçao abaixo esta a função <% function LimparTexto(str) str = trim(str) str = lcase(str) str = replace(str,"=","") str = replace(str,"'","") str = replace(str,"""""","") str = replace(str," or ","") str = replace(str," and ","") str = replace(str,"(","") str = replace(str,")","") str = replace(str,"<","[") str = replace(str,">","]") str = replace(str,"update","") str = replace(str,"-shutdown","") str = replace(str,"--","") str = replace(str,"'","") str = replace(str,"#","") str = replace(str,"$","") str = replace(str,"%","") str = replace(str,"¨","") str = replace(str,"&","") str = replace(str,"'or'1'='1'","") str = replace(str,"--","") str = replace(str,"insert","") str = replace(str,"drop","") str = replace(str,"delet","") str = replace(str,"xp_","") str = replace(str,"select","") str = replace(str,"*","") LimparTexto = str end function %> Desde já obrigado pela atenção.

Fala ai manim.. so na paz ??!? mais uma vez valeu pela ajuda heim... cara o preciso dele, porque na area de administração do sistema, o administrador irá precisar saber qual usuario cadastrou tal máquina. Funciona assim.... o usuario se cadastra... 'TBL_USUARIO' somente depois de se cadastrar que o usuario podera incluir seus anuncios referentes a maquina que deseja vender, quando ele faz o anuncio da maquina que deseja vender, os dados da máquina vão para 'TBL_MAQUINAS_VENDA' a tabela 'TBL_MAQUINAS_VENDA' recebe o 'ID_USUARIO' da tabela 'TBL_USUARIOS' Fala ai manim.. so na paz ??!? mais uma vez valeu pela ajuda heim... cara o preciso dele, porque na area de administração do sistema, o administrador irá precisar saber qual usuario cadastrou tal máquina. Funciona assim.... o usuario se cadastra... 'TBL_USUARIO' somente depois de se cadastrar que o usuario podera incluir seus anuncios referentes a maquina que deseja vender, quando ele faz o anuncio da maquina que deseja vender, os dados da máquina vão para 'TBL_MAQUINAS_VENDA' a tabela 'TBL_MAQUINAS_VENDA' recebe o 'ID_USUARIO' da tabela 'TBL_USUARIOS' já ia me esquecendo... O DB é access

Fala galera... so na paz?!?!? Pessoal estou tentando fazer a exclusão de usuarios, mas esta dando esse erro ai: O registro não pode ser excluído ou alterado porque a tabela 'TBL_MAQUINAS_VENDA' inclui registros relacionados a ele. line 29 ----> conexaoDB.Execute(strINS) <% Response.Expires = 0 DIM conexaoDB , rsSalva , rsSQL , strINS , strSQL , varDataCadastro , rsSession , strSession , TOTALUSUARIOS , rsUsuarios , id DIM array_id, i, sql_id id = Request.QueryString("checkbox") CALL AbreConexao if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "TBL_USUARIOS.ID_USUARIO = " & Trim(array_id(i)) & " OR " 'campo texto, então" & Trim(array_id(i)) & " OR " 'caso numerico '" & Trim(array_id(i)) & "' OR " Next sql_id = left(sql_id,(len(sql_id)-4)) strINS = "DELETE * FROM TBL_USUARIOS WHERE "&sql_id&"" conexaoDB.Execute(strINS) conexaoDB.close Set conexaoDB = Nothing %> A TABELA 'TBL_MAQUINAS_VENDA' relaciona com a 'TBL_USUARIOS' atravez do campo 'ID_USUARIO' Desde já obrigado pela atenção.

GOSTARIA DE SABER SE É POSSIVEL ZERAR O CAMPO DE AutoNumeração, NO DB TIPO... EU EXCLUO OS REGISTROS DA TABELA E INICIE UMA NOVA CONTAGEM Valeu pela atenção.

Era so isso mesmo ... valeu pela ajuda vou ver o que consigo fazer aqui.... so não entendo porque não ta funcionando, em outro cadastro eu utilizei da mesma forma e funcionado beleza mas de qualquer forma muito obrigado cara... ate mais

EEEEEHHHHHHH RAFAEL... NA MOSCA HEIM CARA.... KKKKKKKK EXATAMENTE POR ISSO QUE NÃO ESTAVA FUNCIONANDO... VALEU CARA... OUTRA COISA CARA... COMO EU FAÇO PRA REDIRECIONAR UMA PAGINA PRA ABRIR EM UM IFRAME???? TIPO... DEPOIS QUE E FEITO O CADASTRO, TERIA QUE EXIBIR A PAGINA QUE MOSTRA TODOS OS REGISTROS. TO FAZENDO ASSIM, MAS TA ABRINDO NA MESMA JANELA <% ' Mostra Mensagem de Confirmação na Tela Response.write " A Máquinas que você procura foi Cadastrada com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br> Você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=Maquinas_Procuradas.asp?tipo=a'/>" %> Valeu pelo help.... Ate breve.

Fala ai stronks beleza cara?!?!? Valeu pela atenção cara... essa parte ai da popup eu consegui fazer funcionar, mas estou com problemas pra validar o campo textarea e o campo file(que seleciona o caminho das imagens que o cliente ira enviar para o site) pode me ajudar com esses campos? Desde já obrigado

Fala ai Legionáriors, so na paz?!?!?!? cara eu acho que isso pode resolver o problema... tenta ai. <% = FormatCurrency(rs("prod_preco") , 2)%> falo cara ate mais....

Fala ai pessoal, todos na paz?!??!..... To com o seguinte problema, tenho um form que envia os dados para a pagina que salva no DB. Mas o REQUEST.FORM não esta recebendo os valores dos campos do form. varFORM = REQUEST.FORM("txtForm") ta ficando vazio! já verifiquei o form, a pagina que salva os dados no DB, mas não consegui encontrar o erro, se alguém puder me ajudar, eu agradeço desde já. Quando mando um response.Write(SQL) RESPONSE.End() ele imprime na tela, os valores vazios. INSERT INTO TBL_MAQUINAS_PROCURADAS (TIPO, MAQUINA, NOME, EMPRESA, CIDADE, ESTADADO, DDD, TELEFONE, E_MAIL, DATA) VALUES ('', '', '', '', '', '', , , '', '') Abaixo estao as paginas do form e a pagina que grava no DB. paginadoform.asp <% Option Explicit %> <!-- #Include File="conexaoDB.inc" --> <% DIM conexaoDB , rsTIPO , strSQL strSQL = "SELECT * FROM TBL_TIPO ORDER BY ID_TIPO " call AbreConexao Set rsTIPO = conexaodb.Execute(strSQL) %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> <script language="javascript"> function valida() { if(document.form1.tipo.value=="-1") { alert("É necessario informar o Tipo da máquina desejada.") document.form1.tipo.focus() return false } if(document.form1.nome.value=="") { alert("É necessário informar seu nome para que possamos entrar em contato.") document.form1.nome.focus() return false } if(document.form1.empresa.value=="") { alert("Preencha o campo EMPRESA.") document.form1.empresa.focus() return false } if(document.form1.ddd.value=="") { alert("Informe o código de DDD da sua região.") document.form1.ddd.focus() return false } if(document.form1.telefone.value=="") { alert("É necessário informar o telefone para contato.") document.form1.telefone.focus() return false } if(document.form1.cidade.value=="") { alert("É necessario informar sua cidade.") document.form1.cidade.focus() return false } if(document.form1.estados.value=="-1") { alert("É necessario informar informar seu estado (UF).") document.form1.estados.focus() return false } if(document.form1.email.value=="") { alert("É necessário informar seu e-mail para que possamos entrar em contato") document.form1.email.focus() return false } e_mail=document.form1.email.value // varialvel recebe o caminho do campo do formulario para validar e-mail valido. if(e_mail.indexOf("@")==-1){ //compara o valor da varialvel (indexOf) com o valor digitado pelo usario e valida o campo se a resposta for verdadeira. alert("Por favor informe um E-mail válido.") document.form1.email.focus() return false } if(e_mail.indexOf(".")==-1){ alert("Por favor informe um E-mail válido.") document.form1.email.focus() return false } } </script> <script language="javascript"> function numeroddd(ddd){ var digits="0123456789" var campo_temp for (var i=0;i<ddd.value.length;i++){ campo_temp=ddd.value.substring(i,i+1) if (digits.indexOf(campo_temp)==-1){ ddd.value = ddd.value.substring(0,i); break; } } } function numeroFONE(telefone){ var digits="0123456789" var campo_temp for (var i=0;i<telefone.value.length;i++){ campo_temp=telefone.value.substring(i,i+1) if (digits.indexOf(campo_temp)==-1){ telefone.value = telefone.value.substring(0,i); break; } } } </script> <style type="text/css"> <!-- body,td,th { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; } body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style1 {font-size: 12px; font-weight: bold; color: #FFFFFF; } .style10 {color: #FFFFFF; font-size: 12px;} .style12 {font-size: 11px; color: #FFFFFF; } .style9 { font-size: 11px; font-weight: bold; } .style14 {font-size: 11px; color: #FFFFFF; font-weight: bold; } --> </style></head> <body> <form action="salvar_comprar.asp" method="post" enctype="multipart/form-data" name="form1" onSubmit="return valida(); "> <table width="100%" border="0" cellspacing="0" cellpadding="3"> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF"><div align="center"> <div align="center"><span class="style10"><span class="style9">Caracter&iacute;sticas do Equipamento</span></span><span class="style1"> &nbsp;Desejado&nbsp; </span></div> </div></td> </tr> <tr> <td width="33%" bgcolor="#F4F9FF">&nbsp;</td> <td width="67%" bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Tipo: </td> <td bgcolor="#F4F9FF"><select name="tipo" id="tipo" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto"> <option value="-1" selected="selected">Selecione</option> <% Do While Not rsTIPO.EOF %> <option value="<% = rsTIPO("TIPO") %>"> <% = rsTIPO("TIPO") %> </option> <% rsTIPO.MoveNext Loop rsTIPO.Close Call fechaConexao Set rsTIPO = Nothing %> </select></td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF" align="center"> <textarea name="equipamento" cols="28" rows="5">Digite aqui as características do equipamento desejado.</textarea> </td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" background="imagens/nosso_objetivo_r2_c3.jpg" bgcolor="#F4F9FF" align="center"><<span class="style14">Informa&ccedil;&otilde;es para Contato</span></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Nome: </td> <td bgcolor="#F4F9FF"><input name="nome" type="text" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50"/></td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Empresa: </td> <td bgcolor="#F4F9FF"><input name="empresa" type="text" style="font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50"/></td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Telefone: </td> <td bgcolor="#F4F9FF"><input name="ddd" type="text" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="3" maxlength="2" onKeyUp="java script:numeroddd(this);" /> <input name="telefone" type="text" style="font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="21" maxlength="12" onKeyUp="java script:numeroFONE(this);" /></td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Cidade: </td> <td bgcolor="#F4F9FF"><input name="cidade" type="text" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28"/></td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">Estado: </td> <td bgcolor="#F4F9FF"><select name="estados" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" > <option value="-1">Selecione</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="muito">muito</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></td> </tr> <tr> <td bgcolor="#F4F9FF" align="right">E-mail: </td> <td bgcolor="#F4F9FF"><input name="email" type="text" style=" font-size:10px; font-family:Verdana, Arial, Helvetica, sans-serif; size:auto" size="28" maxlength="50" /></td> </tr> <tr> <td bgcolor="#F4F9FF">&nbsp;</td> <td bgcolor="#F4F9FF">&nbsp;</td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF" align="center"> <input type="submit" name="button" style=" font-size:10px; color:#FFFFFF; background-color:#33507C; font-family:Verdana, Arial, Helvetica, sans-serif" value="Cadastrar"/> </td> </tr> <tr> <td colspan="2" bgcolor="#F4F9FF">&nbsp;</td> </tr> </table> </form> </body> </html> Agora a pagina que salva no DB. salvar_comprar.asp <% @LANGUAGE = "VBSCRIPT" %> <% OPTION EXPLICIT %> <!--#INCLUDE FILE = "conexaoDB.inc" --> <!--#INCLUDE FILE = "global.asa" --> <% DIM conexaoDB , SQL , rsSQL DIM txttipo , txtcaracteristica , txtnome , txtempresa , txtcidade , txtestado , txtddd , txtfone, txtemail , txtdata txttipo = request.form("tipo") txtcaracteristica = request.form("equipamento") txtnome = request.form("nome") txtempresa =request.form("empresa") txtcidade = request.form("cidade") txtestado = request.form("estados") txtddd = request.form("ddd") txtfone = request.form("telefone") txtemail = request.form("email") txtdata = session("data2") call abreconexao SQL = "INSERT INTO TBL_MAQUINAS_PROCURADAS (TIPO, MAQUINA, NOME, EMPRESA, CIDADE, ESTADADO, DDD, TELEFONE, E_MAIL, DATA) VALUES ('"&txttipo&"', '"&txtcaracteristica&"', '"&txtnome&"', '"&txtempresa&"', '"&txtcidade&"', '"&txtestado&"', "&txtddd&", "&txtfone&", '"&txtemail&"', '"&txtdata&"')" rsSQL = conexaodb.execute(SQL) rsSQL.CLOSE Call fechaconexao SET rsSQL = NOTHING %> O que tem de errado? Estou usando o IIS no meu PC para vizualizar e testar as paginas. Valeu pela atenção.

Tenho um formulario com um campo textarea e 5 campos file, gostaria de saber como faço para que o usuario envie os dados somente depois de preencher o textarea e os campos file. Desde já obrigado.

Iai pessoal.... oh eu aqui traveiz O negocio é o seguinte, tenho uma lista onde é exibida os titulos dos 15 ultimos anuncios cadastrados, e esses titulos, são os links para que o usuario possa vizualizar o anuncio completo, quando o usuario clica no anuncio abre uma popup, a janela popup esta abrindo beleza, mas o problema é que em qualquer dos 15 titulos que o usuario clique, é exibido somente o ultimo anuncio. Como faço para concertar isso? Abaixo está o codigo da página que exibe o anuncio completo. detalhespagprincipal.asp <% ID = request.QueryString("id") Response.Expires = 0 DIM conexaoDataBase DIM rsMaquinas , strSQL , X const cntCaminho = "D:\@Trabalho\@Site\GIL MAQUINAS\@SITE-GIL MAQUINAS\@Site\DB_GilMaquinas\DB_GilMaquinas.mdb" SET conexaoDataBase = Server.CreateObject("ADODB.Connection") SET rsMaquinas = Server.CreateObject("ADODB.Recordset") conexaoDataBase.OPEN "Driver={Microsoft Access Driver (*.mdb)};dbq="& cntCaminho rsMaquinas.open "TBL_MAQUINAS_VENDA", conexaoDataBase strSQL = "SELECT * " strSQL = strSQL & " FROM TBL_MAQUINAS_VENDA WHERE ID_MAQUINAS_VENDER = "& ID &" " strSQL = strSQL & "ORDER BY ID_MAQUINAS_VENDER desc" SET rsMaquinas = conexaoDataBase.Execute(strSQL) %> ------------------------------------------------------------------------------------------------------------------------------------------- Logo abaixo é a função e o link que chama a página que exibe o anuncio completo: principal.asp script language="JavaScript"> <!-- function AbrirPopup( window_path , W , H ){ var NovaJanela = window.open('detalhespagprincipal.asp?id=<%=rsMaquinas("ID_MAQUINAS_VENDER")%>','miniwin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable =0,width='+W+',height='+H+',top=100,left=100'); } //--> </script> link <a href="java script:AbrirPopup('NovaJanela','500','300');"> <% = rsMaquinas("TIPO") %> <% = rsMaquinas("MARCA") %> <% = rsMaquinas("MODELO") %> </a> Também tentei assim: <a href="detalhespagprincipal.asp?id=<%=rsMaquinas("ID_MAQUINAS_VENDER")%>" Target="java script:AbrirPopup('NovaJanela','500','300');"> dessa forma abre em uma janela normal, e com o anuncio certo, porem não abre em uma popup tentei de varias formas chamar a função para abrir a popup, mas não da certo. como seria para que abrisse em uma popup? Dá um help ai... Desde já obrigado pela atenção

Fala Rafael... beleza Cara não ta dando certo, ta abrindo uma janela normal, mas com o anuncio certo, porem não abre em uma popup tentei de varias formas chamar a função para abrir a popup, mas não da certo. coloquei o link assim<a href="detalhespagprincipal.asp?id=<%=rsMaquinas("ID_MAQUINAS_VENDER")%>" Target="java script:AbrirPopup('NovaJanela','500','300');"> não ta abrindo a popup. Agora como seria para que abrisse em uma popup? Valeu pela ajuda.

Iai pessoal.... oh eu aqui traveiz O negocio é o seguinte, tenho uma lista onde é exibida os titulos dos 15 ultimos anuncios cadastrados, e esses titulos, são os links para que o usuario possa vizualizar o anuncio completo, quando o usuario clica no anuncio abre uma popup, a janela popup esta abrindo beleza, mas o problema é que em qualquer dos 15 titulos que o usuario clique, é exibido somente o ultimo anuncio. Como faço para concertar isso? Abaixo está o codigo da página que exibe o anuncio completo. detalhesultimosanuncios.asp <% ID = request.QueryString("id") Response.Expires = 0 DIM conexaoDataBase DIM rsMaquinas , strSQL , X const cntCaminho = "D:\@Trabalho\@Site\GIL MAQUINAS\@SITE-GIL MAQUINAS\@Site\DB_GilMaquinas\DB_GilMaquinas.mdb" SET conexaoDataBase = Server.CreateObject("ADODB.Connection") SET rsMaquinas = Server.CreateObject("ADODB.Recordset") conexaoDataBase.OPEN "Driver={Microsoft Access Driver (*.mdb)};dbq="& cntCaminho rsMaquinas.open "TBL_MAQUINAS_VENDA", conexaoDataBase strSQL = "SELECT * " strSQL = strSQL & " FROM TBL_MAQUINAS_VENDA WHERE ID_MAQUINAS_VENDER = "& ID &" " strSQL = strSQL & "ORDER BY ID_MAQUINAS_VENDER desc" SET rsMaquinas = conexaoDataBase.Execute(strSQL) %> Logo abaixo é a função e o link que chama a página que exibe o anuncio completo: principal.asp <script language="JavaScript"> <!-- function AbrirPopup( window_path , W , H ){ var NovaJanela = window.open('detalhespagprincipal.asp?id=<%=rsMaquinas("ID_MAQUINAS_VENDER")%>','miniwin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width='+W+',height='+H+',top=100,left=100'); } //--> </script> ----------------------------------------------------link------------------------------------------------------------------------------------- <a href="java script:AbrirPopup('NovaJanela','500','300');"> <% = rsMaquinas("TIPO") %>&nbsp; <% = rsMaquinas("MARCA") %>&nbsp; <% = rsMaquinas("MODELO") %> </a> ----------------------------------------------------------------------------------------------------------------------------------------------- Dá um help ai... Desde já obrigado pela atenção