Jesper: Du giver nogle fine svar - men skal man eksempelvis have fat i mail mv. - og lave nogle lidt mere dynamiske funktioner mht. bestående databaser, så er det rimeligt nemt med agenter, selvom man selvfølgeligt selv skal \"opbygge\" views mv.
En agent til at vise en oversigt kan ex. se således ud:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim doc As notesdocument
\'*** Grundlæggende objekter sættes................................
Set db = session.currentdatabase
Set view = db.getview(\"Adresser\\telefonliste\")
Set doc = view.getfirstdocument
Print |Content-type:text/vnd.wap.wml|
\' Print
Print |<?xml version=\"1.0\"?>|
Print |<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"
http://www.wapforum.org/DTD/wml_1.1.xml\">| Print |<wml>|
Print |<card id=\"card1\" title=\"Adresseoversigt\">|
Print |<p><a href=\"
http://www.bygdata.dk/ryser/sagkart.nsf/sager?openagent\">Sagskartoteket</a></p>| Do Until doc Is Nothing
Print |<p><a href=\"
http://www.bygdata.dk/ryser/adr_dok.nsf/WAPadresse?openagent=|+doc.universalid+|\">* | +doc.U_firmanavn(0)+\" \"+doc.u_att(0) +|</a></p>|
Set doc = view.getnextdocument(doc)
Loop
Print | </card>|
Print |</wml>|
End Sub
Således strukturerer man sine agenter, fuldstændigt som hvis man vil lave lidt ekstraordinær funktionalitet på et domino-website.
mvh.
JHR
PS: Ovenstående kan ses på:
http://www.bygdata.dk/ryser/adr_dok.nsf/WAPadresseoversigt?openagentEt andet eksempel er:
http://www.bygdata.dk/ryser/sagkart.nsf/sager?openagentJeg har desværre ikke lavet mailtilgang endnu - men det kommer...