Sub Initialize
	
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim dc  As NotesDocument
	Dim doc As NotesDocument
	Dim col As NotesDocumentCollection
	Dim rc As String
	Dim query As String
	Dim ajax As String
	Dim markup As String
	Dim status As String
	Dim option1 As String
	Dim option2 As String
	Dim option3 As String
	
	Set db = s.CurrentDatabase
	Set dc = s.DocumentContext
	rc = Join(dc.GetItemValue("request_content"), "")
	If(Len(rc) = 0) Then rc = Join(dc.GetItemValue("query_string"), "")
	
	Set col = db.AllDocuments
	
	Set doc = col.GetFirstDocument
	Do Until(doc Is Nothing)
		status = Join(doc.GetItemValue("status"), "")
		If(status = "") Then option1 = |<option selected value=""></option>|	Else	option1 = |<option value=""></option>|
		If(status = "Approved") Then option2 = |<option selected value="Approved">Approved</option>|	Else	option2 = |<option value="Approved">Approved</option>|
		If(status = "Rejected") Then option3 = |<option selected value="Rejected">Rejected</option>|	Else	option3 = |<option value="Rejected">Rejected</option>|
		
		markup = markup + |<tr>| +_
		|<td class="col0">| + Join(doc.GetItemValue("title"), "") + |</td>| +_
		|<td class="col1"><select name="status" id="status" onchange="moddoc(this.value, '| + Cstr(doc.UniversalID) + |');">| +_
		option1+ option2 + option3 +_
		|</td>| +_
		|<td class="col2">| + Join(doc.GetItemValue("body"), "") + |</td>| +_
		|</tr>|
		
		Set doc = col.GetNextDocument(doc)
	Loop
	
	Print |Content-type: text/plain|
	Print |<table><thead><tr>|+_
	|<td class="col0">Title</td>|+_
	|<td class="col1">Status</td>|+_
	|<td class="col2">Body</td>|+_
	|</tr></thead><tbody>| + markup + |</tbody></table>|
	
End Sub