osmildo

ACABEI DE CONSEGUIR!!! SÓ QUE POR ENQUANTO EU SO CONSEGUI COM DUAS VARIAVEIS. MARCA E MODELO. AMANHA EU TERMINO. MAS ISSO FOI APENAS A PRIMEIRA ETAPA PREPAREM PARA BABAR. MINHA PÁGINA É SINISTRA MERMOO DIGO COM CONVICÇÃO QUE É UMA DAS MELHORES DESSA *&%#" DE BRASÍLIA AGORA VOU DESCANSAR. VALEU VEIO! VALEU SCRIPTBRASIL

FALO VEIO. MUITO OBRIGADO PELA FORÇA. MUITO OBRIGADO AO SCRIPT BRASIL COMO UM TODO. AGORA EU ACHO QUE VAI FUNCIONAR O NEGÓCIO QUE EU TOU TENTANDO, GRAÇAS A VOCES.

' olha so galera eu sou novato na área e tou querendo fazer um consulta com ' variáveis dim vMarca dim vModelo dim vPrecomin dim vPrecomax vMarca = request.form("mknm") vModelo = request.form("mdnm") vPrecomin = request.form("minp") vPrecomax = request.form("maxp") ' o problema é que a hora que chega aqui eu so consigo consultar apenas o ' Vmarca. Como que eu faço para fazer com que ele consulte as outras variáveis? ' vModelo, vPrecomin, vPrecomin, vPrecomax ' O restante ta tudo funcionando, por isso eu nem coloquei aqui para não encher. SQL = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'" SQL = SQL & "ORDER BY Id DESC " ' os demais campos da tabela Carros são: Modelo, PrecoMin, PrecoMax ' quebra essa ai galera!

Primeiro eu quero agradecer a andreia_sp e o fercosmig, primeiro, a andreia porque ela foi a unica que me ajudou na última prgunta. quanto ao fercosmig é porque esqueci de mencioná_lo no último agradecimento. já sei como paginar meu recordset, mas agora preciso saber uma coisa. sabe estas caixas de selecao ai em cima? eu queria fazer uma filtragem no meu formulario antes de enviar a consulta. como é que se faz isso? por exempo: tem duas caixas de selecao e em uma delas eu tenho carro, motos, casas. quando eu escolher carros ai a caixa de baixo aparece com valores como consignaçao, financiamento, novos e usados e se caso eu selecionar a opcao casas, os valores da caixinha de baixo teria que ser referentes a casa. com de 3 quartos, 2 quartos etc. certo? alguém pode me ajudar?

bem galera... peguei um link que a andreia_sp me falou. mesmo asssim naõ consigo colocar a paginacao no meu script o meu script ta assim o... <% pagina = request("pagina") if pagina = "" then pagina = 1 else pagina = cint(pagina) end if vMarca = request.form("car") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'" sqlstmt = sqlstmt & "ORDER BY Id DESC " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <b><p> <br> <p><font size="2" face="Arial, Helvetica, sans-serif"><%=marca%></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif"><%=carro%></font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=dono%></font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=placa%></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif"></font><font size="2" face="Arial, Helvetica, sans-serif"><%=tempo%></font></p> <p> <% total = ubound(nomes,2) registros = 10 paginas = total / 10 if cint(paginas) * registros < total then paginas = cint(paginas) + 1 end if if pagina = 1 then inicio = 0 else inicio = cint(registros) * (pagina) - 10 end if fim = cint(inicio) + 9 if cint(fim) > cint(total) then fim = cint(total) end if end if next %> </p> <p><% FOR I = 1 TO cint(paginas) if cint(pagina) = i then mostra = "[" & i & "]" else mostra = i end if response.write "<a href=busca.asp?pagina=" & I & ">" & mostra & "</a> " next %> &nbsp; <% rs.MoveNext %></p> este é o erro veja.. toyota hilux hilux hilux A vista Microsoft VBScript runtime error '800a000d' Type mismatch: 'ubound' /busca5/busca.asp, line 53 ------------------------ estou tentando colocar´a numeracao e link alguém pode me ajudar?

