Jump to content
Fórum Script Brasil

Ale3009

Membros
  • Posts

    10
  • Joined

  • Last visited

Posts posted by Ale3009

  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

    <conteudo tempo = "300">

    <imagem

    Endereco="config/imagens_conteudo/marcas/1P.jpg" Titulo="Titulo1" Texto="Abc abc abc1 Abc abc abc1 Abc abc abc1 Abc abc abc1 Abc abc abc1">

    </imagem>

    <imagem

    Endereco="config/imagens_conteudo/marcas/5P.jpg" Titulo="Titulo5" Texto="Abc abc abc5 Abc abc abc1 Abc abc abc1 Abc abc abc1 Abc abc abc1">

    </imagem>

    </conteudo>

    Aí o cod que fiz foi assim

    Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp")

    Set rs = Server.CreateObject("ADODB.Recordset")

    rs.CursorLocation = 3

    rs.CursorType = 0

    rs.LockType = 3

    rs.Open "SELECT codigo_marca, titulo_marca, desc_marca, nome_marca, url_imagem, principal FROM Mini_banner WHERE tp_banner = 3 and principal = 1 order by codigo_marca", Conexao

    rs.MoveFirst

    arquivo_xml= "principal.xml"

    set fso = createobject("scripting.filesystemobject")

    Set act = fso.CreateTextFile(server.mappath(arquivo_xml), true)

    act.WriteLine("<?xml version=""1.0""?>")

    act.WriteLine("<conteudo tempo = '300'>")

    do while not rs.eof

    act.WriteLine("<imagem Endereco=""& rs("url_imagem") & "" Titulo=""& titulo & "" Texto="" & rs("desc_marca") & "">")

    act.WriteLine("</imagem>")

    rs.movenext

    loop

    act.WriteLine("</conteudo>")

    act.close

    só que assim gera da seguinte forma

    <?xml version="1.0"?>

    <conteudo tempo = '300'>

    <imagem Endereco=config/imagens_conteudo/marcas/1P.jpg Titulo=Titulo Texto=abc abc abc abc abc abc abc abc>

    </imagem>

    <imagem Endereco=config/imagens_conteudo/marcas/2P.jpg Titulo=Titulo 2 Texto=abc abc abc abc abc abc>

    </imagem>

    <imagem Endereco=config/imagens_conteudo/marcas/3P.jpg Titulo=Título 3 Texto=abc abc abc abc abc>

    </imagem>

    </conteudo>

    Sem as aspa...

    alguém pode me ajudar a inserir com estas aspas por favor?

    Desde já obrigada

    Alessandra

  2. 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. 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. 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. 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

  6. 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...