marcos_804

ALGEUM PODERIA ME DIZER COMOO EU POSSO CRIAR UM SISTEMA DE BUSCAS NO MEU SITE? SE TIVEREM UM SCRIPT, PASSEM QUE EU EDITO. DESDE já AGRADEÇO HEHEHE!!

GALERA AQUI TEM UM CODIGO MEU, GOSTARIA DE SABER COMO FAÇO PARA QUE O CODIGO QUE VEM EM VERMELHO ATUALIZE A CADA 10 SEGUNDOS: Editado: Para usar as Tags COLOR, ou Negrito, ou qualquer outra, dentro de Codigos, use QUOTE para o codigo!

DARK ou BARETA, tão por ai. Sei que voces são os bonzoes daqui do forum. Poderiam me dizer quais as modificaçoes que faço no codigo para que ele vire a pagina?

alguém aqui sabe com é que eu posso fazer para que eu impessa de aparecer aquela opiçao de salvar foto, do windows. SABE TAMBEM COMO BLOQUEAR A PARTE DE SALVAR COMO DO MENU ARQUIVO, SE alguém SOUBER ILUMINA NOIS AI. VALEUSSSSSSS!!!!

OBRIGADÃO AI GALERA PELAS RESPOSTAS, AGORA PODEM FECHAR O tópico

galera, o que significa aquele tal de "eof" e "not ---. eof"? RESPONDE AI VAI

GOSTARIA DE SABER COMO FAÇO PARA APARECER SOMENTE 10 POSTS POR PAGINA Aqui vai o código da minha página <% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("journal.mdb") sqlstmt = "SELECT * FROM musica 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 cantor = rs("cantor") id = rs("id") musica = rs("musica") Lmusica = rs("Lmusica") link = "<a href='" & Lmusica &"'>::Cantor: <span style='font-weight:bold;color:#235689'>" & cantor & "</span><br>" & musica & "::<br><span style='font-family:arial;font-size:9'>Designed by: Marcos Oliveira</span>" %> <tr> <td id="link"> <%=link%> </td> </tr> <% rs.MoveNext End If Next%>

êta, bareta, não deu certo. da erro la na lina 181, la onde tem o "CreateObject("jmail......")"

mas como faço isso?

VOU MOSTRAR O CODIGO AGORA Editado: Para usar TAGS de formatação de texto em códigos, utilize a tag QUOTE!

alguém SABE QUAL É A PORTA E O ENDEREÇO PARA O ENVIO DE E-MAIL ATRAVES DE UM FORMULARIO DE ENVIO DE EMAIL? SE SOUMER ME DIZ WWW.1ASPHOST.COM

TENHO UM SCRIPT QUE TEM UM ARQUIVO QUE MOSTRA O RELOGIO ATUALIZANDO SEMPRE, MAS não CONSIGO CONFIGURAR O SESSIO.LCID AÍ VAI <!-- span#span_relogio { background-color: #005500; font-family: "Fixedsys"; font-size: 9; color: #00FF00; } --> </style> <script type="text/javascript"> <!-- //by: Rafael Ribeiro da Silva //"Relogio do Servidor" var hh = <% session.LCID = 1046%> hora =hour(now()) %>; var mm = <%= minute(now()) %>; var ss = <%= second(now()) %>; function relogio(){ if (ss >= 60){ ss = 00; mm = mm + 1; if (mm >= 60){ mm = 00; hh = hh + 1; if (hh >= 24){ hh = 00; }}} ss = ss + 1; if (hh <= 9){ xhh = "0" + hh; } else { xhh = hh; } if (mm <= 9){ xmm = "0" + mm; } else { xmm = mm; } if (ss <= 9){ xss = "0" + ss; } else { xss = ss; } document.all("span_relogio").innerHTML = xhh + ":" + xmm + ":" + xss; lrelogio = setTimeout("relogio()", 1000); } --> </script>

ESTA PROPRIEDADE <SPAN STYLE="COLOR:#FF0000;FONT-WEIGHT:BOLD;FONT-SIZE:15">setTimeout</SPAN>

GALERA É QUE EU NÃO ENTENDO MUITO, MAS USANDO AQUELA PARTE DE SETTIMEOUT, EU ACHO, NÃO DA PARA ATUALIZAR?

Galera criei aqui um relogio, mas quero que ele atualize a cada segundo, como faço isso? Deêm uma luz aí galera. <% Session.LCID = 1040 hora = hour(now) hora = hora + 1 minutos = minute(now) segundos = second(now) relogio = hora & ":" & minutos & ":" & segundos %> AGURDO TRESPOSTA

o unico erro da pagina é Permission denied no mais esta tudo certo. alguém pode me dizer como fazer com que esta "permissao não seja negada"

