mestre fyoda

para fachar o popup to usando assim : <a href="top.close();"><BR><img border="0" src="imagem/fechar.jpg"></a></font> não esta dando certo , alguém poderia corrigir o meu codigo

ta na mesma , os dois erros ainda ocorrem .

ainda não de certo mano , acessa la e veja . http://n.domaindlx.com/clanim/mural/mural_recados.asp Quando ele vai para a pagina 2 ele teria que ter o anterior e o proximo , mas so tem o anterior . Se voce clicar no anterior da pagina 2 ele volta para a pagina 1 so que na pagina 1 não tem o proximo .

Vejam no meu site , http://n.domaindlx.com/clanim/mural/mural_recados.asp Em cada pagina são mostrados 5 em cada pagina , quando você chega na pagina 3 ela tem 3 topicos , como faço para ela não avançar para a pagina 4 ? Essa é apenas a parte que mostra a pagina , o resto tirei . oresto que tirei é a paginação . <% 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("mural_recados.mdb") Conn.open Set Conn2 = Server.CreateObject("AdoDb.Connection") Conn2.provider="Microsoft.Jet.OLEDB.4.0" Conn2.connectionstring=Server.Mappath("../bd.mdb") Conn2.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset") Set RS2= Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL = "select * from mural" RS.Open SQL,Conn,3,3 SQL2 = "select * from usuarios" RS2.Open SQL2,Conn2,3,3 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo %> <% While intrec < RS.PageSize and not RS.EOF %> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina >= 1 then %> <font class="text-header"><a href="mural_recados.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp; <a href="mural_recados.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp; Próxima </a> </font> <% END IF %>

pronto já resolvi o meu problema , invez de colocar o de = Session("nome") &" - "& Session("sobrenome") dentro do else eu coloquei dentro do If Request.Form("enviado") = "sim" Then >valeu mais umavez , . Cadiado neste tópico .

não deu certo .

brother eu não entendi muito bem , mas eu coloquei o de = Request("de") antes de executar o insert , era isso ? , se for não deu certo Daria para você corrir o meu codigo e me passar a explicação um pouco melhor se possivel e em vermelho o que foi corrigido ?

<% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("mural_recados.mdb") DB.open constr de = Request("de") estado = Replace(Request.Form("estado"), "'", "/") bairro = Replace(Request.Form("bairro"), "'", "/") login = Replace(Request.Form("login"), "'", "/") para = Replace(Request.Form("para"), "'", "/") assunto = Replace(Request.Form("assunto"), "'", "/") mensagem = Replace(Request.Form("mensagem"), "'", "/") If Session("login") = False then %> <body link="#000000" vlink="#000000" alink="#000000"> <center> <BR><BR> <font class="text-header"> Clique na figura abaixo para ir a pagina de autenticação . <BR><br> <a href="../login.asp"><img border="0" src="../Meus%20documentos/asp/imagem/restrito.jpg"></a> </font> </center> <% Else If Request.Form("enviado") = "sim" Then if para = "" Then %> <p> <font class="text-header">Preencha o cadastro corretamente!<BR>Campo <b>Para</b> em branco<BR><a href="cadastrar.asp">Voltar</a></font> <% ELse if assunto = "" Then %> <font class="text-header">Preencha o cadastro corretamente!<BR>Campo <b>Assunto</b> em branco<BR><a href="cadastrar.asp">Voltar</a></font> <% Else if mensagem = "" Then %> <font class="text-header">Preencha o cadastro corretamente!<BR>Campo <b>Memsagrm</b> em branco<BR><a href="cadastrar.asp">Voltar</a></font> <% ELse DB.Execute(" Insert into mural (de,bairro,estado,login,para,assunto,mensagem) VALUES ('"&de&"','"&Session("bairro")&"','"&Session("estado")&"','"&Session("login")&"','"&para&"','"&assunto&"','"&mensagem&"')") End IF End IF End IF Else %> <form method="POST" action="formulario_mural.asp"> <p align="center"> <% de = Session("nome") &" - "& Session("sobrenome") %> <%=Session("nome")%> <input type="hidden" name="enviado" value="sim"><font class="text-header">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Para : <input type="text" name="para" size="25" class="frm"><br><br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Assunto : <input type="text" name="assunto" size="25" class="frm"><br><br><br> Menssagem :<br> </font><textarea name="mensagem" cols="65" rows="10" class="frm"></textarea> <table> </table> <br><br> <center> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="submit" value="Cadastrar" class="frm"> </center> </form> </body> <% End IF END IF %>

