marvi

Olá pessoal, Fiz um sistema em ASP mas queria que ele tivesse um prazo de funcionamento, existe algum codigo que expira o site? Que determinado ponto ele pare ou um codigo que trave de alguma forma? Para que a pessoa renove? Grato! Marcelo

Bareta, Como não vai mudar? Eu fiz os teste com combos fixos e ele através de ID vai chamando outro ID correspondente e exibindo no combo abaixo em uma seqüência tranqüila, isso sei que faz... mas o problema é se eu criei até 3 combos fixos esperando esses IDs seqüenciais e o usuário criou lá no painel 5 IDs, como continuar uma seqüência dinâmica dos IDS? Como fazer os combos virarem 5 combos? Já que são 5 IDS correspondentes no banco? Aí que entra o combo dinâmico em AJAX, por exemplo e assim vai de acordo com o conteúdo. Tendo conteúdo vai gerando a seqüência...

Você fala dentro da função: function RetornoAjax(id, url, container) { if (id == "") { document.getElementById("subcategoria").innerHTML = "<select></select>"; document.getElementById("subcategoria1").innerHTML = "<select></select>"; document.getElementById("subcategoria2").innerHTML = "<select></select>"; document.getElementById("subcategoria3").innerHTML = "<select></select>"; document.getElementById("subcategoria4").innerHTML = "<select></select>"; 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 } ?

Veja o codigo: Default.asp: <!--#include file="conexao_dados.asp"--> <script src="funcoes.js" type="text/javascript"></script> <% call abre_conexao sql = "select * from categorias where id_categoriapai is null order by nome" set tab = conexao.execute(sql) %> <select name="categoria" id="categoria" onchange="RetornoAjax(this.value, 'subcategoria.asp', 'subcategoria')"> <option value="">-Selecione-</option> <% while not tab.eof %> <option value="<%= tab("id_categoria")%>"><%= tab("nome")%></option> <% tab.movenext wend %> </select> <div name="subcategoria" id="subcategoria"></div> <div name="subcategoria1" id="subcategoria1"></div> <div name="subcategoria2" id="subcategoria2"></div> <div name="subcategoria3" id="subcategoria3"></div> <div name="subcategoria4" id="subcategoria4"></div> <% conexao.close set tab = nothing %> subcategoria.asp: <% Response.Charset = "ISO-8859-1" call abre_conexao id = request.querystring("id") sql = "select * from categorias where id_categoriapai ='"& id &"'" set tab = conexao.execute(sql) %> <%if tab.eof then%> <select name="subcategoria" id="subcategoria"> <option value="0001">-Não há mais subcategorias-</option> <%else%> <select name="subcategoria" id="subcategoria" onchange="RetornoAjax(this.value, 'subcategoria1.asp', 'subcategoria1')"> <option value="0001">-Selecione-</option> <% while not tab.eof %> <option value="<%=tab("id_categoria")%>"><%=tab("nome")%></option> <% tab.movenext wend conexao.close set tab = nothing %> </select> <%end if%> Função JS: function RetornoAjax(id, url, container) { if (id == "") { document.getElementById("subcategoria").innerHTML = "<select></select>"; document.getElementById("subcategoria1").innerHTML = "<select></select>"; document.getElementById("subcategoria2").innerHTML = "<select></select>"; document.getElementById("subcategoria3").innerHTML = "<select></select>"; document.getElementById("subcategoria4").innerHTML = "<select></select>"; 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 } Aí ele vai gerando o Combo de acordo com outro Combo, mas quando não tem mais combo para gerar fica lá uns combos ocultos que não receberão informações e esses ocultos e que da erro na página: destaque = UploadRequest.Item("destaque").Item("Value") descricao = UploadRequest.Item("descricao").Item("Value") categoria = UploadRequest.Item("categoria").Item("Value") subcategoria = UploadRequest.Item("subcategoria").Item("Value") subcategoria1 = UploadRequest.Item("subcategoria1").Item("Value") subcategoria2 = UploadRequest.Item("subcategoria2").Item("Value") linha de erro: subcategoria3 = UploadRequest.Item("subcategoria3").Item("Value") O que acontece é o seguinte, quando o UploadRequest.Item é criado e não existe algum campo la no formulário que corresponda com o UploadRequest.Item então ele da esse erro. Se você cria ola=UploadRequest.Item("ola").Item("Value") e não existe esse campo Ola no form, ele da esse erro. No meu caso eu estou com um combox dinâmico que pode gerar até 5 combox... Mas tem informações do banco que gera até 2 ou 3 combox deixando os outros combos: 4 e 5 fora do formulario ou tipo inexistente, então esses 4 e 5 da erro la no ("subcategoria4 ou 5").Item("Value")) , entende? Obrigado! Marcelo

Olá pessoal, Eu tenho um combo em uma página, onde a pessoa vai preenchendo e vai complementando o próximo combo, mas se a pessoa não selecionar todos os combos ao inserir o arquivo no banco com esses combos pela metade da o seguinte erro: Objeto necessário: 'UploadRequest.Item(...)' /afeirita/painel/produtos/inserir_produto.asp, line 24 Linha: subcategoria3 = UploadRequest.Item("subcategoria3").Item("Value") Como faço para que os combos que estiverem vazios não interfira na minha página que irá gerar o insert? Já use On Error Resume Next mas com ele acho que não deixa os outros dados inserirem no banco corretamente... Avisa que inseriu mas está vazio...Alguém tem alguma dica para isso? obrigado! Marcelo

Valeu Rafael, obrigado pela atenção! Estou pesquisando sobre um combo AJAX... se souber de algo por aí é só avisar!! Obrigado mesmo! Marcelo

Rafael, tudo bem... Aguardo novidades! Grato!

Certo, veja o que fiz com o banco: Vou dar o exemplo para entender. Mas, primeiro eu fiz isso para que a pessoa em um painel de controle do site possa criar categorias e subcategorias sem limites, sem está limitado pelas tabelas... pois se existisse só categorias e subcategorias, com uma tabela chamada categorias e outra chamada subcategorias resolveria. Mas, se a pessoa no momento precisar criar 3 categorias? Ou seja, categoria A, subcategoria A e a subcategoria da subcategoria A, entende? Aí não tem como ser feito com as tebalas já prontas. O que fiz: Fiz uma tabela que referencia a si mesma. Veja o exemplo: Temos o campo nome com as categorias e subcategorias tudo junto. Lá temos o nome Fraldas e que no seu campo id_categoriapai (que fica na frente dele) está vazio, mas por que vazio? Porque ele é a categoria principal e assim não é subcategoria de ninguém. Temos agora o nome Oi e que no seu campo id_categoriapai tem um número que é o numero 24 e isso indica que ele é subcategoria de Fraldas porque o id_categoria de Fraldas é 24, ok? Temos agora o nome Oi1 e que no seu campo id_categoriapai tem o número 28 e isso indica que ele é subcategoria de Oi, que está logo acima, pois esse Oi tem o numero 28 no seu id_categoria. Ou seja: o Oi1 é subcategoria da subcategoria Oi e que por sua vez é subcategoria da categoria Fraldas. E assim vai, entendeu? Assim eu quero exibir um relatório para que o usuário escolha a categoria que quer para cadastrar o produto. Nesse caso, a pessoa iria cadastrar o produto em Oi1 que é a ultima subcategoria e assim ela se cadastra nesta ultima. Mas como exibir isso? Mostrando Fraldas -> Oi -> Oi1 (aqui coloca o produto) Entendeu? Obrigado mesmo pela ajuda!

Assim acho que não, deu erro: 0x80020009) Exceção. /afeirita/teste/index.asp, line 19 sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" Só roda se tiver dentro do loop e as formas que fiz postei logo acima... Tive pensando em combo em Ajax...

