I am getting a timeout error on an update command for the database and have no clue why I am getting it. considering a page that has pretty much the same code works. Here is my code
dbrs3.open ("Select * From employeeinfo where loginID = '" & request.form("employee1"
& "'"
, dbconn, 2, 3
Dim vacation
Dim overtime
Dim personal
Dim medical
Dim volunteer
Dim extended
vacation = (request.form("vacation"
- request.form("vacationtime"
)
overtime = (request.form("over_time"
* 0 + request.form("overtime"
)
personal = (request.form("personal"
- request.form("personaltime"
)
volunteer = (request.form("volunteer"
- request.form("volunteertime"
)
medical = (request.form("medical"
- request.form("medicalleave"
)
if request.Form("medical"
<= "0" Then
extended = (request.form("extended"
- request.form("extendedtime"
)
end if
dbrs3.movefirst
do while NOT dbrs3.EOF
dbrs3("vacationtime"
= vacation
dbrs3("overtime"
= overtime
dbrs3("personalTime"
= personal
dbrs3("volunteertime"
= volunteer
dbrs3("medicalleave"
= medical
if request.Form("medical"
<= "0" Then
dbrs3("extendedtime"
= extended
End if
dbrs3.update ' Error on this line.
dbrs3.movenext
loop
dbrs3.open ("Select * From employeeinfo where loginID = '" & request.form("employee1"
Dim vacation
Dim overtime
Dim personal
Dim medical
Dim volunteer
Dim extended
vacation = (request.form("vacation"
overtime = (request.form("over_time"
personal = (request.form("personal"
volunteer = (request.form("volunteer"
medical = (request.form("medical"
if request.Form("medical"
extended = (request.form("extended"
end if
dbrs3.movefirst
do while NOT dbrs3.EOF
dbrs3("vacationtime"
dbrs3("overtime"
dbrs3("personalTime"
dbrs3("volunteertime"
dbrs3("medicalleave"
if request.Form("medical"
dbrs3("extendedtime"
End if
dbrs3.update ' Error on this line.
dbrs3.movenext
loop