Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1452
  • Last Modified:

error 'ASP 0115' Unexpected error /index.asp A trappable error occurred in an external object. The script cannot continue running.

HELP!!

error 'ASP 0115'
Unexpected error

/index.asp

A trappable error occurred in an external object. The script cannot continue running.

-----

My code is

-----

else if Page="EDAP" then

'Check the database to see if user exists and read in there password
'Initialise the strAccessDB variable with the name of the Access Database
strAccessDB = "Availability"

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
                  
'Database connection info and driver
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(strAccessDB)

'Set an active connection to the Connection object
adoCon.Open strCon

'Create a recordset object
Set rsDB = Server.CreateObject("ADODB.Recordset")
Set rsDBB = Server.CreateObject("ADODB.Recordset")

'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM CoreTrainers WHERE ID=" & request.form("CT")

rsDB.Open strSQL, strCon

MonthS=request.form("MonthS")
YearS=request.form("YearS")

strSQL = "SELECT * FROM Availability WHERE (ID=" & request.form("CT") & ") AND ([Availability Date],7)=" & MonthS & "/" & YearS & " ORDER BY [Availability Date]"

rsDBB.Open strSQL, strCon

response.write "<br><center><font face=Arial>Editing availability for " & rsDB("Forenames") & " " & rsDB("Surname") & " (XX/" & MonthS & "/" & YearS & ")"

do until rsDBB.EOF
DayS=left(rsDBB("Availability Date"), 2)
response.write DayS
rsDBB.MoveNext
loop

response.write "<center><form method=POST action=index.asp?Page=EDAPB><input type=hidden name=ID value=" & rsDB("ID") & ">"
response.write "Availability dates: <input type=text size=40 name=Avail value=""" & Avail & """><br><br>"
response.write "If Joe Bloggs is available between the 3rd and the 8th, and then available for the 1st/12th/16th, the information you would enter would be:<br><br>1, 3-8, 12, 16"
response.write "<br><br><input type=Submit value=""Edit Availability"">"

rsDB.Close
rsDBB.Close

0
Sir_Brock
Asked:
Sir_Brock
1 Solution
 
Programming_GalCommented:
Agree with ap_sajith
0
 
Sir_BrockAuthor Commented:
Well, would it help if I told you I'm on Windows ME using PWS?

Even if it isn't supposed to be on Windows ME, it does work.
0
 
ap_sajithCommented:
Have you given permissions on the mdb file for the IUSR Account?/
Cheers!!
0
 
vnvkCommented:
No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I will leave the following recommendation for this question in the Cleanup topic area:
    Accept: ap_sajith {http:#9678121}

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

vnvk
EE Cleanup Volunteer
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now