Homer-Simpson

CARA você REALMENTE ME AJUDOU MUITO É ISSO MESMO AGORA ESTÁ TUDO OK OBRIGADÃOOOOOO

ele agoar deu isso. 'Next' inesperado /sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 113 next

Andreaia_sp ele agora deu esse erro Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 103 end if tinha dois End if end if Mesmo tirando um ainda dá esse erro Instrução esperada /sites/Sites-prontos/cbpe/2006/site/agenda2/index.asp, line 103 end if QUE BRONCA EU ARRUMEI PARA vocês HEIM , AGRADEÇO MUITO A PACIÊNCIA.

jefmolino, realmente é esse o erro que está dando mesmo se o banco de dados estiver vazio da esse erro, e se você envia uma nova noticias ele não grava no banco de dados. Marcos-rj Valeu a dica mas ainda continua a dá erro.

Ai pessoa quebrei a cabeça e nada algum tem uma ideia por que ele dá eros ao apagar todas as materia?? Isso significa que o banco de dados não pode ficar vazio mas por que??

Andreia a linha 95 é essa If Len(rs("assunto")) < 25 Then _______________________________________ Abixo o restante do código dessa linha 95 If Len(rs("assunto")) < 25 Then 96 Resumo = rs("assunto") 97 Else 98 Resumo = Mid(rs("assunto"),1,140) & "..." 99 End If 100 %> ________________________________________ Obrigado pela atenção!

------------------------------------------------------------------------------------------ Andreia coloquei o código que você sugeriu dai ele veio com esse erro agora na página index.asp Tipo de erro: (0x80020009) Exceção. site/2006/site/chacalnews/index.asp, line 95 ------------------------------ es o código nessa linha ------------------------------ <% intRecsPerPage = ultimos AbreConexao set rs=Server.CreateObject("ADODB.Recordset") sSQL="SELECT * FROM noticias ORDER BY id DESC" rs.Open sSQL, Conexao,3,3 rs.PageSize=intRecsPerPage for intRecord=1 to rs.PageSize If Len(rs("assunto")) < 25 Then Resumo = rs("assunto") Else Resumo = Mid(rs("assunto"),1,140) & "..." End If %>

Ai pessoal peguei esse programinha na NET muito bom mas tem uma bronca quando eu apago todas as materias dá esse erro. Na Inetrnet dá esse erro erro '80020009' /chacalnews/noticia.asp, line 152 E no IIS dá esse ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /site/2006/site/chacalnews/enviar.asp, line 44 Nessa linha está esse código <% AbreConexao If Request.form("enviado") = "sim" then SQL = "SELECT * FROM noticias ORDER BY id DESC" Set rs = Conexao.Execute(SQL) noticia1 = rs("id") noticia2 = noticia1 + 1 noticia = replace(request.form("noticia"), "'", "''") noticiad = replace(noticia, chr(13), "<br>") alguém pode dá uma luz?

Anndrea sp, valeu a atenção mas já resolvi a bronca, o provedor liberoru o cdonts dai o script funviona que é uma beleza Obrigado pela atenção você já me ajudou muito aqui em outros tempos. Um Abraço. Pode fechar o tópico.

GENTE É O SEGUINTE ESTOU COM UM SISTEMA DE INDICAÇÃO DE SITE , MAS TEM UMA BRONCA O SISTEMA, ALIAS TODOS QUE ENCONTRO NA NET USAM O CDONTS E MEU PROVEDOR NÃO TEM ISSO ALGUM PODE ME AJUDAR VAI AI O CÓDIGO QUE ESTOU USANDO Pagina = indique.asp <% 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 e pensou que você iria gostar de visitar o site também!</font></font></strong></font></p>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>SEU AMIGO INDICOU ESSE SITE.</font><br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080>&nbsp;teste.com.br" htmlemail = htmlemail & "- O seu Portal<br>" htmlemail = htmlemail & "&nbsp;</font><a href=http://www.teste.com.br><font face=Verdana size=2 color=#000080>www.teste.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> <STYLE type=text/css>BODY { BACKGROUND-REPEAT: repeat-y } TD { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } P { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } LI { FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 11px } A:link { COLOR: #336699; TEXT-DECORATION: none } A:visited { COLOR: #336699 } A:active { COLOR: #336699 } A:hover { COLOR: #3399cc } INPUT { BACKGROUND-COLOR: #FFECF0; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } TEXTAREA { BACKGROUND-COLOR: #e3f4fd; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } SELECT { BACKGROUND-COLOR: #e3f4fd; BORDER-BOTTOM-COLOR: #106394; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #106394; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #106394; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #106394; BORDER-TOP-WIDTH: 1px; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } INPUT.botao { BACKGROUND-COLOR: #cc0000; BORDER-BOTTOM-COLOR: #cc0000; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #000066; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #000066; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #000066; BORDER-TOP-WIDTH: 1px; COLOR: #ffffff; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } INPUT.checkbox { BACKGROUND-COLOR: #ffffff; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } INPUT.radio { BACKGROUND-COLOR: #ffffff; COLOR: #000066; FONT-FAMILY: Verdana, Tahoma, Arial, Helvetica, Sans-Serif; FONT-SIZE: 11px } </STYLE> <title>N Indicação</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#cc0000"> <p align="center"><font face="Verdana" size="2"> <br> </font> <font face="Arial" color="#ffffff"><b>Preenchendo este formulário, você estará indicando o Site <br> à seu amigo.</b> </font> <form name="theform" action="indique.asp?action=login" method="post"> <br> <div align="center"> <center> <table bgcolor="#cc0000" width="388" height="30"> <tr><td width="111" height="1" bgcolor="#F88888"><b><font color="#cc0000" face="Arial">Seu Nome:</font></b></td><td width="263" height="1" bgcolor="#F88888"><input type="text" name="seunome" size=31></td></tr> <tr><td width="111" height="0" bgcolor="#F88888"><b><font color="#cc0000" face="Arial">Seu E-mail:</font></b></td><td width="263" height="0" bgcolor="#F88888"><input type="text" name="seuemail" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#F88888"><b><font color="#cc0000" face="Arial">Nome do Amigo:</font></b></td><td width="263" height="25" bgcolor="#F88888"><input type="text" name="nomeamigo" size=31 maxlength=30></td></tr> <tr><td width="111" height="25" bgcolor="#F88888"><b><font color="#cc0000" face="Arial">E-mail do Amigo:</font></b></td><td width="263" height="25" bgcolor="#F88888"><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> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX pagina = indique2.asp <html> <head> <title>Indicação</title> </head> <body topmargin="0" leftmargin="0" bgcolor="#cc0000"> <p align="center">&nbsp;</p> <p align="center"><b><font face="arial" size="2" color="silver"> A indicação foi enviada com sucesso !</font></b></p> </body>