Galera na hora de enviar o negocio para o amigo, o trem da errado. Aqui vai o erro Microsoft VBScript runtime error '800a0046' Permission denied /teajudo/NOVOStestes/tell_a_friend.asp, line 71 <% dim useraction useraction = request("action") select case useraction case "login" seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Ol </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da Geek Brasil e pensou que voc iria gostar de visitar o site tambm!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O site da Geek Brasil, um portal onde voc encontra uma seo para Webmaster, com vrios exemplos de DHTML, Java Script, CSS, etc. Alm da seo Webmaster, voc tambm encontra no nosso portal, uma seo de Apostilas, com tudo oque voc precisa para entrar no mundo da informtica e muito mais. Na Geek Brasil, voc tambm ir encontrar uma seo de Dowloads com os melhores programas, muito fcil de encontrar o programa que voc quer, basta voc fazer uma busca e pronto. Caso voc queira receber o Boletim Semanal da Geek Brasil, entro no nosso portal e cadastre-se! O cadastro muito simples, basta voc forenecer seu nome e e-mail para estar sempre atualizado!</font><br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080>&nbsp;Geek Brasil" htmlemail = htmlemail & "- O seu Portal de Informtica<br>" htmlemail = htmlemail & "&nbsp;</font><a href=http://www.geekbrasil.com.br><font face=Verdana size=2 color=#000080>www.geekbrasil.com.br</font></a></i></strong></p>" objCDO.To = emailamigo objCDO.From = seunome objCDO.Subject = "V I S I T E ! ! !" objCDO.Body = htmlemail objCDO.MailFormat = 0 objCDO.Bodyformat = 0 objCDO.Send response.redirect "indique2.asp" end select %> <html> <head> <title>Geek Brasil - Indicao</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#429AC6"> <p align="center"><font face="Verdana" size="2"> <br> </font> <font face="Arial" size="2" color="#FFFFFF"><b>Preenchendo este formulrio, voc estar indicando o site da Geek Brasil seu amigo.</b> </font> <br><form name="theform" action="indique.asp?action=login" method="post"> <div align="center"> <center> <table bgcolor="#39597D" width="388" height="30"> <tr><td width="111" height="1" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu Nome:</font></b></td><td width="263" height="1" bgcolor="#A5B4C4"><input type="text" name="seunome" size=31></td></tr> <tr><td width="111" height="0" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Seu E-mail:</font></b></td><td width="263" height="0" bgcolor="#A5B4C4"><input type="text" name="seuemail" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">Nome do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#A5B4C4"><b><font color="#39597D" size="2" face="Arial">E-mail do Amigo:</font></b></td><td width="263" height="25" bgcolor="#A5B4C4"><input type="text" name="emailamigo" size=31 maxlength=30></td></tr> </table> </center> </div> <p align="center"><input type="submit" value="< < I N D I C A R > >"></p> </form> </body>

<% Set livro = CreateObject("ADODB.connection") livroVer = "DRIVER={Microsoft Access Driver(*.mdb)};" livroVer = livroVer &"BDQ"& Server.MapPath("livro_de_visitas.mdb") livro.Open livroVer SQLver = "SELECT * FROM livro ORDER BY data DESC" SET pega = livro.Execute(SQLver) %> porque esse negócio dá errado, pelo amor de Deus. Os procedimentos estão certo, ou pelo menos, parece

não é só em flas não.

bem assim está o meu codigo <% SET marcos = CreateObject("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.servervariables("remote_addr") data = date hora = time %> <% SQL = "INSERT INTO livro (nome ,site ,email ,mensagem ,ip ,data ,hora)" SQL1 = SQL &"VALUES('"& nome &"', '"& site& "', '"& email &"', '"& mensagem &"', '"& ip &"', '"& data &"', '"& hora &"')" Set grava = marcos.Execute(SQL1) %> <% marcos.close %> <% response.redirect "default.asp"%> ESTE É O ERRO Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Field 'livro.site' cannot be a zero-length string. /teajudo/TESTE ASP/meulivro/inseredados.asp, line 24 MAS NÃO CONSEGUI DECIFRÁ-LO

cadê o povo do forum?

ai vai o post <% 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) %> <%end if%> <% response.redirect "default.asp"%> aqui vai o ERRO Microsoft VBScript compilation error '800a0401' Expected end of statement /teajudo/TESTE ASP/meulivro/inseredados.asp, line 22 SQL = SQL &"VALUES('"nome"','"&site&"','"&email&"','"&mensagem&"','"&ip&"','"&data&"','"&hora&"')" ---------------------^

COMO ASSIM?

MAS você NÃO VIU NENHUM ERRO NO DEFAULT? LEMBRO QUE O ENDEREÇO DO BANCO ESTÁ CERTO, MAS VEJA O DEFAULT PARA MIM. SOU NOVO, VAI VER TEM ALGUM ERRO!!!

NÃO TEM LINHA, O SERVIDOR NÃO CODIFICA O ERRO. SIMPLISMENTE APARECE QUE A PÁGINA NÃO PODE SER EXIBIDA O ERRO É O 505 ERRO INTERNO NO SERVIDOR