Ir para conteúdo
Fórum Script Brasil

kadu

Membros
  • Total de itens

    65
  • Registro em

  • Última visita

Tudo que kadu postou

  1. kadu

    O Layout Some

    fala galera, bele? to com um probleminha aqui, o sistema tá funfanfo certinho, mas quando clica em uma categoria para visuzalizar os downloads, só aparecem os downloads e o menu da esquerda, o resto do layout some!!! alguém poderia me flar o que acontece? o código é esse aqui: (coloquei o código da página toda, para não ter problema de faltar alguma coisa.) <!--#include file="conectar.asp"--> <html> <head> <title>AquiTem HP - Tudo o que voc&ecirc;s precisa</title> <meta http-equiv="Content-Type" content="text/html;"> <!--Fireworks MX 2004 Dreamweaver MX 2004 target. Created Thu Jan 13 13:49:46 GMT-0200 (Hora oficial do Brasil) 2005--> <link href="../estilos.css" rel="stylesheet" type="text/css"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); //--> </script> </head> <body bgcolor="#ffba75"> <script language="JavaScript"> function abrejanela(sURL){ newwindow=open(sURL,"ver","scrollbars=no,toolbar=no,directories=no,menubar=no,resizable=no,status=no,width=320,height=60"); } // </script> <font face="Verdana"> <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> <div id="Layer1" style="position:absolute; left:353px; top:140px; width:413px; height:19px; z-index:1"> <p class="data"> <% session.LCID = 1046 dim dia(7) dia(1)="Domingo" dia(2)="Segunda-feira" dia(3)="Terça-feira" dia(4)="Quarta-feira" dia(5)="Quinta-feira" dia(6)="Sexta-feira" dia(7)="Sábado" dim mes(12) mes(1)="Janeiro" mes(2)="Fevereiro" mes(3)="Março" mes(4)="Abril" mes(5)="Maio" mes(6)="Junho" mes(7)="Julho" mes(8)="Agosto" mes(9)="Setembro" mes(10)="Outubro" mes(11)="Novembro" mes(12)="Dezembro" Select Case Hour(now()) Case 0,1,2,3,4,5,6 Response.Write "Boa Madrugada! Hoje é " Case 7,8,9,10,11,12 Response.Write "Bom Dia! Hoje é " Case 13,14,15,16,17 Response.Write "Boa Tarde! Hoje é " Case else Response.Write "Boa Noite! Hoje é " End Select Response.write dia(weekday(now()))&", "&day(now())&" de "& mes(month(now()))&" de "& year(now()) %> </p> </div> <iframe src = "http://www.ubolhosting.com/barra.htm" frameborder=0 scrolling=no width=100% height=25 border=0></iframe> <table border="0" cellpadding="0" cellspacing="0" width="775"> <!-- fwtable fwsrc="aquitem.png" fwbase="index.jpg" fwstyle="Dreamweaver" fwdocid = "1480040790" fwnested="0" --> <tr> <td><img src="../imagens/spacer.gif" width="26" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="86" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="28" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="9" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="40" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="10" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="37" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="28" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="41" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="48" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="97" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="143" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="26" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="16" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="62" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="73" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="5" height="1" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td rowspan="4" colspan="5"><img name="index_r1_c1" src="../imagens/index_r1_c1.jpg" width="189" height="133" border="0" alt=""></td> <td rowspan="2" colspan="6"><img name="index_r1_c6" src="../imagens/index_r1_c6.jpg" width="261" height="86" border="0" alt=""></td> <td rowspan="2"><img name="index_r1_c12" src="../imagens/index_r1_c12.jpg" width="143" height="86" border="0" alt=""></td> <td rowspan="3" colspan="3"><img name="index_r1_c13" src="../imagens/index_r1_c13.jpg" width="104" height="115" border="0" alt=""></td> <td><img name="index_r1_c16" src="../imagens/index_r1_c16.jpg" width="73" height="79" border="0" alt=""></td> <td rowspan="4"><img name="index_r1_c17" src="../imagens/index_r1_c17.jpg" width="5" height="133" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="79" border="0" alt=""></td> </tr> <tr> <td rowspan="2"><img name="index_r2_c16" src="../imagens/index_r2_c16.jpg" width="73" height="36" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="7" border="0" alt=""></td> </tr> <tr> <td rowspan="2" colspan="6"><img name="index_r3_c6" src="../imagens/index_r3_c6.jpg" width="261" height="47" border="0" alt=""></td> <td rowspan="2"><img name="index_r3_c12" src="../imagens/index_r3_c12.jpg" width="143" height="47" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="29" border="0" alt=""></td> </tr> <tr> <td><img name="index_r4_c13" src="../imagens/index_r4_c13.jpg" width="26" height="18" border="0" alt=""></td> <td colspan="3"><img name="index_r4_c14" src="../imagens/index_r4_c14.jpg" width="151" height="18" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="18" border="0" alt=""></td> </tr> <tr> <td colspan="2"><img name="index_r5_c1" src="../imagens/index_r5_c1.jpg" width="112" height="8" border="0" alt=""></td> <td colspan="2"><img name="index_r5_c3" src="../imagens/index_r5_c3.jpg" width="37" height="8" border="0" alt=""></td> <td colspan="2"><img name="index_r5_c5" src="../imagens/index_r5_c5.jpg" width="50" height="8" border="0" alt=""></td> <td colspan="2"><img name="index_r5_c7" src="../imagens/index_r5_c7.jpg" width="65" height="8" border="0" alt=""></td> <td colspan="2"><img name="index_r5_c9" src="../imagens/index_r5_c9.jpg" width="89" height="8" border="0" alt=""></td> <td colspan="7"><img name="index_r5_c11" src="../imagens/index_r5_c11.jpg" width="422" height="8" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="8" border="0" alt=""></td> </tr> <tr> <td rowspan="2"><img name="index_r6_c1" src="../imagens/index_r6_c1.jpg" width="26" height="21" border="0" alt=""></td> <td><a href="../default.asp"><img name="index_r6_c2" src="../imagens/index_r6_c2.jpg" width="86" height="14" border="0" alt=""></a></td> <td rowspan="2" colspan="2"><img name="index_r6_c3" src="../imagens/index_r6_c3.jpg" width="37" height="21" border="0" alt=""></td> <td colspan="2"><a href="../contato.asp"><img name="index_r6_c5" src="../imagens/index_r6_c5.jpg" width="50" height="14" border="0" alt=""></a></td> <td rowspan="2"><img name="index_r6_c7" src="../imagens/index_r6_c7.jpg" width="37" height="21" border="0" alt=""></td> <td rowspan="2"><img name="index_r6_c8" src="../imagens/index_r6_c8.jpg" width="28" height="21" border="0" alt=""></td> <td><a href="http://www.ubol.com.br/forum" target="_blank"><img name="index_r6_c9" src="../imagens/index_r6_c9.jpg" width="41" height="14" border="0" alt=""></a></td> <td rowspan="2"><img name="index_r6_c10" src="../imagens/index_r6_c10.jpg" width="48" height="21" border="0" alt=""></td> <td colspan="7"><img name="index_r6_c11" src="../imagens/index_r6_c11.jpg" width="422" height="14" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="14" border="0" alt=""></td> </tr> <tr> <td><img name="index_r7_c2" src="../imagens/index_r7_c2.jpg" width="86" height="7" border="0" alt=""></td> <td colspan="2"><img name="index_r7_c5" src="../imagens/index_r7_c5.jpg" width="50" height="7" border="0" alt=""></td> <td><img name="index_r7_c9" src="../imagens/index_r7_c9.jpg" width="41" height="7" border="0" alt=""></td> <td colspan="7"><img name="index_r7_c11" src="../imagens/index_r7_c11.jpg" width="422" height="7" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="7" border="0" alt=""></td> </tr> <tr> <td colspan="3" valign="top"><!--#include file="../menu.asp"--></td> <td colspan="11" valign="top"><table width="468" height="38" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse" valign="top"> <tr> <td height="17" bordercolor="#000000" background="../imagens/fundo.jpg" class="tabelas">Publicidade</td> </tr> <tr> <td valign="top" bordercolor="#000000" class="padrão"> <script LANGUAGE=javascript src="http://www.aquitemhp.com/banner/ad.asp?g=1&t=1"></script> </td> </tr> </table> &nbsp; <table width="492" height="245" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse" valign="top"> <tr> <td height="17" bordercolor="#000000" background="../imagens/fundo.jpg" class="tabelas">AquiTem HP - Downloads</td> </tr> <tr> <td class="padrão" bordercolor="#000000" valign="top"><br><table width="487" height="87" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse"> <tr> <td height="18" background="../imagens/fundo.jpg"><div align="center" class="tabelas">Escolha a categoria</div></td> </tr> <td width="411"> <p> <%Sql = "SELECT * FROM categorias ORDER BY id" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> <span class="padrão">Nenhuma categoria encontrada!</span> <% Else While not rs.EOF %> <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a>&nbsp; <% rs.MoveNext Wend rs.close End If Set rs = nothing %> </p> <table width="478" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333" style="border-collapse: collapse"> <tr> <td background="../imagens/fundo.jpg" class="tabelas">TOP 10 Downloads</td> <td width="10" class="tabelas"></td> <td width="203" background="../imagens/fundo.jpg" class="tabelas">&nbsp;&Uacute;ltimos adi&ccedil;&otilde;es</td> </tr> <td width="265" height="52" class="tabelas"><!--#include file="10mais.asp"-->&nbsp;</td> <td width="10">&nbsp;</td> </tr> </table> </td> </tr> </table> <% else %> <% regs = 15 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If %> <% Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs Sql = "SELECT * FROM download WHERE categoria = "& cat &" ORDER BY nome" rs.Open SQL if rs.EOF then%>Nenhum arquivo listado nesta categoria ainda! <% else rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize contador = contador +1 %> <div align="center"> <table width="461" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" style="border-collapse: collapse"> <tr class="padrão"> <td width="310" height="21"> <a href="download.asp?id=<%=rs("id")%>"><%=rs("nome")%></a> </td> <td width="130" align="right"> <span class="tabelas">Cliques: </span><%=rs("cliques")%></td> </tr> <tr> <td width="459" colspan="2" class="padrão"><span class="negrito">Tamanho:</span><span class="padrão"> <%=rs("tamanho")%> |</span><span class="negrito"> Idioma:</span><span class="padrão"> <%=rs("idioma")%> |</span><span class="negrito"> Licença:</span><span class="padrão"> <%=rs("licenca")%></span>&nbsp; </td> </tr> <tr> <td colspan="2" width="459"> <font size="1"><%=rs("descricao")%></font></td> </tr> <tr> <td width="438" height="21" colspan="2" valign="middle" class="padrão"> <span class="negrito">Média de votos:</span> <%=rs("media")%> [<a href="javascript:abrejanela('voto.asp?id=<%=rs("id")%>')">Avaliar</a>] |<span class="negrito"> <right>Adicionado em:</right></span><right><span class="padrão"> <%=rs("adicionado")%></span> </right> </table> </div> <p align="center" class="padrão"><BR> <% rs.MoveNext Loop %> <br><span class="tabelas">Página(s): </span> <% For i = 1 To rs.PageCount If i = cint(pag) Then Response.Write i Else cat=request.querystring("cat") Response.Write "<a href='" & request.servervariables("script_name") & "?cat="&cat&"&pagina=" & i & "'>" & i & "</a> " End If Next rs.close FechaConexao Set rs = nothing end if end if%> </table> <td colspan="3" valign="top"><!--#include file="../esquerda.asp"--></td> <td><img src="../imagens/spacer.gif" width="1" height="541" border="0" alt=""></td> </tr> <tr> <td colspan="17"><img name="index_r9_c1" src="../imagens/index_r9_c1.jpg" width="775" height="42" border="0" alt=""></td> <td><img src="../imagens/spacer.gif" width="1" height="42" border="0" alt=""></td> </tr> </table> </body> </html>
  2. kadu

    Listando Categorias

    tentei e não deu certo, tipo, dava erro, entoa queria saber se tem q mecher em outra parte do codigo, vou colocar ele aqui... <%Sql = "SELECT * FROM categorias ORDER BY id" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> <span class="padrão">Nenhuma categoria encontrada!</span> <% Else While not rs.EOF %> <a href="exibir.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR> <% rs.MoveNext Wend rs.close End If Set rs = nothing %> </td> </tr> </table> </div> <% else %> <% regs = 15 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If %> <% Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs Sql = "SELECT * FROM download WHERE categoria = "& cat &" ORDER BY nome" rs.Open SQL if rs.EOF then%>Nenhum arquivo listado nesta categoria ainda! <% else rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize contador = contador +1 %> desculpe estar enchendo vocês tanto...
  3. kadu

    Listando Categorias

    e as categorias sempre sero adicionadas lado a lado independente do numoero de categorias?
  4. kadu

    Listando Categorias

    o código ficaria assim? <%Sql = "SELECT * FROM categorias ORDER BY id" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> <%Response.write "<table border=0 heigth=100>" Response.write "<td><%=id%></td><tr>" Response.write "<td><%=id2%></td><tr></table>" Response.write "</table>"%>
  5. kadu

    Listando Categorias

    eu adiciono as categorias e elas ficam em forma de lista, como eu faço para que elas fiquem uma do lado da outro, como se fosse uma tabela? Obs: clique aqui para ver como elas ficam. eu já coloquei as tabelas no html e não consegui mudar, o código q tem para listas as categorias é esse... <%Sql = "SELECT * FROM categorias ORDER BY id" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> Como eu posso fazer para q elas fiquem lado a lado?
  6. kadu

    Chacal Downloads 2.0

    alguém pode me ajudar? sou bem leigo em asp, e o sistema tá apresentando um erro: a linha do arquivo é estas: [B]2[/B] <% AbreConexao [B]3[/B] id = request.querystring("id") [B]4[/B] Sql1 = "SELECT * FROM download WHERE id =" & id & "" [B]5[/B] Set rs = Server.CreateObject("ADODB.Recordset") [B]6[/B] rs.Open SQL1, ConStr, 3, 3 [B]7[/B] cliquesa = rs("cliques") [B]8[/B] cliquesb = "1" [B]9[/B] x = cliquesa + cliquesb [B]10[/B] Sql = "UPDATE download SET cliques = '" & x & "' WHERE id = " & id & " " [B]11[/B] Conexao.Execute(Sql) %>
  7. kadu

    Teclado

    limpo meu pc toda semana, já testei com 4 teclados e o problema continua
  8. kadu

    Teclado

    eu estou com o mesmo problema, em relaçao aos ascentos, rodolfo você conseguiu resvolver o problema?
  9. kadu

    Teclado

    fala povo, bele? meu teclado ta um pouco maluco, quando eu paerto as teclas dos ascentos uma vez, seria como se as tivesse apertado duas vezes...isso so acontece somente nas teclas dos ascentos, q pode ser?
  10. kadu

    Camadas

    galera eu to com um problema no DW. acessem http://www.aquitemhp.com/busca e façam uma busca por webmaster, os reulstados q aparecer ficam por cima do layout, porque isso?
  11. kadu

    Formulário De Contato

    <%@language=vbscript%> <% Dim vNome, vEmail, vCidade, vEstado, vDDD, vTelefone, vAssunto, vMensagem, vPara vNome = Request.Form("nome") vEmail = Request.Form("email") vCidade = Request.Form("cidade") vEstado = Request.Form("estado") vDDD = Request.Form("ddd") vTelefone = Request.Form("telefone") vAssunto = Request.Form("assunto") set msg = Server.CreateOBject( "Jmail.Message" ) msg.From = vEmail msg.FromName = vNome ' Coloque aqui o email de quem vai receber o formulário vPara = "kaduwm@gmail.com" msg.Send("mail.aquitemhp.com") then response.write "<pre>" & msg.log & "</pre>" else response.Redirect ("http://www.aquitemhp.com/obrigado.asp") end if %> Tá dando erro no código, eu só queria q redirecionasse pra página OBRIGADO.ASP. Alguém poderia me falar o que tem de errado?
  12. pra quem não tem os dois vou postar duas imagens pra vocês verem o que tá acontecendo!! Imagem do Internet Explorer Imagem do Firefox no menu publicidade tem uma diferença entre os dois, o que pode ser? as camdas podem estar erradas?
  13. muito bons esses sites, vale apena acessar
  14. kadu

    Contador

    Assim, eu peguei um contador na net, ele está funcionando normalmente, agora eu queria saber como eu faço para que ele marque o ip e só conte a visita uma vez por dia do visitante. Qual é a função q eu devo usar?
×
×
  • Criar Novo...