Ir para conteúdo
Fórum Script Brasil

mariofdf

Membros
  • Total de itens

    394
  • Registro em

  • Última visita

Tudo que mariofdf postou

  1. mariofdf

    Moderador Asp

    Meu voto vai pro dark0.
  2. mariofdf

    Erro Na Script

    Exatamente. Não a diferença, neste caso , mais voce precisara da função para outros casos, este so foi um exemplo que o curso deu de como usar funções. vamos supor voce poderia usar o funçõa para em vez de mostrar a data assim: 23/03/2004 mostrar assim: 23 de março de 2004. ai voce necessitaria de função. mais uma difença. deste jeito: <script LANGUAGE=VBScript RUNAT=Server> Function RetornaData() RetornaData = Date End Function </SCRIPT> <% = RetornaData() %> fica assim: 23/03/2004 e deste jeito: <script LANGUAGE=VBScript RUNAT=Server> Function RetornaData() End Function </SCRIPT> <%Response.Write "A data de hoje é " & Date & "."%> fica assim: a data de hoje é 23/03/2004. e se for para mostrar a data direto pode ser feito assim tambem. <%Response.Write(date())%>
  3. mariofdf

    Erro Na Script

    A função teria que ser assim: <script LANGUAGE=VBScript RUNAT=Server> Function RetornaData() End Function </SCRIPT> <%Response.Write "A data de hoje é " & Date & "."%> Precisando estamos ai... <%Response.Write "se cadastre no forum e ajude nossa comunidade a crescer"%>
  4. funcionol direitinho, muito obrigado a todos...
  5. Tenho o seguinte codigo e gostaria que quando a pessoa dar um clique no banner abra em uma outra janela. Este codigo é de banner rotativo em javascript: <script language="JavaScript"> <!-- var randnum = (Math.round((Math.random() * 11 ) )); var bannerlink = "http://www.diitroya.com.br/banners" function initArray() { this.length = initArray.arguments.length; for (var i = 0; i < this.length; i++) { this = initArray.arguments; } } links = new initArray( "http://www.parquiejodiitroya.com.br/discador", "http://www.papodiitroya.com.br", "http://www.diitroya.com.br/publicacoes", "http://www.diitroyasexshop.com.br", "http://www.diitroya.com.br/shopping", "http://www.telesexodiitroya.com.br", "http://www.parquiejodiitroya.com.br/casino", "http://www.parquiejodiitroya.com.br", "http://www.bingodiitroya.com.br", "http://www.programadazaza.com.br", "http://www.topdiitroya.com.br" ) images = new initArray( "http://www.diitroya.com.br/banners/discador.gif", "http://www.diitroya.com.br/banners/papo.gif", "http://www.diitroya.com.br/banners/revistas.gif", "http://www.diitroya.com.br/banners/sexshop.gif", "http://www.diitroya.com.br/banners/shopping.gif", "http://www.diitroya.com.br/banners/telesexo.gif", "http://www.diitroya.com.br/banners/casino.gif", "http://www.diitroya.com.br/banners/portal.gif", "http://www.diitroya.com.br/banners/bingo.gif", "http://www.diitroya.com.br/banners/bannerzaza.jpg", "http://www.diitroya.com.br/banners/top.gif" ) alttext = new initArray( "Discador Diitroya", "Papo Diitroya", "Revistas Diitroya", "Sex Shop Diitroya", "shopping Diitroya", "Tele Sexo Diitroya", "Casino Diitroya", "Portal Diitroya", "Bingo Diitroya", "Portal Da ZAZÁ", "Top Diitroya" ) function loadrandomimage() { randnum = (Math.round((Math.random() * 10 ) )); document.BannerAd.src=images[randnum] document.BannerAd.alt=alttext[randnum] bannerlink = links[randnum] } // --> </script> <script language="JavaScript"> <!-- function changelink() { location = bannerlink } // --> </script> <p align="center"> <a href='javascript:changelink()'><img src="banner1" name="BannerAd" alt="" width="470" height="60" border="0"></a> <script language="JavaScript"> loadrandomimage(); </script></p> Desde já agradeço
  6. mariofdf

    Hj Tem Bolo

    Apesar de atrasado parabéns por essa data e que Deus te de muitos anos de vida para que você esclareça nossas duvidas aqui no fórum...
  7. mariofdf

    Erro

    Tente assim: <% Dim strSQL Dim objConn Dim strLoginName Dim strLoginPassword strurl = Request.Form("url") strnome = Request.Form("nome") strdescricao = Request.Form("descricao") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("cs.mdb") strSQL = "INSERT INTO mapas (nome, url, descricao) VALUES ('" & strnome & "', '" & strurl & "', '" & strdescricao & "')" Call objConn.Execute(strSQL) objConn.Close Set objConn = Nothing Response.Write("Completo") %> Qualquer coisa poste novamente...
  8. mariofdf

    Erro

    é o seguinte nas opções de variaveis que não for numero voce tem de tirar as aspas simples e de preferencia ditar as variaveis para so colocar o objeto no sql... ficaria mais ou menos assim: strSQL = "INSERT INTO mapa(nome, url, desc) VALUES(" & strnome & ", " & strurl & ", '" & strdesc & "')" Call objConn.Execute(strSQL)
  9. mariofdf

    Como Fazer.

    Já consegui arrumar, pode encerrar o tópico... amigo Urso obrigado pela ajuda....
  10. mariofdf

    Cadastro Com Foto

    explique melhor, eu te aconselho guardar a foto em um diretorio e colocar no bd apenas o caminha.
  11. mariofdf

    Como Fazer.

    preciso de ajuda urgente...
  12. mariofdf

    Como Fazer.

    Urso, não entendi o porque de seu ultimo post...
  13. mariofdf

    Como Fazer.

    esta dando o seguinte erro: ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /gravaacesso.asp, line 20
  14. mariofdf

    Como Fazer.

    gente preciso de ajuda...
  15. mariofdf

    Como Fazer.

    mas a pessoa pode votar em outro site, teria de comparar o seguinte, Para não computar o voto ip = ip data = data e idsite = idsite, so que não sei como compara, se puder me mostrar como se faz isso: segue meu codigo abaixo. <!-- #include file="conexao.asp" --> <!-- #include file="lib.asp" --> <% if request.form("idsite") = "" then response.redirect("ranking.asp") end if set rs = server.CreateObject("ADODB.Recordset") vSQL1 = "select * from tbranking where ip = '"&request.ServerVariables("remote_addr")&"' " vSQL1 = vSQL1 &"and dateAccess = #"&formatadatauniversal(cdate(date), fdbrazilian)&"# " vSQL1 = vSQL1 &"and idsite = "&request.form("idsite")&" " rs.open vSQL1, con if rs.eof then if request.form("idsite") = 83 then vSQL = "insert into tbranking(idsite, AccessIN, IP)values("&request.form("idsite")&", 1, '"&request.ServerVariables("remote_addr")&"')" con.execute(vSQL) end if vSQL = "insert into tbranking(idsite, AccessIN, IP)values("&request.form("idsite")&", 1, '"&request.ServerVariables("remote_addr")&"')" con.execute(vSQL) response.redirect("ranking.asp") else response.redirect("ranking.asp") end if %>
  16. mariofdf

    Como Fazer.

    os dados o ip e tudo mais eu já sei recuperar o que não estou conseguindo é comparar os dados com os do bd e verificar se aquele ip naquele dia já votou naquele site, se sim não gravar novamente... Me ajudem....
  17. mariofdf

    Como Fazer.

    tenho um sistema de top, e gostaria de guando a pessoa clicar em um link o sistema verificasse se ela já votou naquele site , so pode votar uma vez no site por dia. No bd eu gravo tres informações, ip, iddosite e data, teria como selecionar a a data e verificar se o ip já votou no site naquela data e se votou não gravar o voto e se não votou seguir o procedimento normalmente. Caso não tenha sido claro, me falem que eu explico melhor. É pra amanha e só falta esta parte.
  18. mariofdf

    Usuarios On-line.

    o meu foi em quem desenvolveu mas já arrumeu, obrigado...
  19. mariofdf

    Usuarios On-line.

    Eu uso global.asa para contar pessoas on-line mas nunca atualiza direito, gostaria de algum exemplo se tiverem de algum sistema que funcione direitinho, a um tempo ouve um debate mas não achei o tópico. Agradeço.
  20. mariofdf

    Preciso...

    já consegui pode feixar o tópico
  21. mariofdf

    Problema

    ninguém pode me ajudar
  22. Atualizei o meu midia player e quando entro na internet e tento ouvir alguma radio tipo http://www.diitroya.com.br/radio/index.asp ele ao invés de tocar a musica chama download ... Como eu resolvo isto...
  23. mariofdf

    Listar Upload

    Não deu para entender o que voce quer.... Explique melhor...
×
×
  • Criar Novo...