Hallo zusammen!
Ich bin gerade dabei für unser Intranet eine Seite zu Gestalten. Da es keine "normale" Seite werden soll, mussten wir mittels Agenten die Seite erstellen:[/code]
HTML
Sub Initialize'Dimensionierung der Variablen
Dim cdoc As NotesDocument
Dim session As NotesSession
Dim query As String
Dim keyWord As String
Dim db As NotesDatabase
Dim configdoc As Notesdocument
Dim coll As NotesDocumentCollection
Dim pipe As String
Dim umfragedoc As NotesDocument
'Setzen der Variablen
Set session = New NotesSession
Set cdoc = session.DocumentContext
Set db = session.CurrentDatabase
' Paramter des Agenten-Aufrufs
query = cdoc.Query_String_Decoded(0)
keyword=word(query,"&",2)
'Generierung der URL
query="form="+Chr(34)+"msk_config_umfrage"+Chr(34)+" &
msk_config_umfrage_id="+Chr(34)+keyword+Chr(34)
Set coll = db.Search(query,Nothing,1)
Set configdoc = coll.GetFirstDocument
pipe=configdoc.msk_config_umfrage_pipe(0)
'Erstellen und Speichern des Dokumentes
Set umfragedoc=db.CreateDocument
umfragedoc.form="msk_umfrage"
umfragedoc.pipe=pipe
umfragedoc.ComputeWithForm False,False
Call umfragedoc.save (True,False)
'Zwischenseite erstellen, welche automatsich zur Umfrage weiterleitet
Print "content-type: text/html"
Print "<html>"
Print "<head>"
Print replacetochar34("<meta http-equiv='refresh' content='1;
Url="+geturl(db,umfragedoc)+"'>")
Print "</head>"
Print "<body>"
Print "<b>Sie werden zur Umfrage geleitet....</b>"
Print "</body>"
Print "</html>"
End Subgeturl, replacetochar34 und word (@Word in LotusScript nachgebildet) sind subs, die schon in anderen Datenbanken verwendet werden und somit keine Fehler enthalten sollten.
Zu meinem Problem. Die Seite wird im Browser korrekt dargestellt, selbst die berechneten Felder mittels @DBLookup werden richtig angezeigt. Aber Textfelder zur Eingabe von Daten, Radiobuttons und andere werden nicht
angezeigt.
Allmählich weiß ich nicht mehr weiter :cryclaus:
Gruß,
Phobos