erro não da , so não ta inserindo no bd . A variavel de não tem nada .

ei gente , não ta inserindo no bd , porque ? não ta inserindo só a variavel de . <% de = Session("nome") + "&nbsp;&nbsp;"&Session("sobrenome") %> DB.Execute(" Insert into mural (de,bairro,estado,login,para,assunto,mensagem) VALUES ('"&de&"','"&Session("bairro")&"','"&Session("estado")&"','"&Session("login")&"','"&para&"','"&assunto&"','"&mensagem&"')")

Como eu faço para autodimencionar um td , sem depender da quantidade de caracters da menssagem ?

deu certo mano , valeu mesmo so podia ser vc para consertar meu codigo . Valeu , pode fechar a conta e passar a regua , rssssss

o id esta pegando certinho , mas na hora de entra no if da acao do link ele da pau na linha do update .

o codigo é grande , mas vou passa-lo todo . <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("bd.mdb") Conn.open Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. SQL = "select * from usuarios" RS.Open SQL,Conn,3,3 IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 %> <% While intrec < RS.PageSize and not RS.EOF %> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center"> <tr> <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="12"> <p align="center"> &nbsp;<img src="=RS(" width=32 height=32 align="left" icon").gif" ></td> <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b>&nbsp;Nome:&nbsp;<%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b>&nbsp;Login: &nbsp;<%=RS("login")%></b></font></td> </tr> <tr> <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Email:&nbsp; <%=RS("email")%></b></font></td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Banido:&nbsp;<%=RS("banido")%> </b></font> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Tipo:&nbsp;<%=RS("tipo")%> </b></font> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> [B] <font face="Verdana" size="1" class="TD"><b>&nbsp;Mudar o Tipo:&nbsp;<a href="admin.asp?acao=Adiministrador&id=<%=RS("id") %>"> Admin </a> | <a href="admin.asp?acao=Moderador&id=<%=RS("id") %>"> Moderador </a> | <a href="admin.asp?acao=Usuario&id=<%=RS("id") %>"> Estagiario </a><br> [/B] </b></font> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b>&nbsp;Banir ou Desbanir:&nbsp; </b></font> </td> </tr> <% if Request.QueryString("acao") = "Adiministrador" then Conn.Execute("UPDATE usuarios SET tipo = 'Adiministrador' WHERE id = "&id&" ") Response.write" Tipo de usuario modificado para Adiministrador" End IF %> </table> <p align="center"> <br> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a>&nbsp;&nbsp;&nbsp; <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD">&nbsp;&nbsp;&nbsp;&nbsp; Próxima </a> <% END IF %>

agora deu esse erro Microsoft JET Database Engine error '80040e14' Syntax error (missing operator) in query expression 'id ='.

o link é esse : <a href="admin.asp?acao=Adiministrador&id=<%=RS("id") %>"> Admin </a> ta dando erro nessa linha , DB.Execute("UPDATE usuarios SET tipo = 'Adiministrador' WHERE id = '"&id&"' ") Eu verifiquei , e o id esta passando o numero corretamente . o erro é o seguinte : Microsoft VBScript runtime error '800a01a8' Object required: '' /clanim/admin.asp, line 165

pode fechar , valeu gente

pode fechar

Uma duvida , está correto o que eu fiz abaixo , nessa parte <a href="admin.php?acao=adiministrador&id=<% consulta1("id") %>">Adiministrador</a> esta correta esta parte ? <% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("bd.mdb") DB.open constr DB2.open constr Set consulta1 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM usuarios" consulta1.Open strSQL,DB,3,1 %> <a href="admin.php?acao=adiministrador&id=<% consulta1("id") %>">Adiministrador</a>

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'session.abandon' /clanim/logout.asp, line 2 <% session.abandon("login")="" response.redirect "login.asp" %>

vou testar , valeu brother pela dica de desbilitar esse treco .

eu não consigo ver , entra no link e veja , eu coloquei para ver os erros de script , mas não apareceu nada , apareceu erro 500 .

visitem o site : http://n.domaindlx.com/clanim/cadastrar.asp <% set DB = createobject("adodb.connection") constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("bd.mdb") DB.open constr nome = Replace(Request.Form("nome"), "'", "/") sobrenome = Replace(Request.Form("sobrenome"), "'", "/") bairro = Replace(Request.Form("bairro"), "'", "/") estado = Replace(Request.Form("estado"), "'", "/") email = Replace(Request.Form("email"), "'", "/") login = Replace(Request.Form("login"), "'", "/") senha = Replace(Request.Form("senha"), "'", "/") confirma_senha = Replace(Request.Form("confirma_senha"), "'", "/") If Request.Form("enviado") = "sim" Then if nome = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>nome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" ELse if sobrenome = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>sobrenome</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" Else if bairro = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>bairro</b> em branco<BR><a href=cadastrar.asp>Voltar</a>" ELse if estado = "" Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>estado</b> em Branco<BR><a href=cadastrar.asp>Voltar</a>" Else Set EM = Conexao.Execute("SELECT * FROM usuarios WHERE email='"&email&"'") If not em.EOF Then Response.Write "Este <b>Email</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>" Else Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE login='"&login&"'") If not rs.EOF Then Response.Write "Este <b>login</b> já esta cadastrado!<BR><a href=cadastrar.asp>Voltar</a>" Else if senha <> confirma_senha Then Response.Write "Preencha o cadastro corretamente!<BR>Campo <b>confirma senha</b> esta diferente do campo <b>senha</b><BR><a href=cadastrar.asp>Voltar</a>" Else DB.Execute(" Insert into usuarios (nome,sobrenome,bairro,estado,email,login,senha) VALUES ('"&nome&"','"&sobrenome&"','"&bairro&"','"&estado&"','"&email&"','"&login&"','"&senha&"')") End IF End IF End IF End IF End IF End IF End IF Else %> <html> <head> </head> <body> <form method="POST" action="cadastrar.asp"> <input type="hidden" name="enviado" value="sim"> Nome : <input type="text" name="nome" size="15"><br><br> Sobre Nome : <input type="text" name="sobrenome" size="15"><br><br> Bairro : <input type="text" name="bairro" size="15"><br><br> Estado : <input type="text" name="estado" size="15"><br><br> Email : <input type="text" name="email" size="15"><br><br> login : <input type="text" name="login" size="15"><br><br> senha : <input type="text" name="senha" size="15"><br><br> Confirma Senha : <input type="text" name="confirma_senha" size="15"><br><br> <input type="submit" value="Cadastrar"> </form> </body> </html> <% End IF %>

E AE GENTE , beleza , TENHO UMA DUVIDA SOBRE A QUARENTENA DO Ad-aware 6.0 E DO SPYBOOT , QUANDO ELES VAO PARA A QUARENTENA OS ARQUIVOS SÃO AUTOMATICAMENTE CURADOS OU ELE VAO FICAR PARA SEMPRE LÁ NA QUARENTENA ? E TENHO UMA DUVIDA TAMBEM SOBRE QUARENTENA DOS ANTIVIRUS , COMO FUNCIONA AS QUARENTENAS DOS ANTI VIRUS , SE AS QUARENTENAS DEPENDEM DOS SOFTWARE , COMO FUNCIONA A QUARENTENA DO AVAST ?

ei gente como eu faço para imprimir na tela quando verificar no php o usuario e senha no banco de dados ?