Jump to content
Fórum Script Brasil

aferlim

Membros
  • Content Count

    38
  • Joined

  • Last visited

Community Reputation

0 Neutro

About aferlim

  1. aferlim

    Criando Txt Com Asp

    Veja se o caminho está correto assim: <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") caminho = Server.MapPath("\testes\catalogo\teste.txt") Response.Write caminho Response.end Set GRAVAR = FSO.CreateTextFile(caminho,true) gravar.write ("teste de gravação") gravar.close response.write "GRAVADO!" %>
  2. dá uma olhada nesse pequeno script para evitar palavras repetidas: palavra = "como fazer como o João Fez" ' aqui a sua string dim separada(10)'Um array para obter as palavras cont=0 ' Um contador para manipularmos o array for i=1 to len(palavra)'num caracteres var=mid(palavra,i,1) str=str&var if var=" " then' espaços em branco significa próxima palavra cont=cont+1 separada(cont)=str str="" ' então zeramos a string end if next cont=cont+1 separada(cont)=str ' para não perdermos a última palavra for i=1 to cont ' para evitar palavras repetidas for i2=1 to cont if separada(i)=separada(i2) and not i=i2 then separada(i)="" end if next next for i3=1 to cont ' para evitar palavras pequenas ex: é , sim, tem , não é opcional if not len(separada(i3)) < 4 then Response.Write(separada(i3)&"<br>") end if next
  3. aferlim

    Ajuda ....

    Tente isso: <% Set objConn = Server.CreateObject("ADODB.Connection") objconn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&server.MapPath("amor_arte")&";Uid=Admin;Pwd=;" Dim campo,strsql,rsdbcon,verifica,cont,cdprodutos,cddepartamento,nome,descricao,preço,precovenda,quantidade cdproduto=Request.Form("cdproduto") cddepartamento=Request.Form("cddepartamento") nome=Request.Form("nome") descricao=Request.Form("descricao") preço=Request.Form("preço") precovenda=Request.Form("precovenda") quantidade=Request.Form("quantidade") campo=Request.Form("campo") response.write campo strsql ="UPDATE Produtos SET CodigoProduto='"&cdproduto&"', CodigoDepartamento="&cddepartamento&",NomeProduto='"&nome&"', DescricaoProduto='"&descricao&"', preço='"&preço&"',PrecoVenda='"&precovenda&"',Quantidade='"&quantidade&"' where CodigoProduto='"&campo&"'" objConn.Execute(strsql) %>
  4. Cara mas na página ASP ou no editor SQL?
  5. aferlim

    Destacar Variavel

    O problema está sendo entaum no html não no asp. tente assim: TEnte a última vez: <% function destaca(frase) destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>") end function %> . . . <% set rs = objConnection.Execute("SELECT etc... etc....") %> <table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0"> <% If not rs.EOF Then cor= "#FFFFFF" while not rs.eof if cor <> "#FFFFFF" then cor="#FFFFFF" else cor = "#F0F0F0" end if %> <tr> <td bgcolor="<%=cor%>" width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%> %&nbsp; </font></div></td> <td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td> </tr> <% rs.MoveNext wend End if %> Não esqueça do: </table>
  6. aferlim

    Me Ajudem!

    Fórum encerrado!!!!!
  7. aferlim

    Destacar Variavel

    TEnte a última vez: <% function destaca(frase) destaca = replace(frase, Session("nome_completo"), "<b>" & Session("nome_completo") & "<b>") end function %> . . . <% set rs = objConnection.Execute("SELECT etc... etc....") %> <table width="285" border="1" cellpadding="0" cellspacing="0" bordercolor="#C0C0C0"> <% If not rs.EOF Then cor= "#FFFFFF" while not rs.eof if cor <> "#FFFFFF" then cor="#FFFFFF" else cor = "#F0F0F0" end if %> <tr bgcolor="<%=cor%>"> <td width="56"><div align="right"><font face="Verdana, Arial" color="#003366" size="1"><%=Round(Rs("total"), 2)%> %&nbsp; </font></div></td> <td width="221"><font face="verdana" size="1">&nbsp;<%=destaca(rs("central"))%></font></td> </tr> <% rs.MoveNext wend End if %>
  8. aferlim

    Destacar Variavel

    o erro tá dando porque a palavra sub é reservada do asp, não pode ser usada como variavel entaum a troque: <% function destaca(sub) sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %> por: <% function destaca(frase) sub = replace(frase,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %>
  9. aferlim

    Destacar Variavel

    Você montou a função errada. Nesse caso deve ficar assim: <% function destaca(sub) sub = replace(sub,Session("nome_completo"),"<b>"&Session("nome_completo")&"<b>") end function %> obs: as tags <b></b>são de negrito, e <u></u> sublinhado Caso for sublinhado substitua... Ok?
  10. aferlim

    Me Ajudem!

    faltou uma coisa: Aonde tem: str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante troque por: if Request("id_principal") <>"" then str="select * from funcionario where id = "&request("id_principal")&restante else str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante end if
  11. aferlim

    Me Ajudem!

    Bom! entaum vamos lá: Qualque dúvida post!!!!!!!! Implemete com o seu código pagina.asp: <% if Request("totalregistros") <> "" then ' Pra poder pesquisar vários registros for i=1 to Cint(Request("totalregistros")) restante=restante&" or id="&Request("hidden_cliente"&(i)) next contador_refresh=Cint(Request("totalregistros"))+1 else contador_refresh=1 end if str="select * from funcionario where nome = '"&request("nomecompleto")&"'"&restante Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open str, suaconexão %> <html> <body> <form action="pagina.asp?totalregistros=<%=contador_refresh%>" method="post"> <% for i=1 to contador_refresh%> <input type="hidden" name="hidden_cliente<%=i%>" value="<%=Rs("id")%>"> <%next%> <input type="text" name="nomecompleto"> <input type"text" value="envia"> </form> <p> Até aqui acho que está claro!!! Abaixo é aonde vai exibir os dados<br> <% while not rs.eof for i=1 to contador_refresh ids=ids&"&id"&i&"="&Rs("id") next %> <a href="pagina.asp?totalregistros=<%=contador_refresh%><%=ids%>&id_principal=<%=Rs("id")%> <% if Request("id_principal")<> "" then if Cint(Request("id_principal")) = Cint(Rs("id")) then nomedocracha=Rs("nomecompleto") fotodocracha=Rs("imagem") outrosdados=Rs("outros") end if end if Rs.movenext wend %> </p> cracha: <table> <tr> <td><%=fotodocracha%></td> </tr> <tr> <td><%=nomedocracha%></td> </tr> <tr> <td><%=outrosdados%></td> </tr> </table> </body> </html> putz., espero ter sido claro!!!!
  12. aferlim

    Up Load

    Vamos lá fale pra nós qual o componente que você usa? Ai poderemos ajudar, se não souber, informe-se no seu servidor. A outra forma, mas com um componente vai ficar muito melhor até pro seu entendimento.
  13. aferlim

    Me Ajudem!

    Vamos lá: imagino q já tem o link: entaum deixa eu ver se entendi: aqui os nomes: nome1 nome2 nome3 e ai o usuário escolhe um e o q ele escolher deverá aparecer a foto e os dados do crachá? é isso?
×
×
  • Create New...