bareta

ok, qualquer nova dúvida so postar ae

bom então crie um campo do tipo hidden que contera os campos seleionados... a cada adição de campo adicione nessse imput o campo... o valor dele ficaria algo como= campo1,campo2,campo3 use um split campos=split(UploadRequest.Item("campos").Item("Value"),",") ai so usar pela order va1=campos(0) va2=campos(1) e assim por diante

fechando... qualquer coisa crie outro tópico.

o que é o ajax??? uma combinação de js (asphttp) e o proprio asp em uma nova página... na verdade não vai mudar nada... o que você tem q pensar é como chamar inumeras subcategorias a partir da principal... seja com ajax ou sem...

http://www.portalmaracaju.com.br/blog/arti...=69&blog=14

vo te da um exemplo de sql.... com no maximo 2 sub categorias... basicamente algo assim

galera sou um zeroa a esquerda em java... arranho uns palpite ... to testando o esquema de timeline do assembla (http://trac.assembla.com/bareta), so pro controle de alterações nos arquivos. tentei de todo jeito mandar algusn arquivos pra lá mais num vai, também não achei nada explicativo sobre tal. alguém pode me dar umas dicas ai

vb script: Cdate ( ) Descrição: Devolve uma expressão que foi convertida para o tipo Date dentro das limitações do mesmo. astringdata = "October 19, 1962" dataconvertida = CDate(astringdata) ' ficou convertido para date basicamente o cdate converte a string para um numero do tipo data:hora... as vezes o sql da erro na consulta, que é reolvida com cdate.

nossa odeio esse quote silencioso,.... quem faz isso tinha ter as pernas cortadas fora... depois dos dedos é claro... tai fique feliz e execute sua macro a cada 2 minutos Sub espera() Application.OnTime Now + TimeValue("00:02:00"), "exportar" End Sub ai se faz um loop infinito ai... que vai espera 2 min e volta ... eassim por diante..

hidshadiasuas num sei porque mais nunca vi esse movimento dar certo ... dhuiasdhiasuduhsaduhia faz um clone do travian então.... eu começei a fazer mais larguei mão...

tava vendo esse tópico aqui... lembrei dum arquivo que me passaram uma vez... muito bom ele... basicamente com ele eu poderei detonar um host inteiro a partir de um site hospedado lá... porque to falando isso... porque é extremamente necessário colocar um controle de extensões no upload. eu entrei num site uma vez logo que tava aprendendo umas coisas sobre segurança, (cupido virtual era o nome se não me engano), fiz meu cadastro e mandei minha foto (ftp.asp), ai fui na pasta das imagens e acessei meu arquivo... http://www.site.com/ftp.asp... e dai já sabe... FSO poderia comer soulto... além de poder fazer download do site e etc... e ainda de outros hospedados no seerver... então cuidado... sahuidahsiudas

bom criei uma função para identificar um campo que esta gerando erro em insert. bom como pré requisitos uma conexão em uma sub... o código é esse: dúvidas, sugestões, correções, pedidos e elogios postem neste tópico.

seção errada.. movendo para .net

sim eu entendi. ele vai usar FSO para abrir os arquivos... use o google para encontrar códigos do tipo.

e so montar uma sql buscando ppor produtos de uma mesma categoria strBuscaProdutos = "SELECT TOP 6 * FROM produtos where categoria="&categoria&" ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[cat_id])"

e ae PhoEniXFirE blzinha... eu desisti de usa campos data no access... uso tres campos dia mes e ano... e resolve minha vida isso... não perco tempo não tenho problemas depois... se você buscar no google vai achar 5000000000 de topicos falando de datas...

legionarios o rafael ta te ajudando ai já... então só vo te dar um conselho... muda de servidor... é mta limitação... e pelo andar essas são as que você encontrou ainda deve vir mta burocracua por ai...

sem comentarios caso vocês não tenham percebido, essa função serve pra fazer um inert campo a campo da sql... se tiver 100 campos vai ter 100 cadastros. faz um a um e se escrever algo na tela é porque o primeiro campo que apareceu ta gerando o erro... porque não usou o que postei lá... muda oi insert para o q postei só que aqui é o seguinte... agora tem outro problema porque os campos tão vindo em branco né... veja esse insert não vai dar erro a não ser que ajam campos em branco.... tendeu... vo olhar depois isso... se acahar eu posto aqui CALL AbreConexao strINS = "Insert into TBL_MAQUINAS_VENDA (ID_USUARIO, MARCA , MODELO , FORMATO , ANO_FABRICACAO , TIPO , FUNCIONAMENTO , APARENCIA , LOC_CIDADE , LOC_ESTADO , NOME , EMPRESA , DDD , TELEFONE , E_MAIL , preço , PAGAMENTO , OBSERVACOES , FOTO1 , FOTO2 , FOTO3 , FOTO4 , FOTO5 , DATA) values ("&varId_usuario&",'"& varMarca &"', '"& varModelo &"', '"& varFormato &"', "& varAnoFabricacao &", '"& varTipo &"', '"& varFuncionamento &"', '"& varAparencia &"', '"& varCidade &"', '"& varEstado &"', '"& varNome &"', '"& varEmpresa &"', "& varDDD &", "& varFone &", '"& varEmail &"', '"& varPreco &"', '"& varPagamento &"', '"& varObservacoes &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', #"& varDataCadastro &"#)" SET rsSQL = conexaoDB.EXECUTE(sql)

da o erro porque simplesmente não chama a sub conexao ai no arquivo use:

vai entende né... hdasuihdiuashidas

aff... o ultimo que postei funciona porque testei aqui... só q na hopra q ajeitei pra posta fico preço na sql poe preço lá sem Ç..

posta a mensagem de erro que deu seu código?

bom existe sim... você pode usar FSO ou pra facilitar cadastrar os arquivos.htm no banco de dados... e usar like no select normalmente...

<% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("/banco/loja.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[cat_id])" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title></title> </head> <body> <br> <font face="verdana" size="2" color="black"> <b>Confira alguns destaques de nossa loja... </font> <table width="780" border="0" cellspacing="0" cellpadding="0"> <tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof q = q + 1 %> <td width="567"><center><img src=./images/<%=rsBuscaProdutos("imagem")%> width="150" height="150" border=0 style="border:0;position:relative; left:12; top:19;"></a><br> <font face="verdana" size="2" color="black"><b> <br><br> <%=rsBuscaProdutos("nome")%> <br> <%=rsBuscaProdutos("descricaop")%> <font face="verdana" size="2" color="Red"> <br> <%="R$: "%> <%=rsBuscaProdutos("preço")%>,00 <br><br><br><br> </td> <% if q = 3 then %> </tr> <% q = 0 End If %> </table> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> </body> </html> mais ou menos isso

a então use o campo como texto mesmo no banco e data='"&data&"' já vai funcionar... e não tem problemas com zero... ai use a função pra data function formatadata(data) dia=day(data) mes=month(data) ano=year(data) if dia<10 then dia="0"&dia if mes<10 then mes="0"&mes formatadata=dia&"/"&mes&"/"&ano end function