BOM GALERA, ESTOU AQUI DE NOVO, ESPERO QUE POSSAM ME DAR MAIS UMA FORÇA. LEMBRAM DA PA´GINA DE CARROS QUE EU TAVA TENTANDO ARRUMAR? ELE TA FUNCIONANDO PERFEITAMENTE, MAS EU NÃO ESTOU CONSEGUINDO COLOCAR UMA PAGINAÇAO NELA. AINDA ESTOU TENTANDO, MAS RESOLVI PEDIR UMA AJUDA A VOCES. ESTOU ENVIANDO O CODIGO DO JEITO QUE ESTA E FOR POSSIVEL GOSTARIA QUE ME AJUDASSEM. ESTOU APANHANDO MUITO. .. EU QUERIA QUE QUANDO A PAGINA BUSCASSE OS CARROS ELA COLOCASSE OS LINKS LA EMBAIXO PARA A GALERA CLICAR. IGUAL NO GOOGLE, POR EXEMPLO. O CODIGO QUE ESTOU ENVIANDO ESTA CRU, SEM NENHUMA INSTRUCAO NESSE SENTIDO. SE PUDEREM ME AJUDAR EU FICAREI MUITO AGRADECIDO. EIS O CODIGO --------------------------------------------------------------------------::::: <% vMarca = request.form("car") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'" sqlstmt = sqlstmt & "ORDER BY Id DESC " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <b><p> <br> <p><font size="2" face="Arial, Helvetica, sans-serif"><%=marca%></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif"><%=carro%></font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=dono%></font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=placa%></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif"></font><font size="2" face="Arial, Helvetica, sans-serif"><%=tempo%></font></p> <p> <% rs.MoveNext %> <% end if next %> </p> EU QUERIA QEU FICASSIM AMIS OU MENOS ASIMM: PORQUE SENAO A PAGINA VAI FICAR MUITO PESADA CLIQUE NOS LINKS: 1 2 3 4 5 6 7 8 9 10

QUERO AGRADECER AO PESSOAL QUE ENVIOU COMENTARIOS PARA MINHA SUGESTÃO. ACHO QUE É POR CAUSA DE UMA PAGINA DESSA QUE A INTERNET SE TORNOU A POTENCIA QUE SE TORNOU. OBRIGADO ESPECIALMENTE AO PESSOAL DA PÁGINA SCRIPT BRASIL. TAMBÉM A ANDREIA_SP, BARETA E ANDRE LUIZ. INFELIZMENTE NÃO CONSEGUIRAM IDENTIFICAR O ERRO, MAS EU ACABEI ENTENDENDO O PROBLEMA DEPOIS. É QUE EU QUERIA QUE OS DADOS FOSSEM TODOS RETIRADOS DE UM BANCO, MAS ELES NÃO PODERIAM POR QUE EU ME EQUIVOQUEI EM UMA COISINHA... EIS O ERRO... <% vMarca = request.form("car") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <b><p> O PROBLEA É QUE ISSO AQUI TINHA QUE FICAR NO FINAL DA ISTRUÇÃO. E EU COLOQUEI ANTES DO <% rs.MoveNext %> <% end if next %> : AQUI EMBAIXO ESTAVA O RESTO DO CODIGO. APENAS UMA BURRICE MINHA. O BOM MESMO É QUE ACABEI APRENDENDO ESTA LIÇAO. DE TODO MODO, QUERO AGRADECER A TODOS PELAS DICAS. ESSA INSTRUÇAO TINHA QUE FICAR LA EMBAIXO POR ISSO FIZ QUESTAO DE COLOCAR ELA LOGO AQUIE EMBAIXO PARA QUEM TIVER UMA DUVIDA COMO A MINHA, COMPREEENDER O QUE ACONTECE QUANDO COLOCA ESSA INSTRUÇAO NO MEIO E não NO FIM <% rs.MoveNext %> <% end if next VALEU GALERA!

peguei um script e estou tentando adapta´-lo a minha necessidade. t+á ficando bom, mas eu não estou conseguindo fazer apenas uma coisa. eu quero que todos os carros de uma determinada marca sejam visualisados mas so ta aparecendo um unico carro. eu já abri o banco e ta gravado varios carros da mesma marca mas o codigo que eu tou usando so ta buscando um unico carro. a pagina não da erro, mas so sai um carro de cada marca espero que possam me ajudar, por enquantro eu tou tentando, mas não tenho conhecimento sufuiciente, não sei se vou conseguir sozinho ---------------------------------------------------------------------------------- a pagina do formulario e esta:: <html> <head> <title>Procure por seu carro pela placa</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body topmargin="0"> <p align="center"><br> <form action="busca.asp" method="post"> <table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="41">&nbsp;</td> <td colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC"> <!--DWLayoutTable--> <tr> <td width="520" height="41" align="center" valign="middle" bgcolor="#CC9999"><p align="center"> <strong><font color="#FFFFFF">Selecione a marca do seu carro: </font></strong></td> </tr> </table></td> <td width="28">&nbsp;</td> </tr> <tr> <td height="19">&nbsp;</td> <td width="294">&nbsp;</td> <td width="22">&nbsp;</td> <td width="204">&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td height="87">&nbsp;</td> <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFDAC1"> <!--DWLayoutTable--> <tr> <td width="39" height="73">&nbsp;</td> <td width="255" valign="middle"><select name="car"> <option value="volks">vokswagen</option> <option value="ferrari">ferrari</option> <option value="Audi">Audi </option> <option value="Porche">Porche</option> <option value="toyota">toyota</option> <option value="bmw">bmw</option> </select></td> </tr> <tr> <td height="14"></td> <td></td> </tr> </table></td> <td>&nbsp;</td> <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E6E6FF"> <!--DWLayoutTable--> <tr> <td width="20" height="73"></td> <td width="184" valign="middle"> <input name="submit" type="submit" value="Buscar"></td> </tr> <tr> <td height="14"></td> <td></td> </tr> </table></td> <td>&nbsp;</td> </tr> </table><table width="100%" border="0" cellspacing="2" cellpadding="2"> <!--DWLayoutTable--> <tr align="center"> <td width="174" height="36">&nbsp;</td> <td width="178" valign="middle" bgcolor="#f5f5f5"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="index.asp" class="menu"><font color="#00CC00">Pesquisar::</font></a></font></b></font></td> <td width="35%" valign="middle" bgcolor="#f5f5f5"><div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="incluir.asp" class="menu"><font color="#33CC00">Incluir mais um::</font></a></font></b></font></div></td> </tr> </table> </form> </p> </body> </html> ---------------------------------------------------------------------------------------------- esta e a pagina busca.asp <% vMarca = request.form("car") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb") sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 totalrecs = rs.recordcount x = 0 for x = 1 to totalrecs if rs.eof then exit for else id = rs("ID") carro = rs("Carro") placa = rs("Placa") marca = rs("Marca") dono = rs("Dono") tempo = rs("Tempo") %> <b><p> <% rs.MoveNext %> <% end if next %> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="525" height="77"><table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="23">&nbsp;</td> <td width="294" valign="top" bgcolor="#DBDEFB"><b>&nbsp;Marca:</b></td> <td width="42">&nbsp;</td> <td width="184" valign="top" bgcolor="#FFE8C6">&nbsp;&nbsp;<%=marca%> </td> <td width="28">&nbsp;</td> </tr> <tr> <td height="5"></td> <td></td> <td></td> <td></td> <td></td> </tr> </table><table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="23">&nbsp;</td> <td width="294" valign="top" bgcolor="#DBDEFB"><b>&nbsp;Carro:</b></td> <td width="42">&nbsp;</td> <td width="184" valign="top" bgcolor="#FFE8C6">&nbsp;&nbsp;<%=carro%></td> <td width="28">&nbsp;</td> </tr> <tr> <td height="5"></td> <td></td> <td></td> <td></td> <td></td> </tr> </table><table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="23">&nbsp;</td> <td width="294" valign="top" bgcolor="#DBDEFB"><b>&nbsp;Propriet&aacute;rio:</b></td> <td width="42">&nbsp;</td> <td width="184" valign="top" bgcolor="#FFE8C6">&nbsp;&nbsp;<%=dono%></td> <td width="28">&nbsp;</td> </tr> <tr> <td height="5"></td> <td></td> <td></td> <td></td> <td></td> </tr> </table><table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="23">&nbsp;</td> <td width="294" valign="top" bgcolor="#DBDEFB"><b>&nbsp;Valor:</b></td> <td width="42">&nbsp;</td> <td width="184" valign="top" bgcolor="#FFE8C6">&nbsp;&nbsp;<%=placa%></td> <td width="28">&nbsp;</td> </tr> <tr> <td height="5"></td> <td></td> <td></td> <td></td> <td></td> </tr> </table> <table width="562" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="14" height="23">&nbsp;</td> <td width="294" valign="top" bgcolor="#DBDEFB"><b>&nbsp;Forma de pagamento:</b></td> <td width="42">&nbsp;</td> <td width="184" valign="top" bgcolor="#FFE8C6">&nbsp;&nbsp;<%=tempo%></td> <td width="28">&nbsp;</td> </tr> <tr> <td height="5"> </td> <td></td> <td></td> <td></td> <td></td> </tr> </table></td> </tr> </table>

PEGUEI UM ARQUIVO DE UM MURAL CUJO BANCO DE DADOS TEM EXTENSAO .MDB. O PROBLEMA É QUE EU não CONSIGO ABRI-LO COM O ACSESS. POR QUE ESTA ACONTECENDO ISSO? QUAL PROGRAMA DEVO UTILIZAR PARA ABRI-LO? A EXTENSAO .MDB VALE PÁRA QUAIS OUTROS PROGRAMAS? QUAIS DELES são GRAUTUITOS?