-<%@ Control Language="vb" debug="true"%>\r
+<%@ Control Language="vb" %>\r
<%@ Import Namespace="System.Data" %>\r
<%@ Import Namespace="System.Data.OleDb" %>\r
<%@ Import Namespace="System.Data.SqlClient" %>\r
end function\r
\r
\r
-Public function OpenGridForm(oLiveGrid as object)\r
- OpenGridForm=false\r
+Public function OpenGrid(oLiveGrid as object, optional menuevent as string = "click")\r
+ OpenGrid=false\r
if not OpenApp() then\r
response.write("ERROR: " & LastErrorMsg)\r
response.end\r
exit function\r
end if\r
+ SetGridOptions(oLiveGrid,menuevent)\r
+ OpenGrid=true\r
+end function\r
+\r
+\r
+Public sub SetGridOptions(oLiveGrid as object, optional menuevent as string = "click")\r
oLiveGrid.dbConnection=Me.dbConnection\r
oLiveGrid.dbDialect=Me.dbDialect\r
\r
'-------------------------------\r
' set application-wide defaults\r
'-------------------------------\r
- 'oLiveGrid.dataProvider="ricoXMLquery.aspx"\r
oLiveGrid.highlightElem="menuRow"\r
- oLiveGrid.menuEvent="click"\r
+ oLiveGrid.menuEvent=menuevent\r
'Session.Timeout=60\r
+end sub\r
+\r
+\r
+Public function OpenGridForm(oLiveGrid as object)\r
+ OpenGridForm=false\r
+ if not OpenGrid(oLiveGrid) then exit function\r
\r
'-------------------------------\r
' set security rights\r