Wrox Programmer Forums
Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP 3 Classic ASP Active Server Pages 3.0 > Classic ASP Professional
|
Classic ASP Professional For advanced coder questions in ASP 3. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Professional section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old September 23rd, 2014, 10:06 PM
Registered User
 
Join Date: Jul 2005
Posts: 6
Thanks: 0
Thanked 0 Times in 0 Posts
Default Javascript ADO function fails with out logging any errors

I have a large JavaScript function that is having problems. I added a try/catch block hoping it would report errors. However, no errors are reported. The function returns and empty string which means it did not work. It should return the key value of the inserted record. I have attempted to check for errors in the connection object also. An ODBC connection is being used. Below is the code. I understand the script will continue to run even if an ADO error occurs. I am open to ideas.

function addSelectedFile_Aspera(TransmittalKey, FileName, OriginalFilePath, DestinationPath, TransferType, UserKey) {
try { TransmittalKey = unescape(TransmittalKey); FileName = unescape(FileName); OriginalFilePath = unescape(OriginalFilePath); DestinationPath = unescape(DestinationPath); TransferType = unescape(TransferType); UserKey = unescape(UserKey);
var DataConn = Server.CreateObject("ADODB.Connection");
DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout");
DataConn.CommandTimeout = Application("DataConn_CommandTimeout");
DataConn.Open(Application("DataConn_ConnectionStri ng"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword"));
var RS = Server.CreateObject("ADODB.RecordSet");

var strSQL = "select OriginalFilePath from bms_FileTransfers where TransmittalKey=" + TransmittalKey;
strSQL = strSQL + " and OriginalFilePath='" + OriginalFilePath + "' and DateTransferred is null";

RS.Open(strSQL, DataConn);
if (!RS.EOF) {
RS.Close();
RS = null;
DataConn.Close();
DataConn = null;
return ("Already exists");
}
RS.Close();

var DateTransferred = TodaysDate();
var TimeTransferred = CurrentTime();

var cmdTemp = Server.CreateObject("ADODB.Command");
cmdTemp.ActiveConnection = DataConn;

var AddedFileKeyValue = generatePrimaryKey("bms_FileTransfers", "FileTransferKey");

var str = "";
str = "insert into bms_FileTransfers";
str = str + " (FileTransferKey,FileName,OriginalFilePath,SavedFi lePath";
str = str + ",DateTransferred,TimeTransferred,TransmittalKey,T ransferType)";
str = str + " values(";
str = str + AddedFileKeyValue;
str = str + "," + formatSQLData(FileName, "C");
str = str + "," + formatSQLData(OriginalFilePath, "C");
str = str + "," + formatSQLData(DestinationPath, "C");
str = str + "," + formatSQLData(DateTransferred, "C");
str = str + "," + formatSQLData(TimeTransferred, "C");
str = str + "," + TransmittalKey;
str = str + ",'" + TransferType + "')";

cmdTemp.CommandText = str;
cmdTemp.CommandType = 1;
cmdTemp.Execute();

// add to audit trail

var UserName = "";
var FirstName = "";
var LastName = "";
var Middle = "";

var RS = Server.CreateObject("ADODB.RecordSet");

strSQL = "select UserName,FirstName,Middle,LastName from bms_SysUsers where UserKey=" + UserKey;

RS.Open(strSQL, DataConn);
if (!RS.EOF) {
UserName = ConvertNullToBlank(RS(0));
FirstName = ConvertNullToBlank(RS(1));
Middle = ConvertNullToBlank(RS(2));
LastName = ConvertNullToBlank(RS(3));
}
RS.Close();

var UserFullName = FirstName + " " + Middle + " " + LastName;
if (Middle == "") UserFullName = FirstName + " " + LastName;

var ModuleName = "DataTransmittals";
var ReasonForChange = "File Uploaded to " + DestinationPath;
var AuditTrailKey;

strSQL = "select max(AuditTrailKey) from bms_DataAuditTrail";

RS.Open(strSQL, DataConn);
if (!RS.EOF) {
AuditTrailKey = parseFloat(ConvertNullToZero(RS(0))) + 1;
}
RS.Close();

strSQL = "insert into bms_DataAuditTrail (AuditTrailKey,ModuleName,RecordKeyValue,ColumnNam e";
strSQL = strSQL + ",ChangeDate,ChangeTime,ReasonForChange,UserKey,Us erID,UserFullName)";
strSQL = strSQL + " values(";

strSQL = strSQL + AuditTrailKey;
strSQL = strSQL + "," + formatSQLData(ModuleName, "C");
strSQL = strSQL + "," + TransmittalKey;
strSQL = strSQL + "," + formatSQLData("File Upload", "C");
strSQL = strSQL + "," + formatSQLData(DateTransferred, "C");
strSQL = strSQL + "," + formatSQLData(TimeTransferred, "C");
strSQL = strSQL + "," + formatSQLData(ReasonForChange, "C");
strSQL = strSQL + "," + UserKey;
strSQL = strSQL + "," + formatSQLData(UserName, "C");
strSQL = strSQL + "," + formatSQLData(UserFullName, "C");
strSQL = strSQL + ")";

cmdTemp.CommandText = strSQL;
cmdTemp.CommandType = 1;
cmdTemp.Execute;

RS = null;
cmdTemp = null;
var myErrorText = "";
var errLoop = Server.CreateObject("ADODB.Error");
if (DataConn.Errors.Count > 0) {
for (var i = 1; i < DataConn.Errors.Count; i++) {
errLoop = DataConn.Errors(i);
myErrorText += errLoop.Number;
myErrorText += errLoop.Description;
myErrorText += errLoop.Source;
myErrorText += errLoop.SQLState;
myErrorText += errLoop.NativeError;
}
}
if (myErrorText != "") {
var cmdTemp3 = Server.CreateObject("ADODB.Command");
var DataConn3 = Server.CreateObject("ADODB.Connection");
DataConn3.ConnectionTimeout = Application("DataConn_ConnectionTimeout");
DataConn3.CommandTimeout = Application("DataConn_CommandTimeout");
DataConn3.Open(Application("DataConn_ConnectionStr ing"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword"));
cmdTemp3.ActiveConnection = DataConn3;
var str3 = "";
str3 = "insert into bms_ErrorLog";
str3 = str3 + " ([EntryDate], ErrorMessage, CodeClassMethodName)";
str3 = str3 + " values(getdate()";
str3 = str3 + ", '" + TransmittalKey + "| " + myErrorText + "'";
str3 = str3 + ", 'DTFSvr.asp/addSelectedFile_Aspera')";

cmdTemp3.CommandText = str3;
cmdTemp3.CommandType = 1;
cmdTemp3.Execute();
cmdTemp3 = null;
DataConn3.Close();
DataConn3 = null;
}
DataConn.Close();

DataConn = null;

return (AddedFileKeyValue);
}
catch (err) {
var cmdTemp2 = Server.CreateObject("ADODB.Command");
var DataConn2 = Server.CreateObject("ADODB.Connection");
DataConn2.ConnectionTimeout = Application("DataConn_ConnectionTimeout");
DataConn2.CommandTimeout = Application("DataConn_CommandTimeout");
DataConn2.Open(Application("DataConn_ConnectionStr ing"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword"));
cmdTemp2.ActiveConnection = DataConn2;
var str2 = "";
str2 = "insert into bms_ErrorLog";
str2 = str2 + " ([EntryDate], ErrorMessage, CodeClassMethodName)";
str2 = str2 + " values(getdate()";
str2 = str2 + ", '" + TransmittalKey + "| " + err.number + "| " + err.description + "| " + err.message + "'";
str2 = str2 + ", 'DTFSvr.asp/addSelectedFile_Aspera')";

cmdTemp2.CommandText = str2;
cmdTemp2.CommandType = 1;
cmdTemp2.Execute();

cmdTemp2 = null;
DataConn2.Close();
DataConn2 = null;
return "";
}





Similar Threads
Thread Thread Starter Forum Replies Last Post
chapter 14: errors when logging in dragon_girl BOOK: Beginning PHP 5.3 9 January 12th, 2015 01:29 PM
Javascript and XPath when XPathEvaluator fails... krraleigh BOOK: Professional JavaScript for Web Developers 2nd edition ISBN: 9780470227800 2 December 10th, 2009 04:23 PM
Using ADO to query data in Excel sheet Fails with maaron Excel VBA 4 June 9th, 2005 01:56 PM
ADO UPDATE Errors rborloz Pro VB Databases 0 January 20th, 2005 04:20 AM
Intercept ADO Errors mike123abc Pro VB Databases 1 September 28th, 2004 07:33 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.