marvi

Olá pessoal, Eu tenho um script que leva uma variavel para uma página e lá é testada na query, mas eu queria levar mais de um valor nessa variável, como faço? Veja: -------------------------------------------------- Como faço para levar mais um valor nessa variável? url=url+"?id="+id; Pois na outra página terá: id = request.querystring("id") sql = "select * from cidades where id_estado ="& id &" order by cidade desc" set tab = conexao.execute(sql) Alguém pode ajudar? Obs: Aproveitando, o codigo em script está pegando só o value do select, isso? Como faço para pegar o value e o nome que fica no select? Obrigado! Marcelo

Podem deixar, resolvir!

Alguém consegue entender porque isso? sqlestados= "INSERT INTO estados (estado, id_pais) VALUES ('"& varestado &"', '" & varpaisselect &"')" Set rspaisselect=Conexao.Execute(paisselect) varpaisselect= rspaisselect("id_pais") response.write(sqlestados) ' veja que coloquei para imprimir a SQL e que tem a variavel varpaisselect e ela retorna essa variavel vazia, "", porque? response.end Como pode retornar vazia se ela, varpaisselect, está abaixo da set rspaisselect pegando o valor do select... Veja que o response mostra: INSERT INTO estados (estado, id_pais) VALUES ('Lisboa', '') Agora quando mando response imprimir a própria variavel varpaisselect, ele exibe valor: response.write(varpaisselect) response.end

Olá pessoal, estou unsando um insert e não funciona no meu Access: Banco: Estado = texto id_pais = Número Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. /psi/painel/profissionais/inserirprofissional.asp, line 34 sqlestados= "INSERT INTO estados (estado, id_pais) VALUES ('"& varestado &"', '"& varpaisselect &"')" linha 34: Set rsestado=Conexao.Execute(sqlestados) Já usei a variavel assim "& varpaisselect &"' e assim '& varpaisselect &' O que deve ser? Obrigado! Marcelo

Pode deixar, eu resolvir! Marcelo

Olá pessoal, eu tenho uma query que cruza 4 tabelas e essa Query roda normal no banco Access, mas quando coloco na página e coloco as varáveis da esse erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /psi/painel/profissionais/resultado.asp, line 14 "from cidades, estados, paises, profissionais" pais = request.form("paises") estados = request.form("estados") cidades = request.form("cidades") profs = request.form("profs") sqlprofs = "SELECT cidades.id_cidade, estados.id_estado, cidades.id_estado, estados.id_pais, estados.estado, cidades.cidade, paises.id_pais, paises.pais, profissionais.id_profissional, profissionais.profissional" linha 14: "from cidades, estados, paises, profissionais" "where estados.id_estado like "& estados &" and cidades.id_cidade like "& cidades &" and paises.id_pais like "& pais &" and profissionais.id_profissional like "& profs &"" set tab_profs = conexao.execute(sqlprofs) O que deve ser esse erro? Obrigado! Marcelo

Andréia, Muito obrigado mesmo pela ajuda e pela paciência! Pois eu já tinha uma semana procurando roda um combo assim... Já estava desistindo apesar de precisar bastante desse sistema! Obrigado mesmo, você não sabe quanto ajudou! Qualquer coisa estamos aí! Abraço Marcelo

Agora rodou! Foi o que? A linguagem / sintaxe??

Olá pessoal, Eu tenho um sistema de combos que só roda no Fire Fox e não roda no internet explorer em nenhuma versão, eu uso o IE 7. No IE 7 ele fica parado, não dar erro e também não roda... Quem quiser abaixar o sistema: http://www.josecarlosrodrigues.com.br/marcelo.rar No mais, passo os códigos: Default.asp: <!--#include file="conexao_marvi.asp"--> &lt;script src="funcoes.js" type="text/javascript"></script> <% call abre_conexao sql = "select * from paises order by pais" set tab = conexao.execute(sql) %> Países: <select name="paises" id="paises" onchange="RetornoAjax(this.value, 'estados.asp', 'estados')"> <option value="">-Selecione-</option> <% while not tab.eof %> <option value="<%= tab("id_pais")%>"><%= tab("pais")%></option> <% tab.movenext wend %> </select> Estados: <select name="estados" id="estados" onchange="RetornoAjax(this.value, 'cidades.asp', 'cidades')"></select> Cidades: <select name="cidades" id="cidades" onchange="RetornoAjax(this.value, 'profissionais.asp', 'profs')"></select> Profissionais: <select name="profs" id="profs"></select> <% conexao.close set tab = nothing %> Funções.js: function RetornoAjax(id, url, container) { if (id == "") return var xmlHttp=GetXmlHttpObject() if (xmlHttp==null) { alert ("Este browser não suporta HTTP Request") return } var url=url; url=url+"?id="+id; url=url+"&sid="+Math.random(); xmlHttp.onreadystatechange=function() { if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete") { document.getElementById(container).innerHTML=xmlHttp.responseText } } xmlHttp.open("GET",url,true) xmlHttp.send(null) } function GetXmlHttpObject() { var objXMLHttp=null if (window.XMLHttpRequest) objXMLHttp=new XMLHttpRequest() else if (window.ActiveXObject) objXMLHttp=new ActiveXObject("Microsoft.XMLHTTP") return objXMLHttp } Uma página para verem que eles chamam. estados.asp: <!--#include file="conexao_marvi.asp"--> <% Response.Charset = "ISO-8859-1" call abre_conexao id = request.querystring("id") sql = "select * from estados where id_pais ="& id &" order by estado" set tab = conexao.execute(sql) %> <option value="">-Selecione-</option> <% while not tab.eof %> <option value="<%= tab("id_estado")%>"><%= tab("estado")%></option> <% tab.movenext wend conexao.close set tab = nothing %> Se alguém pode me ajudar fico muito grato... Pois tenho uma semana com isso... Obrigado! Marcelo

há Andréia, o seu sistema só roda no FireFOX, no internet explorer 7, o IE 7 não roda não! Esse é o problema! Marcelo

Oi Andréia, Ok, conseguir abrir o seu arquivo, mas continua na mesma... está parado, eu seleciono o país e os outros combos estão parados... Não mostra nada, porque? Obs: A sua programação está muito legal, está otimizada, é bom para estudar e dar manutenção, mas não roda nada e nem da erro... Entende? Obrigado pela atenção! Marcelo

Sim o zip abre, o arquivo dentro do zip que não, é arquivo morto... entende? Se der, manda por e-mail: celovinicius@hotmail.com

Certo, mas que arquivo é esse? Não tem extensão nenhuma aqui, tipo arquivo morto... Abrir um winrar, zip e nada...

Eu acho que é no java script mesmo... Não sei se meu request não pega nada também... Fiz codpais = request("codpais") codestado = request("codestado") Response.Write("Codpais: " & codpais) Response.End Mas não dava em nada... fiz isso: codpais = 8'request("codpais") que são os dados codestado = 1'request("codestado") que são os dados Nenhum valor foi fornecido para um ou mais parâmetros necessários. /asp/artigo/objcidade.asp, line 30 sql = "SELECT paises.COD, paises.paises, estados.estado, estado.codestado, cidade.codcidade, cidade.cidade " sql = sql & "FROM paises INNER JOIN (estados INNER JOIN cidade " sql = sql & "ON estados.codestado = cidade.codestado) ON paises.COD = estados.codpaises " sql = sql & "WHERE paises.COD = " & codpais & filtro &" ORDER BY cidade.cidade" 'response.Write(sql) 'response.End() linha 30: set rs = conexao.Execute(sql) Obrigado Marcelo

Olá pessoal, Alguém sabe me informar o que é realmente undefined? Pergunto isso porque ocorreu essa mensagem na minha programação... veja function combocidade() { var combocidade = createXMLHTTP(); combocidade.open("post", "objcidade.asp", true); combocidade.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); combocidade.onreadystatechange=function(){ if (combocidade.readyState==4){// abaixo o texto do gerado no arquivo executa.asp e colocado no div document.all.divcombocidade.innerHTML = divcombocidade.responseText;}} combocidade.send("codpais=" + frm1.codpais.value + "&codestado="+frm1.codestado.value); } objcidade.asp 'CONEXÃO COM O BANCO. Set conexao = Server.CreateObject("ADODB.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados_01.mdb") conexao.Open DSNtest codpais = request("codpais") codestado = request("codestado") Response.Write("Codpais: " & codpais) Response.End if len(codestado) then filtro = " and estados.codestado = "&codestado else filtro = "" end if sql = "SELECT paises.COD, paises.paises, estados.estado, estado.codestado, cidade.codcidade, cidade.cidade " sql = sql & "FROM paises INNER JOIN (estados INNER JOIN cidade " sql = sql & "ON estados.codestado = cidade.codestado) ON paises.COD = estados.codpaises " sql = sql & "WHERE paises.COD = " & codpais & filtro & " ORDER BY cidade.cidade" 'response.Write(sql) 'response.End() set rs = conexao.Execute(sql) Obrigado! Marcelo

Andréia, tive observando o seu AJAX... como não conheço muito, estava fazendo uns comparativos de ajax que encontrei, não deveria ter algo no seu do tipo: if (requip) { requip.onreadystatechange = ProcessEquip; requip.open("POST", url, true); requip.send(); } } } function ProcessEquip(){ if (requip.readyState == 4) { if (requip.status == 200) { document.getElementById("lanc1").innerHTML = requip.responseText; } else { alert("Houve um problema ao obter os dados:\n" + requip.statusText); } } } function atualizaLanc1(valor){ loadXMLDoc("lancListaComb1.asp?ID="+valor); } Grato Marcelo

