Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. Amigos, boa terde.

    Gostaria de saber como faço para configurar o iis para criar contas de email e enviar e receber mensagens. Ou aonde existe um tutorial com essas informações.

    Muito Obrigado.

    Até mais....

    Acho que o IIS só permite envio de mensagens através do SMTP + componente de envio (asp) agora para receber email eu nunca vi nada parecido.

  2. exemplo de seleção de varios campos com mais de uma condição:

    Select campotexto, camponumerico from tabela where campotexto='condição' or camponumerico=numerodecondição order by campotexto

    lembrando que para campos numericos não são usadas aspas simples '

  3. Porque voce não usa outro BD??

    Access é meio limitado, ainda mais em um sistema grande como Loja virtual, em bancos mais "robustos" voce consegue gerar os registros aleatórios facinho, tenta o sqlserver ou mysql (prefiro o mysql pois a maioria dos servidores suportam).

  4. eu não ficaria queimando muito neuronio não. faria logo uma gambiarra já q são tres registros só, eu criaria uma variavel de aplicação cujo valor vai acumulando de 1 a 3, depois eu faria uma comparação antes de criar o recordet se a variavel for 1 deixo em ordem normal, se for 2 ordeno em ordem decrescente e se for 3 uso o rnd().

  5. faltou um ponto da uma olhada:

    <%

    set ConnString = Server.CreateObject("ADODB.Connection")

    ConnString.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"

    sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"

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

    Registros.Open sql, connstring, 3, 3

    %>

  6. deixa assim:

    <% 
    set ConnString = ServerCreateObject("ADODB.Connection")
    ConnString.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"
    sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"
    Set Registros = Server.CreateObject("ADODB.Recordset")
    Registros.Open sql, connstring, 3, 3
    %>

  7. voce esta repetindo os nomes dos objetos e variaveis, da uma olhada:

    <%

    set ConnString = ServerCreateObject("ADODB.Connection")

    ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxxxxxx\produtos.mdb;"

    sql = "SELECT * FROM Produtos WHERE Produtos.IDProduto='" & Request.QueryString("id") & "'"

    Set Registros = ConnString.Execute(sql)

    %>

  8. - no form_altera voce recupera através de request o valor informado em sl_funcionario para poder fazer a consulta, certo?!?!?!

    - grave esse valor em uma session

    - no altera_dados, voce recupera através de request os dados do form_altera e depois faz a instrução sql para alterar os dados, mais ou menos assim:

    update tabela set campo1='valorrecuperado', campo2='valor recuperado' where funcionario='session gravada na primeira etapa'

    conseguiu entender +/-???

  9. Com relação as imagens (com ou sem componente) acho que c você estiver desenvolvendo o sistema para você mesmo, tudo bem em usar os mais diversos componentes, o problema é se alguém quizer implementar seu sistema em um site e o server não possuir o componente. por isso acho melhor usar componentes só em ultimo caso.

  10. voce pode editar usando instruções SQL, exemplo para bancos em geral(access, mysql, mssqlserver, entre outros):

    UPDATE nomedatabela SET nomedocampo='novovalor', outrocampo='novovalor' where campo='condição'
    exemplo para MySQL (aguarda até que ninguém esteja lendo a tabela):
    UPDATE LOW_PRIORITY nomedatabela SET nomedocampo='novovalor', outrocampo='novovalor' where campo='condição'
    exemplo para MySQL :
    UPDATE IGNORE nomedatabela SET nomedocampo='novovalor', outrocampo='novovalor' where campo='condição'

    Da pra alterar também através das propriedades do Recordset, mais como não uso o método prefiro não entrar em detalhes, quem sabe alguém que goste do método não poste aki um exemplo.

  11. o rnd() realmente é uma Nhaca, desde o tempo em que eu programava em Basic (1988/1989 +/-) que já existia esse problema.

    Para sistema de banner, uma vez usei uma variavel Application para resolver o problema.

  12. c tá loco !!!!!!!!!!!!!

    To usando na intranet da empresa !!!!!! vo testa de novo

    Realmente sua função esta com problema, ela não esta pegando o ultimo elemento do vetor, tomei a liberdade de corrigi-la:

    <%dim ctg, str, vrf

    ctg = 0

    function correctRazao(param) 'Função que Arruma Razão Social

    if Len(trim(param)) > 2 then

    str = lCase(trim(param))

    vrf = split(str," ")

    do Until ctg = Ubound(vrf)+1

      if len(vrf(ctg)) > 3 then

      correctRazao = correctRazao & uCase(left(vrf(ctg),1)) & mid(vrf(ctg),2,len(vrf(ctg))) & " "

      else

      correctRazao = correctRazao & vrf(ctg) & " "

      end if

    ctg = ctg +1

    loop

    else

    correctRazao = trim(param)

    end if

    end function%>

  13. para ver todas as variaveis de servidor e qual lhe atende rode esse script:

    <style type='text/css'>
    tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 }
    </style>
    <table>
    <%FOR EACH ITEM IN Request.ServerVariables 
    Response.write "<tr><td>" & ITEM & "<td>" & Request.ServerVariables(ITEM) & "</tr>"
    NEXT%>
    </table>

×
×
  • Criar Novo...