Ir para conteúdo
Fórum Script Brasil

TIO CARNEGO

Membros
  • Total de itens

    59
  • Registro em

  • Última visita

Tudo que TIO CARNEGO postou

  1. TIO CARNEGO

    Master Page

    :ph34r: Seguinte, Declare uma interface "ISetadorDeEvento" com um método "CliqueDoBotao" e faça com que sua página a implemente, depois no evento do button na própria masterpage você chama "Me.Page" tipada como "ISetadorDeEvento" e chama o método "CliqueDoBotao". :rolleyes:
  2. O quadro de cima só gerará um evento que necessite da atualização do quadro de baixo quando ele próprio for atualizado, assim usando um IFRAME para armazenar o quadro de baixo não seria necessário uso de nenhum script. Uma opção por scripts geraria inconsistência dependendo da segurança configurada no navegador.
  3. SE você usar um IFRAME pra exibir a página de baixo ela também será recarregada quando cadastrar na página de cima.
  4. Function FormataData(aData) FormataData=Year(aData)&"/"&String(2-Len(Month(aData)),"0")&Month(aData)&"/"&String(2-Len(Day(aData)),"0")&Day(aData) End Function NumeroDeDiasAAcrescentar = 15 DataDeVencimento = FormataData(DateAdd("d", NumeroDeDiasAAcrescentar, Date()))
  5. TIO CARNEGO

    Inserir Dados No Banco

    Tem esse post aqui também
  6. TIO CARNEGO

    Inserir Dados No Banco

    Set aConexao = Server.CreateObject("ADODB.Connection") aConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&oCaminhoDoBanco&";" Set oRS = CreateObject("ADODB.Recordset") oRS.CursorType = 2 oRS.LockType = 2 oRS.Open "SELECT TOP 1 * FROM qualquertabela",aConexao oRS.AddNew oRS("CampoTal") = ValorTal oRS("CampoTal") = ValorTal oRS.UpDate 'Aqui o valor do campo de autoincremento já está disponível 'Si num for usá mais, fecha a bagaça oRS.Close Set oRS = Nothing Set aConexao = Nothing 'Si for usá apaga as três linha acima 'Totau ou Parciau?
  7. Set oObjetoHTML = CreateObject("htmlfile") oObjetoHTML.write(StringueDeHTML) oTexto = oObjetoHTML.Body.InnerText oResumo = Left(oTexto, 300) Onde StringueDeHTML é o codigo html de onde você vai retirar o texto
  8. Fi, Seguinte: NEM EM SONHO você vai conseguir fazer essa "ponte" dessa forma. Uma saída seria o usuário subir o arquivo mdb para o site e assim você poderia utilizá-lo no servidor. Falow.
  9. TIO CARNEGO

    Global.asa

    Fi, O Objeto Request já está disponível no evento Session_OnStart portanto você pode recuperar os valores postados para o seu site sim. Quanto a segunda opção só na gambiarra. Falow!!!!
  10. TIO CARNEGO

    Update

    rsUpdate.open "UPDATE acesso set(login ='"&usuario&"', senha='" & senha & "', local='" & local & "' where codigo = "& codigo , meubd
  11. TIO CARNEGO

    Ler Html

    Dany, Logo depois que você que postei esse código você disse q teve problemas, pra saber corretamente por que isso acontece a gente deve saber que tipo de código js há nos arquivos ou dentro do html e se eles estão atrelados a eventos. Além disso qual é a mensagem exata do erro?
  12. TIO CARNEGO

    Validação

    Não funciona porque Strcomp retorna 0 (Booleano falso) quando o teste é bem sucedido. If (Strcomp(Right(banner,3),"swf")=0) And flash Then error = error & "<br>Seu banner não é em flash mas você selecionou a opção em flash." End If
  13. TIO CARNEGO

    Tópicos Especiais!

    Seria legal um tópico sobre o uso de XML e XSLT com ASP.
  14. TIO CARNEGO

    Ajuda Plz

    Dá sim, Como é retornado o resultado?
  15. Aqui vai uma dica: <% Option Explicit Dim oEndereco oEndereco="http://www.google.com.br/search?hl=pt-BR&q=Quem+%C3%A9+o+pai&meta=" Dim aPagina,oFluxo Set oFluxo = Server.CreateObject("Microsoft.XMLHTTP") oFluxo.open "GET",oEndereco,False oFluxo.send() Set aPagina = CreateObject("htmlfile") aPagina.write(oFluxo.responseText) Response.Write(aPagina.Body.InnerText) %>
  16. <body onLoad="MM_timelinePlay('Timeline1')" background-color:transparent> <div id="Layer1" style="background-color:transparent; position:absolute; left:11px; top:18px; width:333px; height:292px; z-index:1; background-image:transparent; layer-background-image:transparent; border: 1px none #000000;"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="350" height="350"> <param name="movie" value="vaisefudeee.swf"> <param name=quality value=high> <PARAM NAME=WMODE VALUE=TRANSPARENT> <embed src="vaisefudeee.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="350" height="350"></embed> </object> </div> </body>
  17. TIO CARNEGO

    Sistema De Curriculo

    Set tb = CreateObject("ADODB.Recordset") tb.cursortype = 2 tb.locktype = 2 tb.Open "Select TOP 1 * From perguntas,Conn tb.AddNew For Each Campo in tb.Fields Campo.Value=Request.Form(Campo.Name) Next tb.UpDate tb.Close
  18. Esse script é parecido com o q você quer fazer: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%> <% x = parseFloat(Request.Form("a")) y = parseFloat(Request.Form("b")) %> <html> <head> <title>Operações de multiplicação</title> </head> <body> <font color="#CC0000"><%=isNaN(y*x)?"Operação Inválida!!":"Operação Efetuada com sucesso!!"%></font><br> <font color="green">Digite 2 números para multiplicação:</font><br> <form method="post"> <input type="text" name="a" value="<%=isNaN(x)?"":x%>">&nbsp;*&nbsp; <input type="text" name="b" value="<%=isNaN(y)?"":y%>">&nbsp;=&nbsp; <input type="text" disabled value="<%=isNaN(y*x)?"":y*x%>"><br> <input type="submit" value="Resultado">&nbsp;&nbsp;<input type="reset" value="Limpar"> </form> </body></html>
  19. TIO CARNEGO

    Array

    Dany, Se você quiser uma ajuda legal mesmo seria interessante que você postasse um exemplo do arquivo q você está tentando abrir e como você está fazendo isso no código.
  20. Abra configurações regionais no painel de controle e veja como está a string de configuração do formato de data
  21. TIO CARNEGO

    Array

    Postem o erro e o conteudo do html q vocês estão usando
  22. TIO CARNEGO

    Formatar Data

    Function FormataDataDeFormaDecente(aData) FormataDataDeFormaDecente=String(2-Len(Day(aData)),"0")&Day(aData)&"/"&String(2-Len(Month(aData)),"0")&Month(aData)&"/"&Year(aData) End Function
×
×
  • Criar Novo...