git.infodrom.org Git - infodrom/rico3/blob - examples/dotnet/ricoQuery.aspx

   1 <%@ Page Language="vb" Debug="true" validateRequest="false" %>\r
   2 <%@ Register TagPrefix="Rico" Assembly="Rico" NameSpace="Rico" %>\r
   3 <%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>\r
   4 <My:dbLib id='app' runat='server' />\r
   5 \r
   6 <script runat="server">\r
   7 \r
   8 Sub Page_Load(Sender As object, e As EventArgs)\r
   9   dim sql = session.contents(RespObj.RequestId)\r
  10   if IsNothing(sql) then\r
  11     RespObj.ErrorMsg="Your connection with the server was idle for too long and timed out. Please refresh this page and try again."\r
  12   elseif not app.OpenDB() then\r
  13     RespObj.ErrorMsg=app.LastErrorMsg\r
  14   else\r
  15     RespObj.filters=session.contents(RespObj.RequestId & ".filters")\r
  16     if IsReference(sql) and TypeName(sql)<>"String" then\r
  17       RespObj.oParse=sql.Clone()\r
  18     elseif ucase(left(sql,7))="SELECT " then\r
  19       RespObj.oParse=new sqlParse()\r
  20       RespObj.oParse.ParseSelect(sql)\r
  21     else\r
  22       ' stored procedure\r
  23       RespObj.sqlText=sql\r
  24     end if\r
  25     RespObj.dbConnection=app.dbConnection\r
  26     RespObj.dbDialect=app.dbDialect\r
  27     RespObj.sendDebugMsgs=true   ' true for development, false for production\r
  28     RespObj.LogSqlOnError=true   ' true for development, false for production\r
  29   end if\r
  30 End Sub\r
  31 \r
  32 </script>\r
  33 \r
  34 <Rico:Response id="RespObj" runat="server"/>\r