Como Marcar Mensagem Com Lida?

[lezão 0]

Ola galera estou teimando num codigo q naun estou conseguindo fazer

encontrei este Codigo encontrado

 

e gostaria de fazer funcionar com este

<% 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/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
%>

 

 

teria como ?

[xanburzum 169]

Solicitando confirmação de leitura de email atraves do disposition-notification-to e return-receipt-to

<%
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.From = email 
objCDO.To = contact
'objCDO.CC = "xan@xanburzum.net"
objCDO.Subject = "" & subject   
objCDO.htmlBody = "Detalhes: " & detalhes & " <br>  Este e-mail de Vendas. "
'objCDO.CreateMHTMLBody ("http://teste.xan.net/email.asp?msg=1")
objCDO.fields("urn:schemas:mailheader:disposition-notification-to") = "admin@xan.net"
'Digite um e-mail válido
objCDO.fields("urn:schemas:mailheader:return-receipt-to") = "financeiro@xan.net"  
'Digite um e-mail válido
objCDO.DSNOptions = 14
objCDO.fields.update
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Nome ou IP do servidor SMTP remoto
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="XXX.teste.com"
'Server port
objCDO.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
objCDO.Configuration.Fields.Update


objCDO.send
Set objCDO = Nothing

%>

[lezão 0]

Ola xan boa noite!

 

Cara eu postei o meu codigo faltando é assim oh !

 

Default.asp

<% 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/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 %>

     <% if RS("status") = "SL" then %>
         <img src="../../imagens/carta1.png>
<% else %>
<img src="../../imagens/carta2.png">
         <% end if %>

<% 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 
%>

 

 

 

inbox.asp

 

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

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

Set RS= Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Caixapostal WHERE id =" & id
RS.Open SQL, conn, 3

If RS.EOF Then
Response.write ("Nenhum Registro")
end if

%>