Estou com o seguinte problema não estou conseguindo fazer o select desta pagina funcionar, vale ressaltar duas coisas a 1º não fui eu quem fiz a pagina, e 2º não entendo muito de ASP, por isso estou aqui pedindo humildemente a ajuda de vocês.
Sou programador Delphi, então acho q por isso estou tendo muita dificuldade em enteder isso aqui. Segue abaixo o codigo da paginaok.
A ideia principal seria o usuario escolher o modelo e a cor do carro atraves dos combo.
Pergunta
Guest Marcelo Rodrigo
Pessoal,
Estou com o seguinte problema não estou conseguindo fazer o select desta pagina funcionar, vale ressaltar duas coisas a 1º não fui eu quem fiz a pagina, e 2º não entendo muito de ASP, por isso estou aqui pedindo humildemente a ajuda de vocês.
Sou programador Delphi, então acho q por isso estou tendo muita dificuldade em enteder isso aqui. Segue abaixo o codigo da paginaok.
A ideia principal seria o usuario escolher o modelo e a cor do carro atraves dos combo.
<html> <link rel="stylesheet" href="file:///C|/Inetpub/paginacao/montadoras.css" type="text/css"> <style type=text/css>body{scrollbar-face-color: #CCFFFF; scrollbar-shadow-color: #CCFFFF; scrollbar-highlight-color: #3366FF; scrollbar-3dlight-color: #0030CE; scrollbar-darkshadow-color: #0030CE;scrollbar-track-color: #0030CE; scrollbar-arrow-color: #0030CE;}</style> <link href="file:///C|/Inetpub/paginacao/titullo.css" rel="stylesheet" type="text/css"> <STYLE TYPE="text/css"> <!- body {scrollbar-face-color: #CCFFFF; scrollbar-shadow-color: #CCFFFF; scrollbar-highlight-color: #3366FF; scrollbar-3dlight-color: #0030CE; scrollbar-darkshadow-color: #0030CE;scrollbar-track-color: #0030CE; scrollbar-arrow-color: #0030CE;} A:link {color: "#000066"; text-decoration: none; } A:visited {color:#0099CC; text-decoration: none;} A:hover {color: #000FF; text-decoration: underline;} A:active {color: #0000F; text-decoration: none;; font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal; line-height: normal} -> .MENU { } </STYLE> <script language="JavaScript" type="text/JavaScript"> <!-- function abrir(URL) { window.open(URL,'popup', 'width=800, height=600, top=99, left=99, scrollbars=no, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no'); } 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); //--> 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> <% Dim db Dim veiculo_estoque_sql, veiculo_estoque_query Dim veiculo_estoque_Acess_sql, veiculo_estoque_Acess_query Dim contador Dim codigo_grupo db = "PROVIDER=SQLOLEDB;SERVER=192.168.1.1;DATABASE=Gestor_Automotivo;UID=sa;PWD=CachorroDoido" set conexao = server.createobject ("adodb.connection") conexao.open db codigo_grupo = request.querystring("COD_GRUPO_MODELO") veiculo_estoque_sql = "" veiculo_estoque_sql = "SELECT Gestor_modelo.DESCR_MODELO AS DESCR_MODELO1," veiculo_estoque_sql = veiculo_estoque_sql & " Gestor_modelo.COD_MODELO, Gestor_veiculo_virtual.PRECO_VENDA, Gestor_veiculo_virtual.COD_VEICULO, '' AS PLACA, Gestor_cores.DESCR_COR, " veiculo_estoque_sql = veiculo_estoque_sql & "Gestor_veiculo_virtual.ANO_MODELO, Gestor_veiculo_virtual.ANO_FABR, Gestor_veiculo_virtual.COMBUSTIVEL, Gestor_veiculo_virtual.KM,'' as NOME, Gestor_veiculo_virtual.COD_FORNECEDOR, Gestor_Grupo_modelo.COD_GRUPO_MODELO " veiculo_estoque_sql = veiculo_estoque_sql & "FROM Gestor.VEICULO_VIRTUAL Gestor_veiculo_virtual, Gestor.MODELO Gestor_modelo, Gestor.CORES Gestor_cores, Gestor.Grupo_Modelo Gestor_Grupo_modelo " veiculo_estoque_sql = veiculo_estoque_sql & "WHERE (Gestor_modelo.COD_MODELO = Gestor_veiculo_virtual.COD_MODELO)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_Grupo_modelo.COD_GRUPO_MODELO = Gestor_modelo.COD_GRUPO_MODELO)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_Grupo_modelo.COD_GRUPO_MODELO = 1111111111)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo_virtual.COD_CORES = Gestor_cores.COD_CORES)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo_virtual.COD_VEICULO_MODELLO is null)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo_virtual.DATA_VENDA_FORNECEDOR is null)" veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo_virtual.DATA_CANCELAMENTO is null)" veiculo_estoque_sql = veiculo_estoque_sql & "UNION " veiculo_estoque_sql = veiculo_estoque_sql & "SELECT Gestor_modelo.DESCR_MODELO, Gestor_modelo.COD_MODELO, Gestor_veiculo.PRECO_VENDA, Gestor_veiculo.COD_VEICULO, Gestor_veiculo.PLACA, " veiculo_estoque_sql = veiculo_estoque_sql & " Gestor_cores.DESCR_COR, Gestor_veiculo.ANO_MODELO, Gestor_veiculo.ANO_FABR, Gestor_veiculo.COMBUSTIVEL, Gestor_avaliacao.KM_ENTRADA, Gestor_pessoa.NOME, 0, Gestor_Grupo_modelo.COD_GRUPO_MODELO " veiculo_estoque_sql = veiculo_estoque_sql & "FROM Gestor.CORES Gestor_cores, Gestor.MODELO Gestor_modelo, Gestor.VEICULO Gestor_veiculo, Gestor.ENTRADA_VEICULO Gestor_entrada_veiculo, Gestor.AVALIACAO Gestor_avaliacao, " veiculo_estoque_sql = veiculo_estoque_sql & "Gestor.PESSOA Gestor_pessoa, Gestor.Transporte Gestor_transporte, Gestor.Grupo_Modelo Gestor_Grupo_modelo " veiculo_estoque_sql = veiculo_estoque_sql & "WHERE (Gestor_veiculo.COD_CORES = Gestor_cores.COD_CORES) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_Grupo_modelo.COD_GRUPO_MODELO = Gestor_modelo.COD_GRUPO_MODELO) " //veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_Grupo_modelo.COD_GRUPO_MODELO = 160) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo.COD_MODELO = Gestor_modelo.COD_MODELO) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo.COD_VEICULO = Gestor_entrada_veiculo.COD_VEICULO) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_entrada_veiculo.COD_VEICULO = Gestor_avaliacao.COD_VEICULO) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_entrada_veiculo.COD_ENTRADA_VEICULO = Gestor_transporte.COD_ENTRADA_VEICULO) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_transporte.COD_FORNECEDOR = Gestor_pessoa.COD_PESSOA) " veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo.SITUACAO = '0') " //veiculo_estoque_sql = veiculo_estoque_sql & " AND (Gestor_veiculo.ZERO_KM = 0) " veiculo_estoque_sql = veiculo_estoque_sql & " AND Gestor_veiculo.COD_VEICULO NOT IN(SELECT COD_VEICULO FROM GESTOR.VENDA VENDA " veiculo_estoque_sql = veiculo_estoque_sql & " WHERE VENDA.COD_VEICULO = Gestor_veiculo.COD_VEICULO " veiculo_estoque_sql = veiculo_estoque_sql & " AND VENDA.SITUACAO >= 0) " veiculo_estoque_sql = veiculo_estoque_sql & " ORDER BY DESCR_MODELO, PRECO_VENDA " set veiculo_estoque_query = conexao.execute(veiculo_estoque_sql) %> <% Function conta_descr(palavra) var = len(palavra) response.write left(palavra, 35) end Function %> <% Function conta_ano(ano) var = len(ano) response.write left(palavra, 2) end Function %> <body bgcolor="#0033CC" bgproperties="fixed" background="http://www.modello.com.br/fundo_default3_B.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form action="VeiculosEstoqueUsados1.asp" method="get"> <div align="center"></div> </form> <div id="Layer1" style="position:absolute; width:772px; height:26px; z-index:6; left: 5px; top: 72px; background-color: #0030CE; layer-background-color: #0030CE; border: 1px none #000000"> <table width="100%" bgcolor="#0030CE" cellpadding="0" cellspacing="1" border="0"> <tr background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif"> <td width="53" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="center"><font size="2" face="Arial, Helvetica, Helvetica, sans-serif" color="#FFFFFF"><b>Foto</b></font></div> </td> <td width="198" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="center"><font size="2" face="Arial, Helvetica, Helvetica, sans-serif" color="#FFFFFF"><b>Veículo </b></font></div> </td> <td width="30" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="center"><font size="2" face="Arial, Helvetica, Helvetica, sans-serif" color="#FFFFFF"><b>Ano </b></font></div> </td> <td width="72" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="left"><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Cor </b></font></div> </td> <td width="47" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="left"><font size="2" face="Arial, Helvetica, Helvetica, sans-serif" color="#FFFFFF"><b>Km </b></font></div> </td> <td width="17" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="center"><font size="2" face="Arial, Helvetica,Helvetica, sans-serif" color="#FFFFFF"><b>C</b></font></div> </td> <td width="242" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="left"><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Opcionais/Acessórios </b></font></div> </td> <td width="104" height="17" bordercolor=#000000 background="file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/barrinha.gif" bgcolor="#000099" > <div align="left"><font size="2" face="Arial, Helvetica, sans-serif" color="#FFFFFF"><b> Valor R$ </b></font></div> </td> </tr> <%Dim Codigo_veiculo%> <%Dim tag_cor%> <%Dim ano_inicial, ano_final, juncao_ano%> <%Dim acessorio%> <%Dim km%> <%tag_cor=0%> <%while not veiculo_estoque_query.eof%> <% Codigo_veiculo = veiculo_estoque_query("COD_VEICULO")%> <!-- ******** SQL DO ACESSORIOS ******** --> <% veiculo_estoque_Acess_sql = "" veiculo_estoque_Acess_sql = "SELECT Gestor_componentes.CODIGO_COMPONENTE, 0 AS COD_VEICULO " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & "FROM Gestor.VEICULO_VIRTUAL Gestor_veiculo_virtual, Gestor.COMPONENTES Gestor_componentes, Gestor.VEICULO_VIRTUAL_OPCIONAL Gestor_veiculo_virtual_OPCIONAL " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & "WHERE (Gestor_veiculo_virtual.COD_VEICULO = Gestor_veiculo_virtual_OPCIONAL.COD_VEICULO) " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND (Gestor_veiculo_virtual_OPCIONAL.COD_COMPONENTE = Gestor_componentes.COD_COMPONENTE) " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND (Gestor_veiculo_virtual.COD_VEICULO = "&Codigo_veiculo&")" veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " UNION " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & "SELECT GC.CODIGO_COMPONENTE, GV.COD_VEICULO " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & "FROM Gestor.VEICULO GV, Gestor.VEICULOS_OPCIONAIS GOP, Gestor.COMPONENTES GC " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & "WHERE (GV.COD_VEICULO = GOP.COD_VEICULO) " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND (GOP.COD_COMPONENTE = GC.COD_COMPONENTE) " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND (GV.COD_VEICULO = "&codigo_veiculo&")" veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND GV.COD_VEICULO NOT IN(SELECT COD_VEICULO FROM GESTOR.VENDA VENDA " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " WHERE VENDA.COD_VEICULO = GV.COD_VEICULO " veiculo_estoque_Acess_sql = veiculo_estoque_Acess_sql & " AND VENDA.SITUACAO >= 0) " set veiculo_estoque_Acess_query = conexao.execute(veiculo_estoque_Acess_sql) %> <!-- ******** while dos ACESSORIOS ******** --> <%acessorio = ""%> <%while not veiculo_estoque_Acess_query.EOF%> <%acessorio = acessorio&veiculo_estoque_Acess_query("CODIGO_COMPONENTE")%> <%veiculo_estoque_Acess_query.moveNext%> <%if not veiculo_estoque_Acess_query.EOF then%> <%acessorio = acessorio & ","%> <%end if%> <%Wend%> <%ano_inicial = conta_ano("TESTE")%> <%ano_final = conta_ano(veiculo_estoque_query("ANO_MODELO"))%> <%juncao_ano = ano_inicial&"/"&ano_final%> <%codigo_veiculo = 0%> <%Codigo_veiculo = veiculo_estoque_query("COD_VEICULO")%> <tr> <td width="53" height="17" bordercolor=#000000 ><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="http://www.modello.com.br/BACKRADICAL/SITEMODELLO/PAGINA2/veiculofotoestoque0.asp?COD_VEICULO=<%=codigo_veiculo%>" target="_blank"><img src="http://www.modello.com.br/foto5/<%=CODIGO_VEICULO%>.gif" width="52" height="30" border="0"></a></font></td> <td width="198" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"><font face=" Arial, Helvetica, sans-serif" size="2"><strong><a href="http://www.modello.com.br/BACKRADICAL/SITEMODELLO/PAGINA2/veiculofotoestoque0.asp?COD_VEICULO=<%=codigo_veiculo%>"target="_blank"><%=conta_descr(veiculo_estoque_query("DESCR_MODELO1"))%></a></strong></font></td> <td width="30" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"> <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=right(veiculo_estoque_query("ANO_FABR"),2)&"/"&right(veiculo_estoque_query("ANO_MODELO"),2)%></font></div> </td> <td width="72" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"> <div align="left"><font face="Arial, Helvetica, sans-serif" size="2"><%=left(veiculo_estoque_query("DESCR_COR"),9)%></font></div> </td> <%if veiculo_estoque_query("KM") = "0" then%> <%km = "0Km"%> <%else%> <%km = veiculo_estoque_query("KM")%> <%end if%> <td width="47" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"><font face="Arial, Helvetica, sans-serif" size="2"><%=km%></font></td> <td width="17" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=veiculo_estoque_query("COMBUSTIVEL")%></font></div> </td> <td width="242" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"><font size="2" face="Arial, Helvetica, sans-serif"><%=left(acessorio,200)%></font></td> <td width="104" height="17" bordercolor=#000000 background="http://www.modello.com.br/barrinha_maior<%=tag_cor%>.gif" bgcolor="#99CCFF"><font face="Arial, Helvetica, sans-serif" size="2"><%=""&formatcurrency(veiculo_estoque_query("PRECO_VENDA"),2)%></font></td> </tr> <%if tag_cor = 0 then%> <%tag_cor = 1%> <%else%> <%tag_cor = 0%> <%end if%> <%veiculo_estoque_query.moveNext Wend%> <!-- ******** MUDA DE LINHA ******** --> </table> </div> <div id="Layer2" style="position:absolute; width:199px; height:19px; z-index:8; left: -23px; top: -56px"> <!-- ******** BEGIN ALLWEBMENUS CODE FOR MenuModello ******** --> <img name='awmMenuPathImg-MenuModello' id='awmMenuPathImg-MenuModello' src='file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/./awmmenupath.gif' alt=''> <script type='text/javascript'>var MenuLinkedBy='AllWebMenus [2]', awmBN='500'; awmAltUrl='';</script> <script src='file:///C|/Inetpub/wwwroot/SiteModello/Pagina2/MenuModello.js' language='JavaScript1.2' type='text/javascript'></script> <script type='text/javascript'>awmBuildMenu();</script> <!-- ******** END ALLWEBMENUS CODE FOR MenuModello ******** --> </div> <div align="center"> <select name="listacarro" class="form" id="listacarro"> <option selected>Escolha aqui o seu modelo</option> <% CODIGO_GRUPO = " DESCR_MODELO1 FROM Gestor_modelo" Set CODIGO_GRUPO= server.CreateObject("ADODB.Recordset") CODIGO_GRUPO.Open sqll, conexao(CODIGO_GRUPO), 3, 3 if not CODIGO_GRUPO.EOF then Response.Write(CODIGO_GRUPO("descr_modelo1") ) end if %> <option value ="<%=CODIGO_GRUPO("DESCR_MODELO1")%>"> <%=Gestor_modelo("DESCR_MODELO1")%></option> WEND %> </select> </div> <p> </p></body> </html>Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.