lotus 7.0 b/s开发下的代理问题

clinme

在表单页面上有1个文本域：mingxi和一个按钮，点击按钮执行如下的代理，但总是出错，请高手帮忙：

Sub Initialize
On Error Resume Next
Dim session As New notessession
Dim webdoc As notesdocument
Set webdoc = session.documentcontext
Dim doclink1 As String
doclink1 = |<table border="1">|+|<tr><td width="1"><a>test!</a></td><td width="1"><input type="checkbox" name="checkbox" value="checkbox" /></td><td width="20"><input type="text" name="textfield" /></td><td width="20"><input type="text" name="textfield2" /></td><td width="20"><select name="select"></select></td><td width="20"><input type="submit" name="Submit" value="提交" /></td></tr>| + |</table>|
'doclink1=|<table border="0">| + |</table>|
webdoc.mingxi = doclink1
End Sub