I have a form with two buttons on it. My code for the first button works, but the code for the second button is doing nothing. I don't get any errors, and the page acts like it is doing the code, but when I actually look in the database nothing has happened. Here is the code. Any suggestions would be great.
<%
if request.Form("Update"
= "Submit" Then
dbrs2.open ("Select * From Timesheet where userID = '" & request.form("employee1"
& "' and month = '" & request.form("month1"
& "'" ), dbconn, 2, 3
dbrs2.movefirst
Dim x
x = 1
do while NOT dbrs2.EOF
dbrs2("date"
=request("date" & x)
dbrs2("hour"
=request.Form("hour" & x)
dbrs2("code"
=request("code" & x)
dbrs2("approval"
=request.Form("checkbox2"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
dbrs2("approvedby"
=request.Form("approvedby"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
dbrs2.update
dbrs2.movenext
x = x + 1
loop
else if request.Form("Approve"
= "Submit" Then
dbrs2.open ("Select * From Timesheet where userID = '" & request.form("employee1"
& "' and month = '" & request.form("month1"
& "'" ), dbconn, 2, 3
dbrs.open ("Select * From employeeinfo where userID = '" & request.form("employee"
& "'"
, dbconn, 2, 3
dbrs2.movefirst
x = 1
do while NOT dbrs2.EOF
dbrs2("date"
=request("date" & x)
dbrs2("hour"
=request.Form("hour" & x)
dbrs2("code"
=request("code" & x)
dbrs2("approval"
=request.Form("checkbox2"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
dbrs2("approvedby"
=request.Form("approvedby"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
dbrs2.update
dbrs2.movenext
x = x + 1
loop
Dim vacation
Dim overtime
Dim personal
vacation = (request.form("vacation"
.value - request.form("vacationtime"
.value)
overtime = (request.form("over_time"
.value * 0 + request.form("overtime"
.value)
personal = (request.form("personal"
.value - request.form("personaltime"
.value)
dbrs.movefirst
dbrs("vacationtime"
= vacation
dbrs("overtime"
= overtime
dbrs("personalTime"
= personal
dbrs.update
dbrs.movenext
End if
End if
%>
<%
if request.Form("Update"
dbrs2.open ("Select * From Timesheet where userID = '" & request.form("employee1"
dbrs2.movefirst
Dim x
x = 1
do while NOT dbrs2.EOF
dbrs2("date"
dbrs2("hour"
dbrs2("code"
dbrs2("approval"
dbrs2("approvedby"
dbrs2.update
dbrs2.movenext
x = x + 1
loop
else if request.Form("Approve"
dbrs2.open ("Select * From Timesheet where userID = '" & request.form("employee1"
dbrs.open ("Select * From employeeinfo where userID = '" & request.form("employee"
dbrs2.movefirst
x = 1
do while NOT dbrs2.EOF
dbrs2("date"
dbrs2("hour"
dbrs2("code"
dbrs2("approval"
dbrs2("approvedby"
dbrs2.update
dbrs2.movenext
x = x + 1
loop
Dim vacation
Dim overtime
Dim personal
vacation = (request.form("vacation"
overtime = (request.form("over_time"
personal = (request.form("personal"
dbrs.movefirst
dbrs("vacationtime"
dbrs("overtime"
dbrs("personalTime"
dbrs.update
dbrs.movenext
End if
End if
%>