Ir para conteúdo
Fórum Script Brasil

Netanias

Membros
  • Total de itens

    51
  • Registro em

  • Última visita

Posts postados por Netanias

  1. URGENTE!

    SWFObjects, AC_Runcontentesxxx.js, Noscript, etc, etc, etc.... E nada funciona no IE 7... Inclusive já tentei até cadastrar a MIMEType swf no servidor... aí que num funcionou mesmo....

    Eu queria saber nesse mundo de meu Deus... se tem algum cristão que saiba ativar o flash automaticamente do flash, principalmente, no IE 7...

    Vou colocar aqui como tá meu script....

    <object type="application/x-shockwave-flash" data="../ban/<%=(bansuper.Fields.Item("urlimg").Value)%>" width="728" height="90">

    <param name="movie" value="../ban/<%=(bansuper.Fields.Item("urlimg").Value)%>" />

    <param name="wmode" value="transparent" />

    <param name="FlashVars" value="IDBan=<%=(bansuper.Fields.Item("id").Value)%>">

    </object>

    É porque desse jeito roda tanto no IE quando no FF e outros mais... Qualquer solução tem que mostrar código flash nesse formato...

    Então... Alguém já conseguiu resolver esse problema...

    E o pior... Ainda uso o Flash MX ( não o MX 2004 )... e também o Dreamwaver MX ( não o MX 2004 )...

    Obrigado! Estou esperando...

  2. Oh... Bareta... beleza?

    Eu já usei SQL, mas devido os meus projetos ainda serem pequenos de uma cidade do interior - do Maranhão, o pior estado do Brasil - o mais atrasado e o mais corrupto - optei pelo uso do access, pois é mas rápido de desenvolver, e bem simples...

    Mas quando pegar meus futuros GRANDES projetos, aí sim, com certeza, Stored Procedures, será a primeira "parada"...

    Vlw!

    Isso é mais pros iniciantes como eu...

  3. Bom dia... Tudo bem... Na internet nada se cria, apenas se modificam... o Orkut, o Facebook, o Twitter, o FazKut, o Google e o Cadê, o MSN e o Google Talk, etc... e por aí vai...

    Na programação, no desenvolvimento, tudo é cópia de alguma coisa, idéia, projeto, template, modo de criar, etc...

    Mas a cada dia que passamos na frente do micro aprendemos coisas novas que nos impulsioam a aprender mais e desenvolvermos melhor...

    Não sei se é velha, e se alguém já usa... Mas por intuito - ou preguiça ( qualquer um dos dois tá valendo! kkk ) - descobrir uma forma de deenvolver websites mais velozes e de melhor manutenção.

    USANDO AS CONSULTAS DO ACCESS PARA CRIAR OS CONJUNTOS DE REGISTROS E NO ASP SÓ RECUPERAR DA SEGUINTE FORMA:

    *** "SELECT * FROM consulta_do_access_classificados"

    O que percebi um ganho de até 50% em relação a exibição das páginas, pois todo o processo de seleção dos registros é feito lá mesmo no banco de dados e não precisa a página asp estar enviando essas requisições e parâmetros toda vez que ele precisa montar a grande de eventos, com parâmetros por exemplo [ Eventos apartir de hoje, até 30 dias, etc, etc. ], ou ficar criando RIGHT JOIN toda vez, sobrecarregando o servidor...

    Ademais, nosso código fica limpinho, que é uma beleza...

    Ainda são conceitos básicos que aprendi, mas que valem a pena.... estou gostando..

    Se alguém já usa esses esquemas, reparta conosco, suas formas, aplicações, etc.

    Se usa outro banco de dados, coloque também dizendo como é feito e qual as experiências que já teve...

    Vlw! Tentando ajudar, pouco... sei... mas tentando.

  4. Karas, boa tarde.... beleza?

    Estou precisando colocar um sistema no meu portal igual o G1 - Notícias no seu site - Em iframe consegui muito bacana... Dêem uma espiada [ http://superconectado.com.br/conteudo/noti...no-seu-site.asp ].... Esse funciona perfeito... Mas é com IFRAME... Só que quero em Javascript pois é mais "semântico"...

    Alguém poderia me ajudar.... O meu problema mais específico... é através desse mesmo formulário que já está aí... escolher cores, tamanho, largura, quantas notícias, etc, etc.... e atualizá-las automaticamente pelo ASP e ACCESS... e criar o arquivo para a pessoa copiar e colar no seu site, sem ser com FRAMES ou IFRAMES... Vejam lá o do G1.. Acho que vocÊs sabem o que estou querendo....

    Muito obrigado!

  5. Fercosmig, é o seguinte:

    Esse javascript aí encima é para incluir um FLASH tanto no IE quanto no FF... certo?

    O problema é o seguinte:

    Eu utilizei comentários condicionais para identificar o browser e incluir o flash correspondente- nem sei se é correto e se funciona mesmo em JS...

    Só que a variável <%=(tv.Fields.Item("cont").Value)%> só aparece no primeiro caso, no caso tá o IE...

    Se eu trocar a posição dos comentários condicionais colocando primeiro para apresentar o do FF... ele vai mostrar... mas aí já não mostra o do IE...

    O que eu verifiquei é que no segundo comentário condicionais - independente de qual browser ele vai mostrar o flash - a variável <%=(tv.Fields.Item("cont").Value)%> vem em branco - não tem dados...

    Você poderia ver isso abrindo o código fonte no IE e no FF... no FF vai estar a url do FLASH, já no IE, é como se <%=(tv.Fields.Item("cont").Value)%> tivesse em branco.... só que é a mesma coisa....

    Acho que o problema é nos comentários condicionais... mas não sei como!

    Obrigado pela atenção!

    PS: Ah... e não apresenta nenhum erro.. só não mostra o FLASH no segundo bloco de scripts - no caso dentro do segundo comentário condicional...

    Encontrei milhares de idéias mirabolantes na internet para um problema aparentemente pequeno... mas se tornou grande demais com o tempo....

    Um código que exibesse banners flash tanto no Internet Explorer quando no Firefox...

    Criei dois javascript um para IE e outro para FF, inventei e reinventei... criei comentários condicionais no script - motivo desse post -... fiz de tudo.... tava pra desistir.... e aí me surge a única idéia que vi funcionar... como sou curioso, resolvi ver como o script brasil exibia banners no IE e no FF.. PIMBA! EUREKA!.... NA LATA!...

    kara eu fico louco com esses indigentes teóricos da internet que querem dizer que sabem tudo e criam verdadeiros entraves pro desenvolvimento da internet... ainda bem que nós mortais - que não sabemos de nada - somos os verdadeiros "mestres" da internet quando descobrimos como resolver um problema com 1% do código que os grandes mestres propõem....

    veja só... o que eu pretendia - e uns 10 "gurus" - de renome, diga-se de passagem - indicavam com mais ou menos 30 linhas, resolvi em 4.. vamos lá...

    <object type="application/x-shockwave-flash" data="<%=(banpop1.Fields.Item("urlimg").Value)%>" width="300" height="225">

    <param name="movie" value="<%=(banpop1.Fields.Item("urlimg").Value)%>" />

    <param name="wmode" value="transparent" />

    </object>

    Roda perfeito nos IE's da vida e no Firefox... já tá testado...

    Viva a revolução do "express code"....

  6. É MEIO URGENTE!

    Criei esse script com comentários condicionais...

    <script language="JavaScript" type="text/javascript">
    function Inserir_Flash(){
    
    <!--[if IE]> -->
    document.write("<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0' width='234' height='190'>");
    document.write("<param name='movie' value='<%=(tv.Fields.Item("cont").Value)%>'");
    document.write("<param name='allowScriptAccess' value='always' />");
    document.write("<param name='allowFullScreen' value='true' />");
    document.write("<param name='wmode' value='transparent' />");
    document.write("<param name='quality' value='best' />");
    document.write("<embed src='<%=(tv.Fields.Item("cont").Value)%>' allowScriptAccess='always' allowFullScreen='true' quality='best' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='234' height='190'></embed>");
     document.write("</object>");
    <!-- <![endif]-->
    
    <!--[if !IE]> -->
    document.write("<object type='application/x-shockwave-flash' data='<%=(tv.Fields.Item("cont").Value)%>' width='234' height='190' />");
    document.write("<param name='allowScriptAccess' value='always' />");
    document.write("<param name='allowFullScreen' value='true' />");
    document.write("<param name='wmode' value='transparent' />");
    document.write("<param name='quality' value='best' />");
    document.write("</object>");
    <!-- <![endif]-->
    
    }
    </script>
    <script type="text/javascript">Inserir_Flash()</script>

    Mas o segundo document.write - após o <!--[if !IE]> --> - não apresenta o vídeo no flash...

    Vejam o que acontece.... é que se não tivesse informado a URL do vídeo ( lembrando que a URL é dinâmica em ASP...

    ((((( PS: O problema é o Super TV do lado direito abaixo do menu )))))

    Se eu mudar a posição, aí sim ele mostra o do FF, mas não mostra o IE.. o certo é que ele só mostra a primeira condicional....

    http://www.novacapa.superconectado.com.br

  7. Karas, como fazer esse negócio dá certo?

    ---------------------------- div geral ( ok ) ------------------------------------------------

    | |--------------------|--------------------------------------------------------------------| |

    | | logotipo | banner | |

    | | ( ok ) | ( ok ) | |

    | |--------------------|--------------------------------------------------------------------| |

    | |

    | ------------------------------------------------------------------------------------------ |

    | | aqui tá o problema ( a UL com vários LI com fundo branco | |

    | ------------------------------------------------------------------------------------------ |

    | dá o erro... e já tentei de tudo... e nada... ) |

    | |

    -----------------------------------------------------------------------------------------------

    SE alguém puder ajudar agora, ficaria agradecido....

    Acessem aí.... www.superconectado.com.br/teste-css-1.asp

  8. Olá, senhores e senhores... Recentemente lancei um portal na internet, e estou precisando de anunciantes para alavancar uma maior campanha de marketing do mesmo... www.SuperConectado.com.br, para isso estou disponibilizando as ofertas de empregos abaixo:

    - Tipo do serviço - Promotor de Vendas de Espaços Publicitário do Portal

    - Vaga - Vendedor

    - Quantidade de vagas disponíveis - 50

    - Local - Em todas as capitais e principais cidades do país

    - Salário - apartir de 335,00/mês..

    - Expediente - Qualquer hora do dia e da noite... O negócio é contatar com possíveis anunciantes e fechar o contrato. Não tem um hórário fixo, no entanto, previmos que trabalhará no máximo 2 horas por dia.

    - Forma de pagamento - À Vista ( o salário se baseia na comissão de vendas - 25% + diferença de valor.. Nesse caso o salário inicial pode chegar a 500,00/mês..)

    - Possibilidade de trabalho à distância - Sim.. Todos os contatos são via email e MSN

    - Opcionais: ingressos para eventos, shows, etc. para fazer coberturas de eventos.

    - Descrição do serviço - Vendas de anúncios publicitários do portal SuperConectado.com.br, para empresas, profissionais liberais, autônomos, outros sites na internet que queiram se divulgar, etc. Todos os tipos de anunciantes.

    Caso haja interesse e deseja maiores informações envie e-mail/MSN para mxpbrasil@hotmail.com

  9. posso mandar o arqruivo pra tu dá uma verificada?

    <script language="JavaScript">
    function ValidaOpcoesVoltagem(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true)
        {
        ValidaOpcoesTamanho(form);
        }
        else
        {
        alert('Necessário informar a Voltagem!');
        return false;
        }
    }
    function ValidaOpcoesTamanho(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true || document.FormCompraProduto.IDTam.checked == true)
        {
        ValidaOpcoesCor(form);
        }
        else
        {
        alert('Necessário informar o Tamanho!');
        return false;
        }
    }
    function ValidaOpcoesCor(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true || document.FormCompraProduto.IDTam.checked == true || document.FormCompraProduto.IDCor.checked == true)
        {
        document.FormCompraProduto.submit(form);
        }
    }
    </script>
    <form action="../sacola/adiciona_produto.asp" method="get" name="FormCompraProduto" onClick="return ValidaOpcoesVoltagem(this);">
                        <table width="340" border="0" cellspacing="0" cellpadding="0">
                        <!--DWLayoutTable-->
                        <tr> 
                          <td width="340" height="28" valign="top" class="pagina-nome-produto"><%=(Prod.Fields.Item("Produto").Value)%>
    <input name="IDProduto" type="hidden" value="<%=Prod("Id")%>">
    </td>
                        </tr>
                      </table>
                      <table width="340" border="0" cellspacing="0" cellpadding="0">
                        <!--DWLayoutTable-->
                        <% If Int(Prod("Promocao")) > 0 Then %>
                        <tr> 
                          <td width="39" height="20" valign="bottom">De</td>
                          <td width="301" valign="bottom" class="valor-de"><%= FormatCurrency((Prod.Fields.Item("Valor").Value), -1, -2, -2, -2) %></td>
                        </tr>
                        <tr> 
                          <td height="30" valign="middle">Por</td>
                          <td valign="top" class="pagina-valor-produto"><%= FormatCurrency((Prod.Fields.Item("Promocao").Value), -1, -2, -2, -2) %></td>
                        </tr>
                        <% Else %>
                        <tr> 
                          <td height="30" valign="middle">Por</td>
                          <td valign="top" class="pagina-valor-produto"><%= FormatCurrency((Prod.Fields.Item("Valor").Value), -1, -2, -2, -2) %></td>
                        </tr>
                        <% End If %>
                        <tr> 
                          <td height="15"></td>
                          <td></td>
                        </tr>
                      </table>
                      <table width="340" border="0" cellspacing="0" cellpadding="0">
                        <!--DWLayoutTable-->
                        <tr> 
                          <td width="90" valign="top">
    <% If Prod("IdVoltagem") <> "" Then %>
    <table width="90" border="0" cellspacing="0" cellpadding="0">
                              <!--DWLayoutTable-->
                              <tr> 
                                <td width="96" height="14" valign="top" class="secao-titulo-cor-tamanho">Voltagem</td>
                              </tr>
                              <tr> 
                                <td height="5"></td>
                              </tr>
                              <tr> 
                                <td height="25" valign="top"> <%
    OpVol = Prod("IdVoltagem")
    MostraVol = Split(OpVol, ", ")
    
    For I = LBound(MostraVol) to UBound(MostraVol)
    %> 
                                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                    <!--DWLayoutTable-->
                                    <tr> 
                                      <td width="20" height="25" valign="middle"> 
                                        <input type="radio" name="IDVol" value="<%=MostraVol(I)%>"></td>
                                      <td width="76" valign="middle"><%=Response.Write("&nbsp;&nbsp;")%><%=MostraVol(I)%></td>
                                    </tr>
                                  </table>
    <%
    next
    %> </td>
                              </tr>
                            </table>
    <br>
    <% Else %>
    <input name="IDVol" type="hidden" id="IDVol" value="0" checked>
    <% End If %>
                          <% If Prod("IDTamanho") <> "" Then %> <table width="90" border="0" cellspacing="0" cellpadding="0">
                              <!--DWLayoutTable-->
                              <tr> 
                                <td width="96" height="14" valign="top" class="secao-titulo-cor-tamanho">Tamanho</td>
                              </tr>
                              <tr> 
                                <td height="5"></td>
                              </tr>
                              <tr> 
                                <td height="25" valign="top"> <%
    OpTam = Prod("IdTamanho")
    MostraTam = Split(OpTam, ", ")
    
    For I = LBound(MostraTam) to UBound(MostraTam)
    %> <%
    Dim Tam
    Dim Tam_numRows
    
    Set Tam = Server.CreateObject("ADODB.Recordset")
    Tam.ActiveConnection = MM_compraextra_STRING
    Tam.Source = "SELECT * FROM tblLojaProdutoTamanho WHERE Id = " & MostraTam(I)
    Tam.CursorType = 0
    Tam.CursorLocation = 2
    Tam.LockType = 1
    Tam.Open()
    
    Tam_numRows = 0
    %> 
                                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                    <!--DWLayoutTable-->
                                    <tr> 
                                      <td width="20" height="25" valign="middle"> 
                                        <input type="radio" name="IDTam" value="<%=(Tam.Fields.Item("Id").Value)%>"></td>
                                      <td width="76" valign="middle"><%=Response.Write("&nbsp;&nbsp;")%><%=(Tam.Fields.Item("Tam").Value)%></td>
                                    </tr>
                                  </table>
                                  <%
    Tam.Close()
    Set Tam = Nothing
    %> <%
    next
    %> </td>
                              </tr>
                            </table>
    <% Else %>
    <input name="IDTam" type="hidden" id="IDTam" value="0" checked>
                            <% End If %> </td>
                          <td width="10">&nbsp;</td>
                          <td width="240" valign="top"> <% If Prod("IDCor") <> "" Then %> <table width="240" border="0" cellspacing="0" cellpadding="0">
                              <!--DWLayoutTable-->
                              <tr> 
                                <td width="240" height="20" valign="top" class="secao-titulo-cor-tamanho">Cores 
                                  dispon&iacute;veis</td>
                              </tr>
                              <tr> 
                                <td height="5"></td>
                              </tr>
                              <tr> 
                                <td height="25" valign="top"> <%
    OpCor = Prod("IdCor")
    MostraCor = Split(OpCor, ", ")
    
    For I = LBound(MostraCor) to UBound(MostraCor)
    %> <%
    Dim Cor
    Dim Cor_numRows
    
    Set Cor = Server.CreateObject("ADODB.Recordset")
    Cor.ActiveConnection = MM_compraextra_STRING
    Cor.Source = "SELECT * FROM tblLojaProdutoCor WHERE Id = " & MostraCor(I)
    Cor.CursorType = 0
    Cor.CursorLocation = 2
    Cor.LockType = 1
    Cor.Open()
    
    Cor_numRows = 0
    %> 
                                  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                    <!--DWLayoutTable-->
                                    <tr> 
                                      <td width="20" height="25" valign="middle"> 
                                        <input type="radio" name="IDCor" value="<%=(Cor.Fields.Item("Id").Value)%>"></td>
                                      <td width="30" align="center" valign="middle"><img src="../imagens_cores/<%=(Cor.Fields.Item("Mostra").Value)%>" alt="" width="20" height="15" border="0"></td>
                                      <td width="190" valign="middle"><%=(Cor.Fields.Item("Cor").Value)%></td>
                                    </tr>
                                  </table>
                                  <%
    Cor.Close()
    Set Cor = Nothing
    %> <%
    next
    %> </td>
                              </tr>
                            </table>
    <% Else %>
    <input name="IDCor" type="hidden" id="IDCor" value="0" checked>
                            <% End If %> </td>
                        </tr>
                        <tr> 
                          <td colspan="3" height="15"></td>
                        </tr>
                      </table>
                      <table width="340" border="0" cellpadding="0" cellspacing="0" class="table-espacador-topo-10-com-borda">
                        <!--DWLayoutTable-->
                        <tr> 
                          <td width="190" height="40" align="right" valign="middle">Adicione este produto &agrave; sua<br>Sacola de Compras</td>
                          <td width="10">&nbsp;</td>
                            <td width="140" valign="top">
    <input type="image" class="link-preto" src="../_img/loja_botao_comprar.gif" alt="Comprar" width="140" height="40" border="0">
    <input name="Valor" type="hidden" id="Valor" value="<% If Int(Prod("Promocao")) > 0 Then %><%=FormatCurrency(Prod("Promocao"), -1, -2, -2, -2) %><% Else %><%=FormatCurrency(Prod("Valor"), -1, -2, -2, -2) %><% End If %>">
    <input name="Peso" type="hidden" id="Frete" value="<% If Prod("FreteGratis") = 1 Then %>0<% Else %><%=Prod("Peso") %><% End If %>">
                            </td>
                        </tr>
                      </table>
                      <br> <br> <center>
                        <table width="140" border="0" cellpadding="0" cellspacing="0">
                          <!--DWLayoutTable-->
                          <tr> 
                              <td width="140" valign="top"><a href="../interatividade/lista_presente.asp" class="link-pagina-lista-produto">Lista 
                                de Presente</a></td>
                          </tr>
                          <tr> 
                            <td height="5"></td>
                          </tr>
                          <tr> 
                              <td valign="top"><a href="../interatividade/lista_casamento.asp" class="link-pagina-lista-produto">Lista 
                                de Casamento</a></td>
                          </tr>
                          <tr> 
                            <td height="5"></td>
                          </tr>
                          <tr> 
                              <td valign="top"><a href="../interatividade/lista_desejos.asp" class="link-pagina-lista-produto">Lista 
                                de Desejos</a></td>
                          </tr>
                        </table>
                      </center>
    </form>

  10. cara... nada ainda.... já testei também....

    <script language="JavaScript">
    function ValidaOpcoesVoltagem(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true)
        {
        ValidaOpcoesTamanho(form);
        return true;
        }
        else
        {
        alert('Necessário informar a Voltagem!');
        return false;
        }
    }
    function ValidaOpcoesTamanho(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true || document.FormCompraProduto.IDTam.checked == true)
        {
        ValidaOpcoesCor(form);
        return true;
        }
        else
        {
        alert('Necessário informar o Tamanho!');
        return false;
        }
    }
    function ValidaOpcoesCor(form)
    {
        if (document.FormCompraProduto.IDVol.checked == true || document.FormCompraProduto.IDTam.checked == true || document.FormCompraProduto.IDCor.checked == true)
        {
        document.FormCompraProduto.submit(form);
        return true;
        }
    }
    aí no form coloquei assim....
    <form action="../sacola/adiciona_produto.asp" method="get" name="FormCompraProduto" onClick="return ValidaOpcoesVoltagem(this);">
    
    ........ ( os grupos de radio são.. IDVol, IDTam e IDCor... mas as opções de cada um desses grupos pode mudar... )
    
    </form>

    O erro é esse...

    Se o cara enviar o form sem selecionar IDVol.. dá o alerta certinho...

    Se eu marcar o IDVol e tentar enviar, não era pra ir... era pra dar o alert.. mas dá é erro...

    entendeu?

  11. Olá. gostaria de saber como resolver esse problema...

    Tenho três grupos de Radiobutton e preciso validar eles... É uma loja virtual...

    o código tá mais ou menos assim...

    <form name="form1" method="post" action="">
        <input type="radio" name="grupo1" value="1">Op&ccedil;&atilde;o 1<br>
        <input type="radio" name="grupo1" value="2">Op&ccedil;&atilde;o 2<br>
        <input type="radio" name="grupo1" value="3">Op&ccedil;&atilde;o 3</p>
      <p> 
        <input type="radio" name="grupo2" value="1">Op&ccedil;&atilde;o 1<br>
        <input type="radio" name="grupo2" value="2">Op&ccedil;&atilde;o 2<br>
        <input type="radio" name="grupo2" value="3">Op&ccedil;&atilde;o 3</p>
      <p> 
        <input type="radio" name="grupo3" value="1">Op&ccedil;&atilde;o 1<br>
        <input type="radio" name="grupo3" value="2">Op&ccedil;&atilde;o 2<br>
        <input type="radio" name="grupo3" value="3">Op&ccedil;&atilde;o 3</p>
    </form>

    como fazer para enviar o form somente depois de selecionar uma opção em cada grupo?

    Vlw!

  12. cara,... nesse valor só "bombom garoto" mesmo...

    Mas eu uso uma revenda que é considerada a 2ª melhor do Brasil - segundo a revista info e a Map... alguma coisa - ..... há um ano que eu deixei de ter problemas.... e ela tem domínios ilimitados nas revendas.... é muito boa....

    o endereço é www.hostrevenda.com.br

    pode confiar...

  13. Opa.... parece que já encontrei a resposta.. na verdade adaptei um pouco...

    mas num mostra a foto....

    o que tá errado com essa função?

    Private Sub Mostra_Foto()

    If Me.Foto <> "" Or IsNull(Me.Foto) = False Then

    Dim rs

    Set rs = CreateObject("Scripting.FileSystemObject")

    If rs.FileExists("C:\Xtreme\fotos_pessoas\" & Me.Foto) Then

    Me.img_fOTO.Picture = LoadPicture(Me.Foto)

    End If

    Set rs = Nothing

    ElseIf Me.Foto = "" Or IsNull(Me.Foto) = True Then

    Me.img_fOTO.Picture = LoadPicture(dia_Foto.FileName)

    End If

    End Sub

  14. Olá, estou desenvolvendo um sistema de cadastro de clientes com fotos... só que tem um problema... eu coloco a foto em uma pasta qualquer. .e depois referencio ela no cadastro access... só que se eu excluir a foto da pasta.... quando eu for abrir o cadastro daquele cliente... vai dar um erro dizendo que o access não encontrou o arquivo ......

    aí pesquisando algumas coisas... encontrei essa função.... ( na ajuda do access )... só que não estou sabendo como implementar pra fazer isso:

    mostra a foto quando o arquivo existir.... se não existir não mostrar...

    olha a função que encontrei...

    Sub ShowFileAccessInfo(filespec)

    Dim fs, d, f, s

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.GetFile(filespec)

    s = UCase(f.Path) & vbCrLf

    s = s & "Criado em: " & f.DateCreated & vbCrLf

    s = s & "Data do último acesso: " & f.DateLastAccessed & vbCrLf

    s = s & "Data da última modificação: " & f.DateLastModified

    MsgBox s, 0, "Informações de acesso ao arquivo"

    End Sub

  15. cara, eu dei a dica do cancelamento do botão direito do mouse, justamente porque é impossível cancelar a cópia de uma imagem da página.

    no entanto, muitas pessoas não conhecem a opcao do PRINT SCREEN, e apelas para o botão direito. se o botão está bloqueado, já vai dificultar. é a melhor opcao e a mais fácil e rápida.

    a não ser que se faça um sistema em Flash que inclua todas as imagens. aí, sim é muito mais difícil copiar as imagens (e fazer o sistema também)., mas quem sabe o fsphp pode te ajudar nisso?

  16. cara esse site é o pior que eu já vi.

    Se tu quer fazer um site de fireworks, tu precisa basicamente de 4 coisas:

    1. saber trabalhar com fireiworks;

    2. conhecer teorias e técnicas de webdesign e webmaster;

    3. relacionar melhor as cores e as fontes, banners, etc;

    4. conhecer língua portuguesa, pelo menos para concertar os erros ortográficos (sabe o que é isso?)

  17. a url é da seguinte forma, kr:

    <a href="ver_noticias.asp?noticia=1">Noticia 1</a>

    quando, na página de visualizacao eu clico em uma outra notícia para ver, é com o mesmo link.

    aí, é onde tá o problema:

    ela tenta visualizar o link anterior <a href="ver_noticias.asp?noticia=1"> e o novo link <a href="ver_noticias.asp?noticia=2">.

    no campo endereço fica o resultado:

    http://localhost/ver_noticias.asp?noticia=1&noticia2

    O que eu quero é que o link da segunda notícia que eu cliquei fique assim, que é o correto:

    http://localhost/ver_noticias.asp?noticia=2

×
×
  • Criar Novo...