Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Error 438

Status
Not open for further replies.
haneen97

haneen97

Programmer
Joined
Dec 10, 2002
Messages
280
Location
US
I am trying to test a web site and got the error below.

********************************************************
Error 438:
There is an internal problem with this report. An action is being taken which isn't supported.
If you are receiving this error, it is often caused by missing or older version MDAC files. These can be obtained from Support or directly from Microsoft's web site.
***********************************************************

I downloaded the MDAC 2.7, restarted the PC, and still got the same error.

Any body encoutner this problem before?

Thanks


Mo
 
Sort by date Sort by votes
Please show us the code that causes the error.

Also, did this code work on another machine or is this the first box you've tested it on?
 
Upvote 0 Downvote
This is the page that I am trying to load. It was working through a server application that is developed in Delphi. I am trying to move it to the intranet to work as a web page.


<%@ Language="JavaScript" %>
<%try{
Response.Write ("<html>\r" +
" <head>\r" +
" <title>Active Patients by Department for Infographic</title>");
%>

<!--#include file="ServerFunctions.js"-->
<!--#include file="xStFInfographic.js"-->
<%
/* -------------------- Create text file ----------------------------- */

var TristateFalse = 0;
var ForWriting = 2;
myActiveXObject = new ActiveXObject("Scripting.FileSystemObject");
//myActiveXObject.CreateTextFile("T:\\infographic.txt");
//file = myActiveXObject.GetFile("T:\\infographic.txt");
myActiveXObject.CreateTextFile("C:\Inetpub\file = myActiveXObject.GetFile("C:\Inetpub\text = file.OpenAsTextStream(ForWriting, TristateFalse);
/* -------------------- End Create text file ------------------------- */

Response.Write("\r" +
" <link media='print' rel='stylesheet' type='text/css' href='RptPrint.css'>\r" +
" <link media='screen' rel='stylesheet' type='text/css' href='RptScreen.css'>\r" +
" </head>\r" +
" <body>\r");
/* -------------------- Variables that will be passed in. --------------- */

var ReportName = 'Infographic';
// var FromDate = Request('StartDate' );
//var ToDate = Request('EndDate' );
var FromDate = Request.Form('txtDateFrom' );
var ToDate = Request.Form('txtDateTo' );
//var DepList = Request('Departments');
var DepList = Request.Form('txtDepts');
var IsGUI = Request('GUI' ); var IsGUIYes = 1;
var IsScreen = Request('Screen' ); var IsScreenYes = 1;
var PageBreaks = Request('PageBreaks' );
var PgBrByFac = 0;
var PgBrByDiv = 1;
var PgBrByDep = 2;
/* -------------------- Calculated Variables. --------------------------- */

var ScreenPage = 0;
var RptDateRange = GetRptDateRange(FromDate, ToDate);
dbConnect();
row = Conn.Execute(GetRptDefaults);
var ChainName = row('FACNAME').Value;
row=Conn.Execute(GetMainSQL());
/* -------------------- Tracker Variables ------------------------------- */

var StoredFac = '';
var StoredDiv = '';
var StoredDep = '';
var StoredPat = '';
var StoredDay = '';
if (row.EOF)
{Response.Write(NoData());}
else
{
var ThisFac = row('KEY_FACILI').Value;
var ThisDiv = row('KEY_DIVISI').Value;
var ThisDep = row('KEY_DEPART').Value;
var ThisPat = row('KEY_PATIEN').Value;
var ThisDay = row('KEY_DATE' ).Value;
};
/* -------------------- Beginning of data loop -------------------------- */

while (!row.EOF)
{
if (IsNewFac() || IsNewDivWPgB() || IsNewDepWPgB() )
{
if (ShouldPrintHeadersAndFooters() )
{
Response.Write(

" <!-------------------- Report Header -------------------------------------->\r" +
" <table class='TopTable' cols='50' width='100%'>\r" +
" <tr>\r" +
" <td colspan='20' width=' 40%' class='RptSubtitleLeft' ></td>\r" +
" <td colspan='30' width=' 60%' class='RptSubtitleRight'></td>\r" +
" </tr>\r" +
" <tr>\r" +
" <td colspan='50' width='100%' class='RptTitle'>\r" +
" Active Patients by Department - Infographic\r" +
" </td>\r" +
" </tr>\r" +
" <tr>\r" +
" <td colspan='50' width='100%' class='RptTitleLine'>\r" +
" <HR Align='center' noshade color='black'>\r" +
" </td>\r" +
" </tr>\r" +
" <tr>\r" +
" <td colspan='20' width=' 40%' class='RptSubtitleLeft'>\r" +
" " + ChainName + "\r" +
" </td>\r" +
" <td colspan='30' width=' 60%' class='RptSubtitleRight'>\r" +
" " + RptDateRange + "\r" +
" </td>\r" +
" </tr>\r" +
" </table>\r");
};
Response.Write(
" <!-------------------- Body Table Setup ----------------------------------->\r" +
" <table class='TableWVerticalLines' cols='50' width='100%'\r" +
" cellspacing='0' cellpadding='0'>\r" +
" <tr class='RptFont4x6N'>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'></td> <td width='2%'></td>\r" +
" <td width='2%'></td> <td width='2%'>&nbsp;</td>\r" +
" </tr>\r" +
" <!-------------------- Facility Header ---------------------------------->\r" +
" <tr class='RptFont11x14B'>\r" +
" <td colspan=' 8' width='16%' align='right'>Facility:&nbsp;&nbsp;</td>\r" +
" <td colspan='42' width='84%'>\r" +
" " + row('FACILITY').Value + "\r" +
" </td>\r" +
" </tr>\r");
};

/* -------------------- Spacer ---------------------------------------- */

if (PageBreaks==PgBrByFac && !IsNewFac() && (IsNewDiv() || IsNewDep() ) )
{
Response.Write(
" <!------------------- Spacer -------------------------------------------->\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r");
};

if (PageBreaks==PgBrByDiv && !IsNewFac() && !IsNewDiv() && IsNewDep() )
{
Response.Write(
" <!------------------- Spacer -------------------------------------------->\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r");
};

/* -------------------- Division Header ------------------------------- */

if (IsNewFac() || IsNewDiv() || IsNewDepWPgB() )
{
Response.Write(
" <!-------------------- Division Header ---------------------------------->\r" +
" <tr class='RptFont11x14B'>\r" +
" <td colspan=' 8' width='16%' align='right'>Division:&nbsp;&nbsp;</td>\r" +
" <td colspan='42' width='84%'>\r" +
" " + getColumn('DIVISION') + "\r" +
" </td>\r" +
" </tr>\r");
};

/* -------------------- Department Header ----------------------------- */

var deptname = getColumn('DEPARTMENT');
if (deptname == "RADIOLOGY SERVICES") {
deptname = "COMPREHENSIVE BREAST CENTER"
}
if (IsNewFac() || IsNewDiv() || IsNewDep() )
{
Response.Write(
" <!-------------------- Department Header -------------------------------->\r" +
" <tr class='RptFont11x14B'>\r" +
" <td colspan=' 8' width='16%' align='right'>Department:&nbsp;&nbsp;</td>\r" +
" <td colspan='42' width='84%'>\r" +
" " + deptname + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r" +
" <!-------------------- Row Header --------------------------------------->\r" +
" <tr class='RptFont9x12BU'>\r" +
" <td colspan='50' width='100%'>&nbsp;</td>\r" +
" </tr>\r");
};

/* -------------------- Row Data -------------------------------------- */

var ApptDate = unEmlDate(getColumn('KEY_DATE')).format('MM/DD/YYYY');
var ApptTime = formatTime(makeTimeFromStr(getColumn('KEY_TIME')));
var pataddr = getColumn('pataddr1') + " " + getColumn('pataddr2');
if (getColumn('FRESOURCE') != "95 PET") {
if (getColumn('FRESOURCE') != "STEREOTACTIC") {
if (getColumn('PROCNAME') != "COLON/GASTRO OR WITH VIDEO SCOPE") {
Response.Write(
" <!-------------------- Row Data ----------------------------------------->\r" +
" <tr class='RptFont9x12N' valign='top'>\r" +
" <td colspan='6' width='12%'>\r" +
" " + getColumn('patfirstname') + "\r" +
" </td>\r" +
" <td colspan='44' width='88%'>\r" +
" " + getColumn('patlastname') + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont9x12N' valign='top'>\r" +
" <td colspan=' 50' width='100%'>\r" +
" " + pataddr + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont9x12N' valign='top'>\r" +
" <td colspan='15' width='30%'>\r" +
" " + getColumn('patcity' ) + "\r" +
" </td>\r" +
" <td colspan=' 5' width='10%'>\r" +
" " + getColumn('patstate' ) + "\r" +
" </td>\r" +
" <td colspan='30' width='60%'>\r" +
" " + getColumn('patzipcode' ) + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r" +
" <tr class='RptFont9x12N' valign='top'>\r" +
" <td colspan='6' width='12%'>\r" +
" " + ApptDate + "\r" +
" </td>\r" +
" <td colspan='9' width='18%'>\r" +
" " + ApptTime + "\r" +
" </td>\r" +
" <td colspan='25' width='50%'>\r" +
" " + deptname + "\r" +
" </td>\r" +
" <td colspan='25' width='50%'>\r" +
" " + getColumn('FRESOURCE') + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont9x12N' valign='top'>\r" +
" <td colspan='15' width='30%'>&nbsp;</td>\r" +
" <td colspan='35' width='70%'>\r" +
" " + getColumn('PROCNAME' ) + "\r" +
" </td>\r" +
" </tr>\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r" +
" <tr class='RptFont4x6N'><td colspan='50'>&nbsp;</td></tr>\r");
}
}
}
/* -------------------- Write text file ------------------------------ */

if (getColumn('FRESOURCE') != "95 PET") {
if (getColumn('FRESOURCE') != "STEREOTACTIC") {
if (getColumn('PROCNAME') != "COLON/GASTRO OR WITH VIDEO SCOPE") {

var namestr = '"' + getColumn('patfirstname') + ' ' + getColumn('patlastname') + '","';
var addrstr = pataddr + '","' + getColumn('patcity') + '","' + getColumn('patstate') + '","' + getColumn('patzipcode') + '","';
var datestr = ApptDate + ' ' + ApptTime + '","' + getColumn('FRESOURCE') + '","' + getColumn('PROCNAME') + '","' + deptname + '"';
var textstr = namestr + addrstr + datestr;
text.Write(textstr);
text.Write("\n");
}
}
}

/* -------------------- Update Tracker Variables ---------------------- */

UpdateStoredVariables();
row.MoveNext();
if (!row.EOF){UpdateThisVariables();};
/* -------------------- Page Footer ----------------------------------- */

if (row.EOF || IsNewFac() || IsNewDivWPgB() || IsNewDepWPgB() )
{
Response.Write(" </table>\r");

if (ShouldPrintHeadersAndFooters() )
{
ScreenPage++;
Response.Write(
" <!-------------------- Page Footer ---------------------------------------->\r" +
" <table class='RptPgFooter' cols='50' width='100'>\r" +
" <tr>\r" +
" <td colspan='37' width='74%'>\r" +
" Printed on: " + GetPrintDate() + "\r" +
" </td>\r" +
" <td colspan='13' width='26%' align='right'>\r" +
" Page " + ScreenPage + "\r" +
" </td>\r" +
" </tr>\r" +
" </table>&nbsp;\r");
}
else
{if (!row.EOF){Response.Write("<Page>\r");};};
};
};
};
catch(e)
{Response.Write(ReturnErrMsg(e.number & 0xFFFF));};
finally
{CleanUp();};
text.Close();

Response.Write(
" </body>\r" +
"</html>\r");
%>

Mo
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Krus1972
  • Locked
  • Question Question
msxml3.dll error '80072f7d' - An error occurred in the secure Channel support
Replies
7
Views
1K
Krus1972
Krus1972
leifoet
  • Locked
  • Question Question
Using date picker gives an error message, only at application start
Replies
1
Views
778
MarkSweetland
MarkSweetland
chikwendu
  • Locked
  • Question Question
OraOLEDB error '80040e4b'
Replies
1
Views
1K
xwb
xwb
evr72
  • Locked
  • Question Question
formatting error
Replies
3
Views
451
evr72
evr72
BunBo900
  • Locked
  • Question Question
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
Replies
1
Views
624
BunBo900
BunBo900

Part and Inventory Search

Sponsor

Back
Top