+++ /dev/null
-<%@ Page Language="vb" Debug="true" validateRequest="false" %>\r
-<%@ Register TagPrefix="Rico" Assembly="Rico" NameSpace="Rico" %>\r
-<%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>\r
-<My:dbLib id='app' runat='server' />\r
-\r
-<script runat="server">\r
-\r
-Sub Page_Load(Sender As object, e As EventArgs)\r
- dim sql = session.contents(RespObj.RequestId)\r
- if IsNothing(sql) then\r
- RespObj.ErrorMsg="Your connection with the server was idle for too long and timed out. Please refresh this page and try again."\r
- elseif not app.OpenDB() then\r
- RespObj.ErrorMsg=app.LastErrorMsg\r
- else\r
- RespObj.filters=session.contents(RespObj.RequestId & ".filters")\r
- if IsReference(sql) and TypeName(sql)<>"String" then\r
- RespObj.oParse=sql.Clone()\r
- elseif ucase(left(sql,7))="SELECT " then\r
- RespObj.oParse=new sqlParse()\r
- RespObj.oParse.ParseSelect(sql)\r
- else\r
- ' stored procedure\r
- RespObj.sqlText=sql\r
- end if\r
- RespObj.dbConnection=app.dbConnection\r
- RespObj.dbDialect=app.dbDialect\r
- RespObj.sendDebugMsgs=true ' true for development, false for production\r
- RespObj.LogSqlOnError=true ' true for development, false for production\r
- end if\r
-End Sub\r
-\r
-</script>\r
-\r
-<Rico:Response id="RespObj" runat="server"/>\r