Oi Andréia, certo... Eu já estou fazendo, no meu caso será País - Estado - Cidade - Profissionais, coloquei o do carro só como exemplo... Ok, meu combo 1 já gera os paises do banco de dados: <script src="funcoes.js" type="text/javascript"></script> Combo 1: <select name="combo1" id="combo1" onchange="RetornoAjax(this.value, 'pagina1.asp', 'combo2')" style="color: #575757; border: 1px solid #C0C0C0; background-color: #FFFFFF"> <option value="Selecione o Estado">Selecione o País</option> <% executar = "select * from paises order by id" dim conexao Call abre_conexao Set rsbusca=Conexao.Execute(executar) Do Until rsbusca.EOF Response.Write "<option value="&rsbusca("id")&">"&rsbusca("paises")&"</option>" rsbusca.MoveNext Loop %> </select> Combo 2: <select name="combo2" id="combo2" onchange="RetornoAjax(this.value, 'pagina2.asp', 'combo3')"></select> Combo 3: <select name="combo3" id="combo3" onchange="RetornoAjax(this.value, 'pagina3.asp', 'combo4')"></select> Combo 4: <select name="combo4" id="combo4"></select> Até aí tudo bem, pelo que vemos temos o onchange="RetornoAjax(this.value, 'pagina1.asp', 'combo2')" que chama a pagina1.asp A pagina1.asp: <!--#include file="conexao1.asp"--> <% id = request.querystring("id") sql = "select * from estados where id_pais = "& id set tab = conexao.execute(sql) while not tab.eof %> <option value="<%= tab("id")%>"><%= tab("estado")%></option> <% tab.movenext wend %> Encontrou algum erro até aí? Pois aqui deu um erro de script mesmo, o erro ocorre quando seleciono no combo1 o país, não sei como colocar esse erro aqui, mas ele diz: Linha 19 Caractere 10 Erro: Erro em tempo de execução desconhecido Codigo 0 URL index.asp O que deve ser? Pois não consigo ver o errro... Enquanto isso vou tentando descobrir aqui, se eu achar eu te aviso também... Obrigado mesmo! Marcelo

Olá pessoal, Estou querendo fazer 4 combos dinâmicos, onde a pessoa seleciona um, depois o outro... Ou seja, um combo é carregado a partir do outro combo anterior... veja o exemplo desse site: http://portal.mundiauto.com.br/mundiautos/home.aspx na opção BUSCAR POR VEÍCULOS tem vários combos para pesquisa, quero algo assim, no meu caso será 4 combos. O que acontece é que tentei com meus códigos e nada, encontrei uns exemplos na Internet e só achei com 2 combos, mesmo assim tentei implementar e nada... Alguém conhece um modelo, exemplo desses combos que rodem ou que possa rodar com 4 combos? Preciso muito! Obrigado! Marcelo

Achei outro modelo melhor, acho, pois estou tentando ainda usar com esse, veja: http://forum.imasters.uol.com.br/index.php?showtopic=268868

