I've upgraded to ASPRunner version 9
[size="3"]I have a simple input form which contains the use of "CustomeQuery" in the "Before Record Added" section.
IMPORTANT: I've made NO changes of any kind to the project and it works fine in version 8.1
Anyone else having issues with the CustomQuery function or have any ideas what might be going on?
Again, I've changed NOTHING in the project from 8.1 to 9.0. It still works fine in 8.1 (no issues), but I receive the error below in 9.0
Any help is appreciated.[/size]
The error I now receive is:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/MaL_User/include/dal.asp, line 196 [/b]
The code I'm using in the "Before Record Added" section is:
sql01 = "SELECT tbl_All_Active_Non_Terminated_Employees.LWS_PNL_NBR AS EmplID, tbl_All_Active_Non_Terminated_Employees.NAME, tbl_All_Active_Non_Terminated_Employees.HIRE_DT, tbl_All_Active_Non_Terminated_Employees.JOBTITLE, tbl_Locations.Location, tbl_Locations.Business_Name FROM tbl_All_Active_Non_Terminated_Employees LEFT JOIN tbl_Locations ON tbl_All_Active_Non_Terminated_Employees.LOCATION = tbl_Locations.Location WHERE (((tbl_All_Active_Non_Terminated_Employees.LWS_PNL_NBR)=" & values("EmplID") & "));"
set rs_EmployeeData = CustomQuery(sql01)[/b]
Dim NoEmplID
NoEmplID = year(Now()) & month(Now()) & day(Now()) & hour(Now()) & minute(Now()) & second(Now())
if rs_Employeedata.eof then
values("EmplID") = NoEmplID
values("Password") = NoEmplID
values("PS_Name") = values("Last_Name") & "," & values("First_Name")
values("Hire_Date") = ""
values("PS_JobTitle") = values("JobTitle")
values("Location") = "1999"
values("Location_Name") = "CSC SOUTH"
else
values("EmplID") = rs_Employeedata("EmplID")
values("Password") = NoEmplID
values("PS_Name") = rs_Employeedata("NAME")
values("Hire_Date") = rs_Employeedata("HIRE_DT")
values("PS_JobTitle") = rs_Employeedata("JOBTITLE")
values("Location") = rs_Employeedata("Location")
values("Location_Name") = rs_Employeedata("Business_Name")
end if[/font]
