Ir para conteúdo
Fórum Script Brasil

marcos_804

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    379

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcos_804 postou

  1. marcos_804
    desculpa, me esqueci disso. A PÁGINA SIMPLISMENTE NÃO ABRE!!! O BANCO DE DADOS ESTÁ CERTO, E A TABELA TAMBEM
  2. marcos_804
    aqui vai o codigo default.asp [*]<html> <head> <title>Mensagens dos livro</title> <style> a{text-decoration:none;color:#ff0000;padding:3} a:hover {text-decoration:underline;color:#ff0000;background-color:#f1f1f1} #barra {color:#ffffff;font-family:verdana;background-color:#DB0E12;text-align:center;width:100%;height:19;border:1px solid #FFFF00;font-weight:bold;padding-top:2;font-size:11} .1 {font-family:verdana;font-size:12;color:#000000;font-weight:bold} #bot {color:#000000;font-size:12;background-color:#ffffff;font-family:verdana;text-align:center;width:100%} #bot a{color:#ffff00;font-size:12;background-color:#ff0000;font-family:verdana;text-align:center;width:50%} #bot a:hover{color:#ffff00;font-size:12;background-color:#0000ff;font-family:verdana;text-align:center;width:50%;text-decoration:none;text-transform:uppercase;font-weight:bold} </style> </head> <body> <table border="0" width="500" align="center" colspan="2"> <tr> <td colspan="2" class="1" valign="top"> <br>Desenvolvido por: marcos_804@yahoo.com.br<br><br> <div id="bot"><a href="assina_livro.asp">Assina no livro</a></div> </td> </tr> <% Set marcos = CreatObject("ADODB.Connection") livro = "DRIVER={Microsoft Access Driver(*.mdb)};" livro = livro &"DBQ="&Server.MapPath("livro.mdb") marcos.open livro SQLer = "SELECT * FROM livro ORDER BY data" SET ler = marcos.Execute(SQLer) %> <% ler.MoveFirst DO WHILE NOR ler EOF %> <% nome = ler("nome") email = ler("email") site = ler("site") mensagem = ler("mensagem") ip = ler("ip") data = ler("data") hora = ler("hora") %> <tr> <td width="50%" id="barra" colspan="2"> Assinante: <span style="text-transform:uppercase;color:#ffff00"><%=nome%></span> </td> </tr> <tr> <td colspan="2" class="1"> E-mail: <span style="color:#ff0000"><a href="mailto:<%=email%>"><%=email%></a></span> </td> </tr> <tr> <td colspan="2" class="1"> Site: <%if site <> "não tem site" %><a target="_blank" href="http://<%=site%>"></a><%end if%> </td> </tr> <tr> <td colspan="2" class="1"> Mensagem:<br> <span style="color:#000000;font-style:italic;background-color:#f1f1f1;width:100%;padding:5"> <%=mensagem%> </span> </td> </tr> <tr> <td width="50%" class="1"> Postado em: <span style="color:#ff0000;font-style:italic"><%=data%></span> </td> <td width="50%" class="1"> Hora: <span style="color:#ff0000;font-style:italic"><%=hora%></span> </td> </tr> <tr> <td colspan="2"> <hr> </td> </tr> <%ler.MoveNext%><%loop%> <tr> <td colspan="2" id="barra"> Obrigado pela visita!!! </td> </tr> </table> </body> </html> aqui é o inseredados.asp [*]<% SET marcos = CreatObject("ADODB.connection") meuLivro = "DRIVER={Microsoft Access Driver (*.mdb)};" meuLivro = meulivro &"DBQ="& Server.MapPath("livro.mdb")&"" marcos.open meuLivro 'Variveis do Livro de Visitas nome = request.form("nome") site = request.form("site") email = request.form("email") mensagem = request.form("mensagem") ip = request.servervariable("remote_addr") data = date hora = time %> <% SQL = "INSERT INTO livro (nome,site,email,mensagem,ip,data,hora)" SQL = SQL &"VALUES('"nome"','"& site &"','"& email &"','"& mensagem &"','"& ip &"','"& data &"','"& hora &"')" Set grava = marcos.Execute(sql) %> <% response.redirect "default.asp"%> AGUARDO RESPOSTA!!!
  3. marcos_804

    Criar Nova Página

    uma questão postou marcos_804 ASP

    no código abaixo, como faço para que apareça apenas os 50 posts e os outros esteja numa outra página, criada automaticamente. <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") sqlstmt = "SELECT * FROM musicas ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 50 If rs.eof then Exit For Else nome = rs("nome") id = rs("ID") descricao = rs("descricao") link = "<a href='view2.asp?id=" & id & "'>" & nome & "</a>" description = descricao %> Editado: Use a TAG CODE para formatar seu codigo. A tag LIST não EXISTE!
  4. marcos_804

    Adicionar

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    Obrigado
  5. marcos_804

    Adicionar

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    olha só, quero que selecione apenas onde eu definir o id, nos demais lugares quero que selecione de outra tabela. Tentei colocar um outro codigo parecido como este e selecionando de outra tabala, mas deu erro. Quero que selecione só o ID mas que a outra seleção da outra tabela fique intacta
  6. marcos_804

    Adicionar

    uma questão postou marcos_804 ASP

    Galera quero que a parte em vermelho selecione uma parte de outra tabela, o problema é que não sei o mini código. Alguém poderia me dizer qual o codigo? O nome que deve buscar é "meio" Editado: Não existe o comando LIST, para formatar codigos. USE QUOTE ou CODE
  7. marcos_804
    PELO AMOR DE DEUS, alguém PODERIA ME DIZER O QUE ESTÁ DE ERRADO NESTE <html> <head> <title>Leoncarlos & Luciane</title> <link rel="stylesheet" type="text/css" href="estilo.css"> </head> <body leftmargin="5" topmargin="0"> <div align="center"> <center> <table border="0" width="750" bordercolor="#000000"> <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") sqlstmt = "SELECT * FROM journal ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else menu = rs("nemu") id = rs("ID") meio = rs("meio") direito = rs("direito") menu = menu direito = direito meio = meio %> <tr> <td width="150" class="1" valign="top"> <% =menu %> </td> <td class="1" valign="top"> <% =meio %> </td> <td width="150" class="1" valign="top"> <% =direito %> </td> </tr> <% rs.MoveNext End If Next%> </table> </center> </div> </body> </html> Editado: Use a tag CODE para codigos...
  8. marcos_804

    Me Ajudem ! ;-)

    uma questão postou marcos_804 ASP

    Preciso de um código asp que se ligue ao banco de dados por id, algume sabe se tem algum por aqui. Quero o codigo so para formatar o basico, não entendo quase nada em asp, desde já agradeço a vocês..
  9. marcos_804

    Ajuda Urgente!

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    BEM, NÃO DEU CERTO. MAS SERÁ QUE você não TEM NEHUM CODIGO PRONTO COM O .INC PARA ME PASSAR, SABE não ENTENDO MUITO, AINDA EM ASP. então, DESCULPA O INCOMODO E APERTURBAÇÃO, BROTHER. estou ESPERANDO
  10. marcos_804

    Asp, Preciso

    uma questão postou marcos_804 ASP

    Olá galera, não entendo muito de asp, mas quer uma página neste tipo. Página estática é muito chato. POR ISSO PEÇO-LHES SE alguém TEM ALGUM CODIGO QUE PUDESSE ME DAR COM O DEFALT.ASP E O ARQUIVO .INC, O BMD EU FARIA. ESPERO QUE ME AJUDEM, POIS PRECISO MUITO. OBRIGADO!!! MARCOS_804@YAHOO.COM.BR
  11. marcos_804

    Ajuda Urgente!

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    achei que tivesse resolvido, mas agora está dando erro e o default está assim <!--#include file="bd.inc"--> <html> <head> <title>Mundo Curiosidades - br</title> <style> a{text-decoration:none;color:#000000} a:hover{text-decoration:underline;color:#ff0000} #bot {background-color:#4488CC;font-family:verdana;font-size:11;color:#ffff00;padding:1;width:100%;text-align:center;font-weight:bold} #bot a{background-color:#059FFF;font-family:verdana;font-size:11;color:#ffffff;padding-left:2;width:100%;height:18;text-align:left;border-bottom:1px solid #ff0000;font-weight:normal} #bot a:hover{background-color:#FFC760;font-family:verdana;font-size:10;color:#000000;width:100%;font-weight:bold;text-align:center} #1 {background-color:#059fff;width:100%;height:18;font-family:verdana;font-size:12;text-align:center;font-weight:bold;color:#ffff00;padding-top:2} #2 {text-align:center} #image img{width:200;height:200} #image1 img{float:left} .1 {border:1px solid #059fff;font-family:verdana;font-size:11;paddin:0;color:#000000}05f9fff .1 a:hover{font-family:verdana;font-size:11;color:#000000} #4 a{margin-left:20} #4 a:hover{text-decoration:underline overline} #3 {width:100%;color:#000000;font-family:verdana;font-size:10} #3 a{width:49%;color:#000000;font-family:verdana;font-size:10;padding:2;height:80} #3 a:hover{width:49%;color:#000000;font-family:verdana;font-size:10;background-color:#f1f1f1} #3 img {float:left;border:0;width:80;height:80} </style> </head> <body leftmargin="5" bgcolor="#e5ffff"> <div id="image1"> <% idmostar=ler("id") frases = ler("frases") fotoCidades = ler("fotoCidades") pessoas = ler("pessoas") email = ler("email") estudos = ler("estudos") brasileiro = ler("brasileiro") data = ler("data") %> <%=frases%> ... .. . %> <%response.write"<a href='default1.asp?idmostrar="&rs("id") & "' target='_blank'>"&data&"</a>"%> <table border="0" colspan="3" width="750"> <tr> <td colspan="3" class="1" > <div id="1"> <%=data%> </div> </td> </tr> <tr> <td width="150" VALIGN="TOP" class="1" rowspan="2"> <div id="bot"> <a href="default.asp?id=22&amp;data=22">Marcos olviera</a> </div> </td> <td width="420" valign="TOP" class="1"> <%=pessoas%> </td> <td width="180" VALIGN="TOP" class="1" rowspan="2"> <%=fotoCidades%> <%=estudos%> <%=brasileiro%> </td> </tr> <tr> <td class="1"> <%=data%> </td> </tr> <tr> <td colspan="3" class="1" style="text-align:center" id="4"><%=menu1%></td> </tr> </table> </div> </BODY>
  12. marcos_804

    Ajuda Urgente!

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    BRIGADAAAAAAAAAAAAAAAAAAAÃO AMIGO, VOCÊ ME AJUDOU MUITO, PU MELHOR, VOCÊ REFORMULOU O CODIGO. OBRIGADO!!!
  13. marcos_804

    Preciso Urgente11!

    uma questão postou marcos_804 ASP

    SERÁ QUE alguém PODERIA ME ENVIAR UM CÓDIGO QUE TENHO O CODIO DO DEFAULT.ASP DO .INC , O BMD PODE DEIXAR QUE EU CRIO. MAS QUERO UM CÓDIGO QUE ACEITE O ID CHAMADO E UM DE CADA VEZ. DESDE JÁ OBRIGADO
  14. marcos_804

    Ajuda Urgente!

    pergunta respondeu ao marcos_804 de marcos_804 em ASP

    se você diz o .inc aí vai. <% SET c = CreateObject("ADODB.Connection") csl = "DRIVER={Microsoft Access Driver (*.mdb)};" csl = csl &"DBQ="& Server.MapPath("c_guest.mdb") &"" c.Open csl SQLer = "SELECT * from c_guest ORDER BY data" SET LER = c.EXECUTE(SQLer) %>
  15. marcos_804

    Ajuda Urgente!

    uma questão postou marcos_804 ASP

    galera será que alguém poderia me dizer o que está acontecendo neste script? O problema é o seguinte, na hora de pedir a id de um link só ele mostra todos os id's, o que fazer para aparecer só um
  16. marcos_804

    Contador

    uma questão postou marcos_804 ASP

    Será que alguém poderia ajudar este simples rapaz que não sabe nada em asp, a não ser copiar e colar, com um contador em txt que dê certo? Desde já agradeço.
  17. marcos_804
    será que alguém aqui sabe mais algum tipo de borda a não ser: dashed, solid, outset e inset? Se souberem me digam por favor!!!
  18. marcos_804
    OLÁ GALERA AQUI TEM UM POST QUE VAI PREPARAR COTAGEM REGRESSIVA <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Nova pagina 1</title> </head> <body> <script language="JavaScript1.2"> /* Dynamic countdown Script- © Dynamic Drive (www.dynamicdrive.com) For full source code, 100's more DHTML scripts, and TOS, visit http://www.dynamicdrive.com */ function setcountdown(theyear,themonth,theday){ yr=theyear;mo=themonth;da=theday } //////////CONFIGURE THE COUNTDOWN SCRIPT HERE////////////////// //STEP 1: CONFIGURE ABAIXO NO FORMATO ano, mês e dia: setcountdown(2004,09,01) //STEP 2:diga a frase que deve aparecer antes do acontecimento e a frase ao chegar no acontecimento var occasion="Antes do acontecimento" var message_on_occasion="Ao chegar o acontecimento!" //STEP 3: Configure the below 5 variables to set the width, height, background color, and text style of the countdown area var countdownwidth='480px' var countdownheight='20px' var countdownbgcolor='ffffff' var opentags='<font face="Verdana"><small>' var closetags='</small></font>' //////////DO NOT EDIT PASS THIS LINE////////////////// var montharray=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") var crosscount='' function start_countdown(){ if (document.layers) document.countdownnsmain.visibility="show" else if (document.all||document.getElementById) crosscount=document.getElementById&&!document.all?document.getElementById("countdownie") : countdownie countdown() } if (document.all||document.getElementById) document.write('<span id="countdownie" style="width:'+countdownwidth+'; background-color:'+countdownbgcolor+'"></span>') window.onload=start_countdown function countdown(){ var today=new Date() var todayy=today.getYear() if (todayy < 1000) todayy+=1900 var todaym=today.getMonth() var todayd=today.getDate() var todayh=today.getHours() var todaymin=today.getMinutes() var todaysec=today.getSeconds() var todaystring=montharray[todaym]+" "+todayd+", "+todayy+" "+todayh+":"+todaymin+":"+todaysec futurestring=montharray[mo-1]+" "+da+", "+yr dd=Date.parse(futurestring)-Date.parse(todaystring) dday=Math.floor(dd/(60*60*1000*24)*1) dhour=Math.floor((dd%(60*60*1000*24))/(60*60*1000)*1) dmin=Math.floor(((dd%(60*60*1000*24))%(60*60*1000))/(60*1000)*1) dsec=Math.floor((((dd%(60*60*1000*24))%(60*60*1000))%(60*1000))/1000*1) //if on day of occasion if(dday<=0&&dhour<=0&&dmin<=0&&dsec<=1&&todayd==da){ if (document.layers){ document.countdownnsmain.document.countdownnssub.document.write(opentags+message_on_occasion+closetags) document.countdownnsmain.document.countdownnssub.document.close() } else if (document.all||document.getElementById) crosscount.innerHTML=opentags+message_on_occasion+closetags return } //if passed day of occasion else if (dday<=-1){ if (document.layers){ document.countdownnsmain.document.countdownnssub.document.write(opentags+"Occasion already passed! "+closetags) document.countdownnsmain.document.countdownnssub.document.close() } else if (document.all||document.getElementById) crosscount.innerHTML=opentags+"Occasion already passed! "+closetags return } //else, if not yet else{ if (document.layers){ document.countdownnsmain.document.countdownnssub.document.write(opentags+dday+ " days, "+dhour+" hours, "+dmin+" minutes, and "+dsec+" seconds left until "+occasion+closetags) document.countdownnsmain.document.countdownnssub.document.close() } else if (document.all||document.getElementById) crosscount.innerHTML=opentags+dday+ " dias, "+dhour+" horas, "+dmin+" minutos, and "+dsec+" segundos até "+occasion+closetags } setTimeout("countdown()",1000) } </script> <ilayer id="countdownnsmain" width=&{countdownwidth}; height=&{countdownheight}; bgColor=&{countdownbgcolor}; visibility=hide><layer id="countdownnssub" width=&{countdownwidth}; height=&{countdownheight}; left=0 top=0></layer></ilayer></body> </html>
  19. marcos_804
    OBRIGADO PELA AJUDA, BROTHER.
  20. marcos_804
    COMO CRIO ESTE TIPO DE TÓPICO?
  21. marcos_804
    TRASIÇÃO DE IMAGENS SUPER MASSA ISSO VAI NO BODY
  22. marcos_804
    ESTE SCRIPT MUDA A IMAGEM CADA VEZ QUE UMA PESSOA ENTRA NO SITE, ASSIM ELE PODE FICAR MAIS DINAMICO. QUALQUER DÚVIDA ME ESCREVAM:MARCOS_804@YAHOO.COM.BR ISSO VAI NO <BODY></BODY>
  23. marcos_804
    ESTE É UM ÓTIOMO SCRIPT PARA QUEM QUER CRIAR UMA PÁGINA QUE TENHA FOTOS INTERATIVAS ISSO VAI NO <HEAD></HEAD> ISSO VAI NO BODY
  24. marcos_804
    Se tiverem alguma dúvida ou problema me enviem um e-maio, serei grato em atendê-los
  25. marcos_804
    Olá galera eu cheguei para deronar, venho trasendo vários scripts para vocês. e aí começa um.
×
×
  • Criar Novo...