FIz assim: call abre_conexao sqlcat = "select id_categoria, nome from categorias order by nome asc" set rsP = conexao.execute(sqlcat) sqlcat1 = "select id_categoria, nome from categorias where id_Categoriapai = "&rsP("id_Categoria")&"" set rsF = conexao.execute(sqlcat1) do while not rsP.eof response.write("Categoria: "& rsP("nome")) response.write"<br><br>" do while not rsF.eof response.write(" &nbsp;&nbsp;&nbsp;∟>> Subcategorias: "& rsF("nome")) response.write"<br><br>" sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" set rsN = conexao.execute(sqlcat1) do while not rsN.eof response.write(" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;∟>>> Subcategorias: "& rsN("nome")) response.write"<br><br>" rsN.movenext() loop rsF.movenext() loop rsP.movenext() loop E saiu assim: Categoria: Fraldas ∟>> Subcategorias: oi ∟>>> Subcategorias: oi Categoria: Fraldinhas Categoria: oi Categoria: oi1 Categoria: ola Categoria: ola1 ------------------------------ Depois fiz isso : <% call abre_conexao sqlcat = "select id_categoria, nome from categorias order by nome asc" set rsP = conexao.execute(sqlcat) sqlcat1 = "select id_categoria, nome from categorias where id_Categoriapai = "&rsP("id_Categoria")&"" set rsF = conexao.execute(sqlcat1) do while not rsP.eof response.write("Categoria: "& rsP("nome")) response.write"<br><br>" do while not rsF.eof sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" set rsN = conexao.execute(sqlcat1) response.write(" &nbsp;&nbsp;&nbsp;∟>> Subcategorias: "& rsF("nome")) response.write"<br><br>" rsF.movenext() loop rsP.movenext() loop %> Pelo visto esse é o que chegou mais proximo, mas não deu, ficou assim: Categoria: Fraldas ∟>> Subcategorias: oi Categoria: Fraldinhas Categoria: oi Categoria: oi1 Categoria: ola Categoria: ola1 Obs: eu tava também tentando fazer um combo dinâmico com AJAX, pois acho que isso resolveria também... mas meu combo gera normal com os combos definidos, precisaria que os combos não fossem definidos e sim gerando automaticamente de acordo que tinha no banco, sem limites