Sobre o cidadesscript ao document.form1.txt_produto está certo sim, pois ele vai pegar as informações do combo estado que tem esse nome txt_produto e passar para essa variavel... Como foi o do Pais que passou para o estado... Rapaz não achei ainda como resolver isso e fazer ele ter a mesma função do combo país para estado... Vou ver no banco as minhas relações só pode... Mas eu acho que fiz igual do combo páis para estado, o do estado para cidade... Esse funciona, que é do combo páis para estado: <script> function BuscaProdutos() { //a variável categoria vai receber o valor selecionado na primeira combo (txt_categoria) var categoria = document.form1.txt_categoria.options[document.form1.txt_categoria.selectedIndex].value; for (i = 1; i < document.form1.txt_produto.length; i++) { document.form1.txt_produto.options[i] = null; } //setamos duas variáveis auxiliares que irão ser utilizadas para controles var controle = 0 var contador = 0 <% 'Listamos as categorias SQL_Cat2 = "select * from paises order by categoria" Set RS_Cat2 = objConn.Execute(SQL_Cat2) 'Enquanto não for final de arquivo, listamos os cidades da estado atual (que está no loop) Do Until RS_Cat2.EOF SQL_Prod = "select * from estados where id_categoria = "&RS_Cat2("id") Set RS_Prod = objConn.Execute(SQL_Prod) 'Vamos verificar a quantidade de registros encontrados. Serve também como um controle. SQL_Count = "select count(*) as maximo from estados where id_categoria = "&RS_Cat2("id") Set RS_Count = objConn.Execute(SQL_Count) Do Until RS_Prod.EOF %> //Enquanto não for fim de arquivo, verificamos se o produto retornado pertence à categoria guardada na //variável categoria (Java Script) e se nosso "controle" é menor que o máximo de registros. //Se tudo estiver OK, incrementamos "controle" e "contador" e escrevemos a nova opção em txt_produto. //Reparem que "contador" atua como a posição que o registro ocupará no combo. if(<%=RS_Prod("id_categoria")%> == categoria && controle < <%=RS_Count("maximo")%>) { controle++ document.form1.txt_produto.options[contador]=new Option('<%=RS_Prod("produto")%>','<%=RS_Prod("cidade_id")%>'); contador++ } <% RS_Prod.MoveNext Loop RS_Cat2.MoveNext Loop %> } </script> Esse a função que tenho para cidades agora e que não roda (tentei simular o de cima): <script> function BuscaCidades() { //a variável categoria vai receber o valor selecionado na primeira combo (txt_categoria) var cidadesscript = document.form1.txt_produto.options[document.form1.txt_produto.selectedIndex].value; for (i = 1; i < document.form1.txt_cidade.length; i++) { document.form1.txt_cidade.options[i] = null; } //setamos duas variáveis auxiliares que irão ser utilizadas para controles var controle = 0 var contador = 0 <% 'Listamos as categorias SQL_Cat3 = "select * from estados order by id_categoria" Set RS_Cat3 = objConn.Execute(SQL_Cat3) 'Enquanto não for final de arquivo, listamos os cidades da estado atual (que está no loop) Do Until RS_Cat3.EOF SQL_Prod1 = "select * from cidades where id = "&RS_Cat3("id") Set RS_Prod1 = objConn.Execute(SQL_Prod1) 'Vamos verificar a quantidade de registros encontrados. Serve também como um controle. SQL_Count1 = "select count(*) as maximo from cidades where id = "&RS_Cat3("id") Set RS_Count1 = objConn.Execute(SQL_Count1) Do Until RS_Prod1.EOF %> //Enquanto não for fim de arquivo, verificamos se o produto retornado pertence à categoria guardada na //variável categoria (Java Script) e se nosso "controle" é menor que o máximo de registros. //Se tudo estiver OK, incrementamos "controle" e "contador" e escrevemos a nova opção em txt_produto. //Reparem que "contador" atua como a posição que o registro ocupará no combo. if(<%=RS_Prod1("id")%> == categoria && controle < <%=RS_Count1("maximo")%>) { controle++ document.form1.txt_cidade.options[contador]=new Option('<%=RS_Prod1("cidades")%>','<%=RS_Prod1("id")%>'); contador++ } <% RS_Prod1.MoveNext Loop RS_Cat3.MoveNext Loop %> } </script> Obrigado! Marcelo Eu acho que a função de baixo não está sendo chamada será? Acho que deveria colocar tudo na mesma função, estou tentando aqui mas nada ainda...

Olá, é boa idéia. Acese: http://www.sbpi.org.br/combo/busca.asp veja que os combos país e estado está ok, só falta combo cidade ou mais um combo se eu quiser colocar... A questão é que tenho a mesma lógica e dar erro... na verdade, não dar em nada! Obrigado! Marcelo

Olá Kuroi, funcionou! Obrigado mesmo! Mas a questão é que esse meu combo(1) preenche o outro combo(2) só que esse não preenche o combo(3)... Saiba o que ocorre no script que não preenche? Coloquei um onChange no select também e modifiquei a minha função, criei até outra separada, mas nada, fica morto... Tem alguma dica na sequência do script? Obrigado! Marcelo

Ninguém pode me ajudar?? Preciso carregar o combobox dependendo da seleção que for feita em outro.

Pessoal, preciso de ajuda que não estou conseguindo resolver! Tenho um combo, caixa suspensa, que seleciona o país e assim exibi no select / combo o estado referente a esse páis. Tipo: Brasil exbide São Paulo, França exibe exterior, por exemplo. Mas quando faço Brasil ele exibe São Paulo e quando resolvo exibi França ele mostra no outro combo exterior e são paulo, em vez só de exterior, como resolver? Combo: <select name="txt_categoria" class="cboStyle" onChange="BuscaProdutos()" style="color: #575757; border: 1px solid #C0C0C0; background-color: #FFFFFF"> <option value="Selecione o Estado">Selecione o País</option> <% 'aqui setamos na propriedade onChange, a função BuscaProdutos(). A cada mudança, a função é executada.%><% 'Fazemos a busca de todas as categorias para preencher o primeiro combo. SQL_Cat = "select * from paises order by categoria" Set RS_Cat = objConn.Execute(SQL_Cat) Do Until RS_Cat.EOF Response.Write "<option value="&RS_Cat("id")&">"&RS_Cat("categoria")&"</option>" RS_Cat.MoveNext Loop %> </select> Script que o combo chama: <script> function BuscaProdutos() { //a variável categoria vai receber o valor selecionado na primeira combo (txt_categoria) var categoria = document.form1.txt_categoria.options[document.form1.txt_categoria.selectedIndex].value; //setamos duas variáveis auxiliares que irão ser utilizadas para controles var controle = 0 var contador = 0 <% 'Listamos as categorias SQL_Cat2 = "select * from paises order by categoria" Set RS_Cat2 = objConn.Execute(SQL_Cat2) 'Enquanto não for final de arquivo, listamos os cidades da estado atual (que está no loop) Do Until RS_Cat2.EOF SQL_Prod = "select * from estados where id_categoria = "&RS_Cat2("id") Set RS_Prod = objConn.Execute(SQL_Prod) 'Vamos verificar a quantidade de registros encontrados. Serve também como um controle. SQL_Count = "select count(*) as maximo from estados where id_categoria = "&RS_Cat2("id") Set RS_Count = objConn.Execute(SQL_Count) Do Until RS_Prod.EOF %> //Enquanto não for fim de arquivo, verificamos se o produto retornado pertence à categoria guardada na //variável categoria (Java Script) e se nosso "controle" é menor que o máximo de registros. //Se tudo estiver OK, incrementamos "controle" e "contador" e escrevemos a nova opção em txt_produto. //Reparem que "contador" atua como a posição que o registro ocupará no combo. if(<%=RS_Prod("id_categoria")%> == categoria && controle < <%=RS_Count("maximo")%>) { controle++ document.form1.txt_produto.options[contador]=new Option('<%=RS_Prod("produto")%>','<%=RS_Prod("cidade_id")%>'); contador++ } <% RS_Prod.MoveNext Loop RS_Cat2.MoveNext Loop %> } </script> E combo que exibi os estados do país escolhido: <select name="txt_produto" class="cboStyle" style="color: #575757; border: 1px solid #C0C0C0; background-color: #FFFFFF"> <option value="Selecione a Cidade">Selecione o Estado</option> </select> Alguém sabe como resolver ou tem um exemplo melhor? Obrigado!

Olá pessoal, Estou rodando o sistema AdMentor, um dos sistemas de banner conhecido em ASP. Ele insere os banners normais, na categoria e tudo com seu painel administrativo. Mas, como faço para colocar o banner adicionado no AdMentor em meu site? Ele tem uma opção chamada: Gerar código HTML, mas o código que ele gera para colocar no meu site da erro ou fica em branco, esse mesmo fica em branco, não mostra nada: <!------- AdMentor Ad code -------------> <script language="JavaScript"> var code = ''; var now = new Date(); var nIndex = now.getTime(); document.write('<s' + 'cript src="http://localhost/banner/admentor/scriptinject.asp?F=0&Z=0&N=8&nocache=' + nIndex + '">'); document.write('</' + 's' + 'cript>'); </script> <script language="JavaScript">document.write(code);</script> <noscript> <a href="http://localhost/banner/admentor/adclick.asp?F=0&Z=0&N=8"> <img border="0" src="http://localhost/banner/admentor/adserve.asp?F=0&Z=0&N=8"></a></noscript> <!--------- End AdMentor Ad code ---------------> Alguém conhece esse sistema, para que possa me ajudar? Obrigado e aguardo! Marcelo