Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tigger

Saber se esta lido ou nao

Por , em ASP Clássico

Recommended Posts

Tigger    0

Tigger
Postado

Seguinte.

 

Tenho uma lista de noticia cadastradas, (na verdade e um monte mesmo!!!)

gostaria de saber se tem como eu fazer com que ao clicar na notica ela fique com o STATUS de lida!

 

E quando eu voltar para a LISTAGEM_NOTICIA.ASP a noticia que eu acabei de ler fique abaixo das demais nao lidas.

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Faz tipo o Status no banco tipo numerico.EX:BANCO DE DADOS-------------------------RS("StatusLido") = 1RS("StatusNLido") = 0DEPOIS JOGA O STATUS NA SESSIONSession("Lido") = RS("StatusLido")Session("NLido") = RS("StatusNLido")---------------------------Pagina LerQuando ele entrar na pagina você demarca como lido tipoEntro na pagina<%Session("Lido")%>Conteudo da pagina.........Depois quando ele for para pagina LISTAGEM_NOTICIA.ASP você VERIFICA TIPOif Session("Lido") = 1 then<b>Noticia</b>elseif Session("NLido") = 0 thenNoticiasend ifÈ tipo isso!!!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Tigger    0

Tigger
Postado

beleza!! cara, consegui fazer. ^^

 

O meu arquivo esta da seguinte maneira.

 

Temos tres RadiosButtons com os seguintes parametros;

 

O Curriculun Lido | O Curriculuns Nao Lidos | O Todos

LISTAR <- BUTTON

 

Eu queria fazer com que o usuario nao precisasse clicar no botao LISTAR, e sim quando ele escolher entre os 3 Radios acima, automaticamente o FORM seje submetido de acordo com o parametro escolhido.

 

.... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

qual sua duvida ? ele esta gerando algum erro ?

você pode ter esse status no banco de dados, um campo do tipo flag (true ou false), caso true, será ara lido, e para mudar o status, você pode usar o SQL UPDATE apenas para mudar o status de lido para nao lido, exemplo:

 

sqlstatus = "SELECT * FROM Noticias WHERE lida = true ORDER BY noticia"

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Estou tentando fazer assim

 

Index.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<% registros = 10  
pagina = Request.QueryString("pagina")  
If pagina = "" Then  
pagina = 1  
End If  

'Efetuando a conexão com a base de dados criada -----------------------  
Set conexao = Server.CreateObject("AdoDb.Connection")  
conexao.provider="Microsoft.Jet.OLEDB.4.0"  
conexao.connectionstring=Server.Mappath("dados.mdb")  
conexao.open  

Set rs = Server.Createobject("ADODB.RECORDSET")  
set rs.ActiveConnection = Conexao  
rs.CursorType = 3  
rs.PageSize = registros  

sql = "SELECT * FROM Caixapostal ORDER BY id DESC"  
rs.Open sql  
If rs.EOF Then  
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"  

Else  
rs.AbsolutePage = pagina  
%> 
<%While Not rs.EOF AND x < rs.PageSize x = x + 1 %> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td width="1%"> </td>
   <td width="57%"><a href="Inbox.asp?id=<%=rs("id")%>"><span class="style1"><%=rs("user")%></span></a></td>
   <td width="3%">

     <% if RS("status") = "SL" then %> 
         <img src="on.png"> 
<% else %> 
<img src="off.png"> 
         <% end if %> </td>
   <td width="39%"><a href="Inbox.asp?id=<%=rs("id")%>"><span class="style1"><%=rs("assuntobreve")%></span></a></td>
 </tr>
</table>



<% rs.MoveNext 
Wend 

anterior = pagina - 1 
proxima = pagina + 1 
ultima = rs.PageCount 
primeira = 1 
ultm2 = FormatNumber(rs.PageCount - 1,0) 
If pagina <> 1 Then 
Response.Write "<b>« <a href=form_exclui.asp?pagina="&primeira&">Primeira Página</a></b> " 
End If 
If pagina > 1 AND pagina <> 2 Then 
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> " 
End If 
If pagina > 1 Then 
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&anterior&">"&anterior&"</a> ]</b> " 
End If 
Response.Write "<b>[ "&pagina&" ]</b> " 
If Not rs.EOF Then 
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&proxima&">"&proxima&"</a> ]</b> " 
End If 
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then 
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> " 
End If 
If Not rs.EOF Then 
Response.Write "<b><a href=form_exclui.asp?pagina="&ultima&">Última Página</a> »</b> " 
End If 

rs.Close 
Set rs = Nothing   
End If  
%>




</body>
</html>

 

 

Inbox.asp



<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {
font-size: 16px;
font-family: Verdana;
}
.style2 {
font-family: Verdana;
font-size: 12px;
}
.style4 {font-family: Verdana; font-size: 10px; }
-->
</style></head>

<body>
<%
id = Request.QueryString("id")

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados.mdb")
Conn.Open DSNtest

Set RS4 = Server.CreateObject("ADODB.Recordset")
sql = "Select * from caixapostal where status=" & request.querystring("id") & " and assunto='" & session("user") & "' "
RS4.Open SQL, conn, 3

If rs4.eof then 
Set RS3 = Server.CreateObject("ADODB.Recordset")
sql = "Insert into caixapostal (id, status) VALUES(" & request.querystring("id") & ", '" & session("user") & "') "
end if

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td width="7%"></td>
   <td width="93%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
       <td width="84%"><span class="style1"><%=rs4("user")%> deixou uma mensagem para você...</span></td>
       <td width="16%"> </td>
     </tr>
     <tr>
       <td><table width="917" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td height="68" background="file:///C|/Documents and Settings/leandro/Desktop/Sites/WEBSOWZZA/imagens/msg-01.png">

		<table width="917" border="0" cellspacing="0" cellpadding="0">
             <tr>
               <td width="6%" height="33"><div align="center" class="style2">De:</div></td>
               <td width="67%"><div align="left"><span class="style2"></span></div></td>
               <td width="22%"><div align="right"><span class="style4"> - </span></div></td>
               <td width="5%"> </td>
             </tr>
           </table></td>
         </tr>
         <tr>
           <td background="file:///C|/Documents and Settings/leandro/Desktop/Sites/WEBSOWZZA/imagens/msg-02.png"><table width="917" border="0" cellspacing="6" cellpadding="6">
               <tr>
                 <td><p><span class="style2"></span>
			  <br/>
                   <br/>
                   <br/>
                 <span class="style2"></span>
			  <br/>
			  <span class="style2"></span>
			  </td>
               </tr>
             </table></td>
         </tr>
         <tr>
           <td><img src="file:///C|/Documents and Settings/leandro/Desktop/Sites/WEBSOWZZA/imagens/msg-03.png" width="952" height="33"></td>
         </tr>
       </table></td>
       <td> </td>
     </tr>
     <tr>
       <td> </td>
       <td> </td>
     </tr>
   </table></td>
 </tr>
</table>
</body>
</html>

 

esta dando este erro !

 ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/email/Inbox.asp, line 0

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito