Ir para conteúdo
Fórum Script Brasil

victormartins

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1.002

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que victormartins postou

  1. victormartins
    ok!
  2. victormartins
    que que é esse HTA?, eu nem sabia que isso existia
  3. victormartins
    mudar o que?
  4. victormartins
    NIGUEm vai avaliar? :(
  5. victormartins

    Avaliem

    um tópico no fórum respondeu victormartins em Avaliações de Trabalhos

    Tenha IE e FF! mas isso não dexa de ser um bug no site
  6. victormartins
    muito bom o site, mas algumas imagens não avrem
  7. victormartins
    coloca isso no codigo: <param name="wmode" value="transparent">
  8. victormartins
    desabilita as mensagens amigaveis no Internet Explorer, va em Ferramentas > Opções da Internet > na aba Avançadas > desabilita Mostrar erros de http amigaveis e dps vê qual o erro que aparece
  9. victormartins
    tem o http://www.v10.com.br e o http://www.kit.net , só que você tem que ser assinante da Globo.com
  10. victormartins
    qual é o erro?
  11. victormartins

    For

    pergunta respondeu ao filipeflc00 de victormartins em ASP

    Fiz um FTP aqui de um site que eu fiz eu fiz um mural de recados, vamo v se ajuda! <!--#include file="conexao_mural.asp"--> <html> <style type="text/css"> A:link {text-decoration: none} A:visited {text-decoration: none} A:hover {text-decoration: none} </style> <head><title> - Mural de recados</title> </head> <body bgcolor="#EEF5FB" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0"> <table width="100%" cellpadding="0" cellspacing="0" style="border: 2px dotted #000000"><td bgcolor="#0099CC" align="center"><strong><b><font size="4" color="#ffffff" face="Arial, Helvetica, sans-serif">Mural de recados da<br><img src="../imagens/titulo_novoJC3.gif"></font></b></strong></td></table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td> </tr> <tr> <td background="../imagens/bg_02.jpg" height="13"> <div align="center"><b><font face="Arial, Helvetica, sans-serif" size="1" color="black"> <%=mensagemtempo%> <%=data_hoje%> </font></b></div> </td> </tr> <tr> <td width="753" height="2" bgcolor="#000000"><img src="imagens\SEPARADOR.gif" width="1" height="2"></td> </tr> </table> <center> <a href="add_msg_form.asp" style="font-family: verdana; font-size: 9pt; color: #000000;"> <u>Adicionar minha mensagem</u></a><br><br> <% Dim botao1, botao2 '-------------------------------------------------------------------------------------------- ' INICIO DA PAGINAÇÃO ' Estou criando uma condição para que quando a ' variável page for igual a 0, a variavel pagina ' será igual a 1. '-------------------------------------------------------------------------------------------- if Request("page") = "" then pagina = 1 else pagina = Request("page") end if '-------------------------------------------------------------------------------------------- ' Agora vou chamar a SubFunção que está no ' arquivo conexao_mural.asp para abiri o ' banco de dados '-------------------------------------------------------------------------------------------- Call AbrirMural '-------------------------------------------------------------------------------------------- ' Estou dando a variável argumento o comando sql ' para a conexão com o Banco de dados e configurando ' o objeto de conexão (mural_conn.CursorLocation) '-------------------------------------------------------------------------------------------- argumento = "SELECT nome , email , mensagem , data FROM Mural ORDER BY number DESC" mural_conn.CursorLocation = 3 '-------------------------------------------------------------------------------------------- ' Chamando SubFunção contida no arquivo conexao_mural.asp ' para abrir o RecordSet e setando as configurações dos mesmos ' A configuração RS.PageSize é a quantidade de registros por página. '-------------------------------------------------------------------------------------------- Call OpenRS if RS.RecordCount > 0 then RS.PageSize = 7 '<<-- Aqui é o numero de recados que aparece por pagina RS.CacheSize = RS.PageSize RS.AbsolutePage = cInt(pagina) '-------------------------------------------------------------------------------------------- ' Condições de segurança '-------------------------------------------------------------------------------------------- if cInt(pagina) > cInt(RS.PageCount) then RS.AbsolutePage = cInt(RS.PageCount) end if if cInt(pagina) < 1 then RS.AbsolutePage = 1 end if '-------------------------------------------------------------------------------------------- ' Criação dos botões ' BOTÃO 1 '-------------------------------------------------------------------------------------------- if cInt(pagina) > 1 then botao1 = "<a href='?page=" & RS.AbsolutePage - 1 & "' style='font-family: verdana; font-size: 7pt; color: #000000;'><< Anterior</a>" else botao1 = "<a style='font-family: verdana; font-size: 7pt; color: #000000;'><< Anterior</a>" end if '-------------------------------------------------------------------------------------------- ' BOTÃO 2 '-------------------------------------------------------------------------------------------- if cInt(pagina) < cInt(RS.PageCount) then botao2 = "<a href='?page=" & RS.AbsolutePage + 1 & "' style='font-family: verdana; font-size: 7pt; color: #000000;'>Próxima >></a>" else botao2 = "<a style='font-family: verdana; font-size: 7pt; color: #000000;'>Próxima >></a>" end if '-------------------------------------------------------------------------------------------- ' Inicio dos dados '-------------------------------------------------------------------------------------------- %> <a style="font-family: verdana; font-size: 7pt; color: #000000;"> Total de Mensagens: <%=RS.RecordCount%><br> Mostrando Página <%=RS.AbsolutePage%> de <%=RS.PageCount%><br><br> <%=botao1%> | <%=botao2%></a> <hr size="1" width="90%" color="#000000"> <% Dim contador For contador = 1 to RS.PageSize %> <table width="70%"> <td style="border:solid; border-color: #000000; border-width: 1;" bgcolor="#FFFFFF"> <table width="100%"><tr> <caption style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #ffffff; background-color: #0099CC;"> <b>Mensagem postada no dia: <%=RS("data")%></b> </caption> <td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000"> <font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif"> <b>Nome: </b></font><%=RS("nome")%> </td></tr> <tr><td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000"> <font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif"> <b>Email: </b></font> <a href="mailto:<%=RS("email")%>"><%=RS("email")%></a> </tr><tr> <td style="border-style: solid; border-color: #000000; border-width: 0; font-family: verdana; font-size: 8pt; color: #000000"> <font style="font-size: 8pt" color="#ff0000" face="Verdana, Arial, Helvetica, sans-serif"> <b>Mensagem:</b></font><br> <div align="justify" cols="65" rows="10" style="border-color: #000000; border-width: 0; border-style: solid; color: #000000; font-family: verdana; font-size: 8pt;"> <%=RS("Mensagem")%> </div> </td></tr> </table> </td></table> <br> <% '-------------------------------------------------------------------------------------------- ' Fim dos dados ' Movendo cursor para o próximo registro '-------------------------------------------------------------------------------------------- RS.MoveNext '-------------------------------------------------------------------------------------------- 'Condição Final '-------------------------------------------------------------------------------------------- if RS.EOF then exit For Next %> <hr size="1" width="90%" color="#000000"> <a style="font-family: verdana; font-size: 7pt; color: #000000;"><%=botao1%> | <%=botao2%></a> <%else%> <center>Nenhuma mensagem neste mural.</center> <% end if '-------------------------------------------------------------------------------------------- 'FIM DA PAGINAÇÃO '-------------------------------------------------------------------------------------------- %> </center> <% Call CloseRS Call FecharMural %> <br> <!--#include file="../baixo.asp"--><br><br> </body></html>
  12. victormartins
    Nessa pagina só tem isso que é asp: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> tenta tirar! :D
  13. victormartins

    For

    pergunta respondeu ao filipeflc00 de victormartins em ASP

    vai demorar uns 2 ou 3 dias, porque toh viajando
  14. victormartins
    comigo também nunca aconteceu isso
  15. victormartins
    Qualquer duvida é só postar :D
  16. victormartins
    on (release) { getURL("http://www.site.com","nomedoframe"); }
  17. victormartins

    For

    pergunta respondeu ao filipeflc00 de victormartins em ASP

    Acho que eu tenho esse script que você está querendo em casa, como não estou em casa, quando eu chegar em casa eu t passo :D
  18. victormartins

    Avaliem

    um tópico no fórum respondeu victormartins em Avaliações de Trabalhos

    quando clica em Entrar no Site vem uma pagina com menu
  19. victormartins
    melhorou muito! muito obrigado!
  20. victormartins
    vlw Andreia, você me ajudou muito!
  21. victormartins
    muito criativo! muito bom, gostei do menu! :D tem um vidro que passa não é? (no menu)
  22. victormartins
    o que vocês acham desse site:
  23. victormartins
    também não sei lembrei, é para exibir todos os dados do banco, como faz então para listar todos os dados, porque se eu tirar ou colocar outro valor ele exibe só um dado, você tem alguma sugestao ou codigo?
  24. victormartins
    tem que tirar essas linhas? x = 0 For x = 1 to 9999 If rs.eof then Exit For ?????
  25. victormartins
    faz esse tópico na secao de PHP
×
×
  • Criar Novo...