Não sei o que houve... com a sua programação da erro: Tipo de erro: (0x80020009) Exceção. /afeirita/teste/index.asp, line 26 Linha 26 é: response.write("Categoria: "& rsF("nome")) To vendo aqui...

Combo roda bem! Mas seria interessante e que venho buscando e não acho era ter combo em Ajax que não fosse pré-definidos e sim que ele fosse sendo criado automaticamente até quanto for necessário...

Olá, não sei mas como fazer... cheguei até aqui mas... não vejo problema na lógica... Acho que é meu banco, como viu, ele referencia a ela mesma... já que o usuário precisa criar várias subcategorias que precisar e assim não posso limitá-lo com quantidades fixas de tabelas de subs... call abre_conexao sqlcat = "select id_categoria, nome from categorias order by nome desc" set rsP = conexao.execute(sqlcat) do while not rsP.eof response.write("Categoria: "& rsP("nome")) response.write"<br><br>" sqlcat1 = "select id_categoria, nome from categorias where id_Categoriapai = "&rsP("id_Categoria")&"" set rsF = conexao.execute(sqlcat1) do while not rsF.eof response.write("Subcategorias: "& rsF("nome")) response.write"<br><br>" sqlcat2=" select id_categoria, nome from categorias where id_Categoriapai = "&rsF("id_Categoria")&"" set rsN = conexao.execute(sqlcat1) do while not rsN.eof response.write("Subcategorias: "& rsN("nome")) response.write"<br><br>" rsN.movenext() loop rsF.movenext() loop rsP.movenext() loop%> Será que consegue ver algo aí?

Bareta, já fiz isso... Categoria: Fraldinhas ∟>> Subcategorias: azul ∟>>> Subcategorias: azul Categoria: Fraldas ∟>> Subcategorias: bacotinho ∟>>> Subcategorias: bacotinho Ele repete as subs...

Eu tava pensando em fazer um combo dinâmico, alguém sabe como? O que tentei aqui é dinâmico mas os combos são pre-definido. Queria algo em AJAX, não sei, que os combos fossem surgindo de acordo com o conteudo do banco e a referência com outro combo... Tem?

é, você escolhe uma categoria e ele gera a subcategoria dela correspondente, depois escolhe as subcategorias que poderá ou não gerar outras subcategorias, dependendo se a pessoa na hora de cadastrar, cadastrou mais subcategorias... aí ele escolhe até termienar e insere o produto. Tipo: Ele pode cadastrar subcategorias da subcategorias varias vezes... não tem um "limite" vamos dizer assim... Categoria A -> Categoria AA -> Categoria AAA. Nesse exemplo a pessoa verá que categoria AAA é da categoria AA e assim vai... Quero que mostre as categorias e subcategorias correspondentes para que o cliente marque a opção que quer, entende?

Ninguém? ...

Pessoal, não sei mais o que fazer... Tenho uma tabela categoria e que possui também subcategorias que referencia a ela mesma... pois assim ela é dinâmica e a pessoa insere quantas subcategorias da subcategorias quiser... entende? Veja a tabela em Access XP: Mas eu quero ao cadastrar o produto mostrar um combo ou uma lista para marcar onde a pessoa quer cadastrar esse produto, se é em uma determinada subcategoria listada, por exemplo, como faço? Pois quero que mostre: Categoria A - Sub Categoria A - Subcategoria da subcategoria A... Categoria B - Sub Categoria B - Subcategoria da subcategoria B e etc. Tente isso mas acho que não vai, pois aí solicita dois campos para os nomes da tabela: Code Snippet<% conta = 0 While Not rsAr.EOF sArtista = rsAr("nome") sCd = rsAr("nomecd") conta = conta +1 If conta = 1 Then Response.Write("Artista: "& sArtista &"<br>") End If Response.Write("CD: " & sCd) response.write "<br><br>" rsAr.MoveNext If Not rsAr.EOF Then If rsAr("nomeartista") <> sArtista Then conta = 0 End If End If Wend %> E agora? Como listar algo? Existe alguma lógica para isso? Já tente varias vezes, mas esse código acima, de outra programação, foi o que chegou mais perto... Mas ele conta um campo nome e depois conta outros campos e no meu caso tem que contar um campo só e saber quando é subcategoria de quem... entende? Não sei o que fazer... Obrigado mesmo! Marcelo

Rafael, Quase funciona, em vez de ser 02/09/2008 foi para 02/09/246 ficou esse 246 ai não sei porque... Resolvi, coloquei mais Y: aaaa = datepart ("yyyy", rspedidos("DTA_Pedido")) Acho que isso mesmo que quero! Valeu mesmo a todos!

Mas não quero entre, quero a data em si, não? Ele roda normal, só quando são datas com 0 na frente que não encontra... E se for entre não vai encontrar da mesma forma não? já que ele só ler em formato Americando, pois do Brasil ele formata mas tambem não ler...

Mas ele exibi a data atual e quero a data, a informação que vem do meu banco Access. Queria resolvir isso pelo seguinte: Fiz um response.write no meu sql e mostra: SELECT * FROM Produtos INNER JOIN (Pedidos INNER JOIN Pedido_Item ON Pedidos.Cod_Pedido = Pedido_Item.Cod_Pedido) ON Produtos.COD_Produto = Pedido_Item.Cod_Produto where DTA_Pedido LIKE #02/09/2008# and status = 'Fechado' Porém ele não encontra nada no meu banco de dados e la no banco tem essa data também. Isso só ocorre quando a data vem com 0 na frente, tipo 02/09/2008, mas quando tem 31/08/2008 vai normal a pesquisa. Quando uso o padrão americano ele pesquisa com 0 e tudo, mas com o Brasil não consegue pesquisar com 0.

Olá Pessoal, estou usando um banco Access para fazer uma consulta por data. Na hora de exibir no meu combo ela exibi assim: 8/31/2008 e quero assim 31/08/2008. Sei que posso usar um session.LCID = 1034 e ela exibi todas as datas da página normal, mas que quero é que uma data exibida normal e outra não... Se tenho esse select combo: <select name="faturadia" size="1" style="font-family: Verdana; font-size: 10 px; color: #808080; border: 1px solid #FFFFFF"> <option>- Escolha o dia -</option> <% While not rspedidos.EOF %> <option value="<%= rspedidos("DTA_Pedido")%>"> <%= rspedidos("DTA_Pedido")%></option> <% rspedidos.MoveNext Wend %> </select> Quero que o value continue como está, mas que o option onde a pessoa ver a data seja formatada, só essa variável, para o padrão nacional, entenderam? Ou seja, quero formatar uma formação que venha do banco de dados como nacional e por em uma variavel para mostrar ao usuário. Mas só a variável especificamente e não a página toda, globalizada com o LCID. Como faço? Alguma função? Grato

Ta não, ela é que exibi os dados la no loop normal...

Pessoal, tenho essa SQL SQL = "SELECT pedidos.Cod_Pedido, pedidos.Cliente, pedidos.hora, pedidos.DTA_Pedido, pedidos.hora, pedidos.cep, produtos.produto FROM Pedidos INNER JOIN (Produtos INNER JOIN Pedido_Item ON Produtos.COD_Produto = Pedido_Item.Cod_Produto) ON Pedidos.Cod_Pedido = Pedido_Item.Cod_Pedido where status = 'Fechado' group by pedidos.Cod_Pedido, pedidos.Cliente, pedidos.hora, pedidos.DTA_Pedido, pedidos.hora, pedidos.cep, produtos.produto" E gostaria de saber como faço para ela não ficar repetindo os pedidos, se tiver pedidos numero 4 que solicitou dois pedidos, ele faz: 4, 4... em vez de 4 só, entende? Quando faço um pedido, se peço 3 itens, ele gera 3 pedidos no sistema, não tem como o pedido ficar num único chamado? Já usei group by e nada! OBS: Estou usando o Access XP e o ASP. Publiquei aqui porque penso que pode haver também alguma solução via ASP em vez de SQL, caso o SQL não rode. Desde já agradeço! Marcelo

Pessoal, Eu criei um campo para poder gerar uma categoria para que se possa inserir produtos nessa categoria, mas estou precisando criar a subcategoria dela e se preciso, posso criar a subcategoria da subcategoria e assim vai... Tem como fazer isso de forma dinâmica ou tem que ter os bancos prontos esperando uma determinada quantidade de categorias e subcategorias? E poderia me mostrar um exemplo de uma maneira mais otimizada, se for preciso, claro. Desde já, agradeço! Marcelo