Jump to content
Fórum Script Brasil

Ale3009

Membros
  • Posts

    10
  • Joined

  • Last visited

About Ale3009

Ale3009's Achievements

0

Reputation

  1. Olá Galeraaaa to c/ um pepinho básico aki por falta de experiencia mesmo .. heheheeh preciso gerar um XML pra um banner rotator, sendo que esses dados vem de banco. deve ser gerado da seguinte forma Aí o cod que fiz foi assim só que assim gera da seguinte forma Sem as aspa... alguém pode me ajudar a inserir com estas aspas por favor? Desde já obrigada Alessandra
  2. Ale3009

    Carga txt em Mysql

    droplist é o nome da tabela??? é isso né???... ai o txt todo eu colo assim? (18001,1806,1,1,-1,10868), (18001,57,765,1528,0,700000), (18001,4069,1,1,1,2102), (18001,4070,1,1,1,3192), (18001,4071,1,1,1,1615), (18001,1419,1,1,2,200000), (18001,1864,1,1,2,166667), (18001,1866,1,1,2,62500), (18001,1878,1,1,2,37037), (18001,1885,1,1,2,7092), (18001,1889,1,1,2,5435), (18001,4197,1,1,2,8); Muito obrigada.. você ta me ajudando muitão
  3. Ale3009

    Carga txt em Mysql

    Tenho isso na minha loja... <% 'Cria o objeto para upload de arquivo Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") myFileUpload.Form("txtAtualizacao").Path = Application("DiretorioAtualizacaoProdutos") Arquivo = Mid(myFileUpload.Form("txtAtualizacao").UserFilename, InstrRev(myFileUpload.Form("txtAtualizacao").UserFilename, "\") + 1) myFileUpload.Form("txtAtualizacao").SaveAs Arquivo 'Destroi o objeto de upload Set myFileUpload = Nothing 'Cria o objeto para abrir arquivo texto Set objFSO = Server.CreateObject("Scripting.FileSystemObject") caminho = Application("DiretorioAtualizacaoProdutos") & Arquivo 'Cria o objeto para ler o arquivo texto Set openTxt = objFSO.OpenTextFile(caminho, 1,0) 'Loop para leitura das linhas do arquivo texto while (not openTxt.AtEndOfStream) and response.isclientconnected() linha_txt = openTxt.readline arrayx = split(linha_txt,"|") If UBound(arrayx) <> 2 Then response.write UBound(arrayx) response.end End if 'Response.write "SELECT codigo_produto_loja, preco_base, preco_unitario, quantidade_produto FROM produtos WHERE codigo_produto_loja = '" & arrayx(0) & "'" 'Query de consulta a tabela Produtos Query_produtos = "SELECT codigo_produto_loja, preco_base, preco_unitario, quantidade_produto FROM Produtos WHERE codigo_produto_loja = '" & arrayx(0) & "'" 'Cria objeto para consultar as podutos Set RS_Produtos = Server.CreateObject("ADODB.Recordset") 'Conexão ADO Set RS_Produtos.ActiveConnection = Conexao RS_Produtos.CursorLocation = 3 RS_Produtos.CursorType = 0 RS_Produtos.LockType = 3 'Executa a query RS_Produtos.Open Query_produtos 'Se o registro existe, atualiza. If not RS_Produtos.Eof then preço = arrayx(1) 'Retira o ponto preco_unitario = replace(preço,".","") ' Retira virgula e repoe por ponto, para evitar problemas no UPDATE, caso banco seja SQL If Application("TipoBanco")="mssql" Then preco_unitario = replace(preco_unitario,",",".") End if quantidade = arrayx(2) If preço <> "" Then 'Response.write "UPDATE Produtos SET preco_base = '" & preco_unitario & "', preco_unitario = '"& preco_unitario &"' WHERE codigo_produto_loja = '" & arrayx(0) & "'" & "<br>" Conexao.Execute "UPDATE Produtos SET preco_base = '" & preco_unitario & "', preco_unitario = '"& preco_unitario &"' WHERE codigo_produto_loja = '" & arrayx(0) & "'" End if If quantidade <> "" Then RS_Produtos("quantidade_produto") = arrayx(2) Conexao.Execute "UPDATE Produtos SET quantidade_produto = " & arrayx(2) & " WHERE codigo_produto_loja = '" & arrayx(0) & "'" End if 'Se o registro não existe acumula na variavel indicativa Else nolocali = nolocali & arrayx(0) &"|"& arrayx(1) &"|"& arrayx(2) & "<br>" End if wend Set RS_Produtos = Nothing openTxt.close 'Destrói os objetos criados set openTxt = nothing set objFSO = nothing Call Fecha_conexao() 'Transfere o valor da variavel indicativa para uma session 'A session será exibida na página de upload de arquivo session("nolocali") = nolocali 'Mensagem de resposta msg_resultado = "Informações atualizadas" 'Redirect para página do POST Response.redirect "ADM_envia_txtProdutos.asp?msg_resultado="& msg_resultado %> Só que é um update da seguinte forma padrão que é CODIGOPRODUTOLOJA|VALOR|QUANTIDADE (SNY000|3212,40|10) poderiam me ajudar a transformar isso num INSERT com codigo_categoria|Nome_produto|autor|descricao_produto (1|00010367647896015516642AVODART|0,5 MG C/30 CPS|0263SMITH KLINE 001.2ETICOS - NEG UND00000000000000000100001000122.43000162.83000090.750033.0000000000010D10/2008 07/04/200901/02/200830/01/200804)
  4. Ale3009

    Carga txt em Mysql

    O problema é que não é SQL server.. é My SQL no php admin.. é on line lá tem uma parte que tem Importar Arquivo para importar Localização do arquivo texto mas ai q formato tem q esar esse arquivo txt? é só importar depois que da certo? Obrigada pelas rapidas respostas
  5. Ale3009

    Carga txt em Mysql

    Não entendi... já tenho a tabela criada e o txt pronto... quero saber como inserir na tabela esse txt entende?
  6. Ale3009

    Carga txt em Mysql

    Olá Galera.... tenho um banco já pronto c/ as tabelas neste aspecto: INSERT (codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, Nome_produto, descricao_produto, peso, disponivel, sigla_idioma) INTO `Produtos` VALUES('', 1, 1, 0, 0, 'Cataflan', 'Cataflan D.. Usado para infecções', 0, 1, 'pt_BR'); e preciso inserir via txt uns 6 mil ítens.. como eu poderia fazer isso??? me passaram um arquivo txt com esses dados; mas como seria este script? Desde já obrigada
  7. Não ta.. o q eu não consigo é capturar essa variavel do modelo entende??? não sei porque não chega lá quando dou post... por favor me ajudeeeee :wacko:
  8. é identico ao do modelo.. só acrescentei algumas coisas tipo ano.. etc.. nem os nomes eu mudei para testar olha só... são estados.asp, ajax.js e seleciona_cidade.asp mas a ultima variável não é enviada no post olha pra você ver http://shopsul.tempsite.ws/agencia/ ai mandei escrever... só chega a 1ª a selecionar...
  9. Amigo.. foi esse dela mesmo que usei.. ta igualzinho... o que eu preciso é algo bem parecido c/ a sua busca de marcas e modelos que você fez em http://www.portalmaracaju.com.br/cg_car/ só isso... Abraços ale
  10. Estou há 3 dias sem conseguir resolver esse "pepinoooo" quando dou post a categoria(marca).. q no caso seria cidades não é mandado no form... Estou usando um ajax simples daki da net pra estado/cidade como posso resolver isso? <form name="busca" method="post" action="produtos.asp" onSubmit="return valida_busca()"> <input type="hidden" name="lang" value=<%=request("lang")%>> <td width="100%" align="center"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="10%">Marca:</td> <td width="30%"> <select name="estados" onChange="MandaID(this.value)"> <option value="">Selecione</option> <% while not tab.eof %> <option value="<%= tab("codigo_categoria") %>"><%= tab("nome_categoria") %></option> <% tab.movenext wend %> </select> </td> </tr> <tr> <td>Modelo:</td> <td><div id="exibe_cidade"><select><option value="">Selecione uma Marca</option></select></div></td> </tr> <tr> <td colspan="2"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <% Dim Valor(25) Valor(1)="0000" Valor(2)="4000" Valor(3)="6000" Valor(4)="8000" Valor(5)="10000" Valor(6)="12000" Valor(7)="14000" Valor(8)="15000" Valor(9)="16000" Valor(10)="17000" Valor(11)="18000" %> <td style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px" class="MNlatesquerda"> Preço de: <SELECT NAME="preco1" class="FORMbox"> <OPTION SELECTED VALUE="0000">Todos</OPTION> <% opcao = request("preco1") For I=1 to UBound(Valor) If opcao = Valor(i) Then %> <OPTION SELECTED VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% Else %> <OPTION VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% End If Next %> </SELECT> à <SELECT NAME="preco2" class="FORMbox"> <OPTION SELECTED VALUE="1000000">Todos</OPTION> <% opcao = request("preco2") For I=1 to UBound(Valor) If opcao = Valor(i) Then %> <OPTION SELECTED VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% Else %> <OPTION VALUE="<%= Valor(i) %>"><%= Valor(i) %></OPTION> <% End If Next %> </SELECT> </td> </tr> <tr> <td height="15" colspan="2"></td> </tr> <tr> <td align="center"> <input name="Submit" type="submit" class="LCNlatesquerda" value="Buscar"> </form> Esse em negrito não chega de modo algum quando dou o post.... olhem o meu seleciona cidade (que na verdade é subcategoria marca) <select name="cidades"> <% if codigo_categoria = "" then %> <option value="">Selecione um modelo</option> <% else Call abre_conexao(conexao) Set RS_SubAtividades = Server.CreateObject("ADODB.Recordset") RS_SubAtividades.CursorLocation = 3 RS_SubAtividades.CursorType = 0 RS_SubAtividades.LockType = 1 RS_SubAtividades.Open "SELECT * FROM Subcategorias WHERE codigo_categoria = "&codigo_categoria&" ORDER BY nome_subcategoria", Conexao While Not RS_SubAtividades.EOF %> <option value="<%=RS_SubAtividades("codigo_subcategoria")%>"> <%=RS_SubAtividades("codigo_subcategoria")%> - <%=RS_SubAtividades("nome_subcategoria")%> </option> <% RS_SubAtividades.MoveNext Wend %> <option value="">Nenhuma</option> <% Call fecha_conexao set RS_SubAtividades = nothing end if %> </select> o nome dele é cidades... num tinha que chegar lá o <%=request("cidades")%> como chega o estados?
×
×
  • Create New...