ASP 2 WAP ( ASP & WAP )
Jeg skal have en wap side, som kan spytte nedenstående asp ud. Og jeg kan bare ikke finde ud af det !ASP KODE:
<%
'Indstillinger
sUsername = "n/a"
sKode = "n/a"
Set oMailer = Server.CreateObject("POP3svg.Mailer")
oMailer.RemoteHost = "mail.netget.dk"
oMailer.UserName = sUsername
oMailer.Password = sKode
Response.write "<table border=0 cellspacing=3 style=border-collapse:collapse bordercolor=#111111 width=250 id=AutoNumber1 cellpadding=0><tr><td width=50><b>Nr.:</b></td><td width=224><b>Emne:</b></td></tr></table>"
oMailer.GetPopHeaders
aMails = oMailer.MessageInfo
if VarType(aMails) <> vbNull And IsEmpty(aMails) <> True then
iCount = UBound(aMails)
if iCount > 9 then
iCount = 10
end if
For i = 0 to iCount
sMsgID = Trim(aMails(i)(0))
sMsgSubject = aMails(i)(1)
Response.write "<table border=0 cellspacing=3 style=border-collapse:collapse bordercolor=#111111 width=250 id=AutoNumber1 cellpadding=0><tr><td width=50>"& i& "</td><td width=224>"& sMsgSubject & "</td></tr></table>"
next
end if
oMailer.ClosePop3
%>