Paging på POP3 connector
Hej eksperter! Nogen der kan hjælpe med at lave paging på dette system?<html>
<body topmargin="0" leftmargin="0">
<%
server.scripttimeout = 500
set Mess = server.createObject("DypsoPop.Message")
Mess.Host = "*****************"
Mess.Login ="*************************"
Mess.password = "*********************"
Mess.DeleteOnReceive = false
if Mess.connect then
%>
<table cellspacing="0" width="100%">
<%
for i=0 to Mess.getNumberMessage
set msg = Mess.getMail(cint(i))
H = lcase(msg.Header)
H = replace(H,"<","")
H = replace(H,">","")
H = replace(H,":","")
H = split(H,vbcrlf)
for a=0 to ubound(H)
Remail = trim(H(a))
if (left(Remail,8)="reply-to" AND len(Remail)>8) then
reply = trim(right(Remail,(len(Remail)-8)))
elseif left(Remail,11)="return-path" AND len(Remail)>11 then
reply = trim(right(Remail,(len(Remail)-11)))
elseif (left(Remail,4)="from" AND len(Remail)>4) then
Remail = replace(Remail,"from ","")
strRemail = split(Remail," ")
reply = strRemail(1)
end if
next
fromname = msg.from
fromname = replace(fromname,"_"," ")
fromname = replace(fromname,"""","")
afromname = split(fromname,"=")
fromname = afromname(0)
bfromname = split(fromname,"<")
fromname = bfromname(0)
fromname = trim(fromname)
fromname = server.htmlencode(fromname)
dato = msg.Send_date
ugedag = lcase(left(dato,3))
if ugedag = "sun" then
ugedag = "søndag"
elseif ugedag = "mon" then
ugedag = "mandag"
elseif ugedag = "tue" then
ugedag = "tirsdag"
elseif ugedag = "wed" then
ugedag = "onsdag"
elseif ugedag = "thu" then
ugedag = "torsdag"
elseif ugedag = "fri" then
ugedag = "fredag"
elseif ugedag = "sat" then
ugedag = "lørdag"
else
ugedag = "ukendt ugedag"
end if
Gdag = split(dato,",")
dag = left(Gdag(1),3)
dag = trim(dag)
if len(dag)=1 then
maaned = trim(Gdag(1))
maaned = mid(maaned,3,3)
aar = trim(Gdag(1))
aar = mid(aar,7,4)
else
maaned = trim(Gdag(1))
maaned = mid(maaned,4,3)
aar = trim(Gdag(1))
aar = mid(aar,8,4)
end if
klok = trim(Gdag(1))
strklok = split(klok,"+")
klok = strklok(0)
klok = trim(klok)
klok = right(klok,8)
maaned = lcase(maaned)
if maaned = "jan" then
maaned = "januar"
elseif maaned = "feb" then
maaned = "februar"
elseif maaned = "mar" then
maaned = "marts"
elseif maaned = "apr" then
maaned = "april"
elseif maaned = "may" then
maaned = "maj"
elseif maaned = "jun" then
maaned = "juni"
elseif maaned = "jul" then
maaned = "juli"
elseif maaned = "aug" then
maaned = "august"
elseif maaned = "sep" then
maaned = "september"
elseif maaned = "oct" then
maaned = "oktober"
elseif maaned = "nov" then
maaned = "november"
elseif maaned = "dec" then
maaned = "december"
end if
mailsize = formatnumber((msg.Size/1024),0,0)
%>
<tr>
<td style="border-top: 2px solid #000000;">Date:</td>
<td style="border-top: 2px solid #000000;">From:</td>
<td style="border-top: 2px solid #000000;">Subject:</td>
<td style="border-top: 2px solid #000000;">Size:</td>
</tr>
<tr>
<td onclick="document.location=('view.asp?id=<%=cint(i)%>');"><%=ugedag%> den <%=dag%>. <%=maaned & " " & aar%>, kl. <%=klok%></td>
<td onclick="document.location=('view.asp?id=<%=cint(i)%>');"><%=reply%><br><%=fromname%></td>
<td onclick="document.location=('view.asp?id=<%=cint(i)%>');"><%=msg.subject%></td>
<td onclick="document.location=('view.asp?id=<%=cint(i)%>');"><%=mailsize%> kiloBytes</td>
</tr>
<%
reply = ""
next
%>
</table>
<%
else
response.write "no message or connection not possible!"
end if
set Mess = Nothing
%>
</body>
</html>
