Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
  • Total de itens

    2.500
  • Registro em

  • Última visita

Posts postados por cyberalexxx

  1. da uma olhada se é isso q você quer:

    <%
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set principal = FSO.GetFolder("c:\pasta") ' coloque a pasta principal
    Set arquivos = principal.Files
    
    For each arq in arquivos
    response.write "<a href='" & arq &"'>"&arq&"</a><br>"
    next
    %>

  2. Isso acontece porque voce não esta especificando um tipo de cursor, tenta criar o recordset assim:

    set conexao=server.createobject("adodb.connection")
    caminho="DBQ=" & server.mappath("banco.mdb")
    conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & caminho
    SQL = "select * from tabela"
    SET RS = Server.CreateObject("ADODB.Recordset")
    RS.Open SQL,conexao,3,3

  3. rode esse script e veja se alguma variavel lhe satisfaz.

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

  4. não vou lhe dar um peixe, mais toma ai uma vara de pescar:

    - crie um looping dentro do recordset (do while not MyRs.EOF)

    - faça uma camparação para ver se o arquivo existe (if)

    - caso exita mostre a imagem

    - caso contrario (else) va para o próximo registro (MyRs.MoveNext)

    - comece tudo de novo (loop)

  5. já fiz isso uma vez, mais quem disse que eu lembro, hehehe

    Se não me falha esta velha maquina cinzenta é uma das opções abaixo

    email@email.com.br <nome do infeliz>
    <nome do infeliz> email@email.com.br
    email@email.com.br [nome do infeliz]
    [nome do infeliz] email@email.com.br

  6. olha ai um exemplo:

    dias = "Domingo, Segunda Feira, Terça Feira, Quarta feira, Quinta Feira, Sexta Feira, Sábado"
    dias = Split(dias,",")
    Response.Write dias(WeekDay(Date)-1) 
    

×
×
  • Criar Novo...