Dear All,
I have been surffering to update multiple records in a table/database. Below is my code, when executed, I got the message "Record Save" however, if I check my table "PaySelection" record never updates. Please help, I new to ASP codes.
==============================================
Dim rsPay , Pcode, Sessn, PersonID, gradeslevel
Pcode=Request.Form("PayCode")
grades = Request.Form("gradeslevel")
PersonID= Request.Form("PersonID")
Sessn = request.Form("Sessn")
if trim(gradeslevel) = "" or trim(gradeslevel) = "," then
response.Write "Select the grade level you want to updated" : response.End
end if
set myConn=Server.CreateObject("ADODB.Connection")
set rsPay = Server.CreateObject("ADODB.Recordset")
myConn.Open "Payroll"
'//'// get the individual payrollID
Dim NewID ,icnt
dim Newgrade, gcnt
NewID = split(PersonID,",")
For icnt = 0 To UBound(NewID) - 1
'Response.write NewID(icnt) : response.End
'// get the individual grades levels
Newgrade = split(gradeslevel,",")
For gcnt = 0+gcnt to Ubound(Newgrade) - 1
SQL = "UPDATE PaySelection SET GradesLevel = '"& Newgrade(gcnt) &"' WHERE PayCode = '"&Pcode&"' AND Session = '"&Sessn&"' AND PersonID = '"& NewID(icnt) &"' "
'response.Write sql : response.End
myConn.Execute sql
'response.write sql
gcnt = gcnt + 1
Exit for
Next
SQL = "UPDATE PaySelection SET GradesLevel = '"& Newgrade(gcnt) &"' WHERE PayCode = '"&Pcode&"' AND Session = '"&Sessn&"' AND PersonID = '"& NewID(icnt) &"' "
'response.Write sql : response.End
myConn.Execute sql
'response.write sql
Next
set rsPay = Nothing
set myConn = nothing
%>
<p align="center"><b><font face="Tahoma" color="#0000FF" size="2">Record Successfully updated !</font></b></p>
<p> </p>
<p align="center">
<input type="button" value=" << Back " onClick="javascript:window.navigate('cngpayroll.asp')">
</body>
</p>
</html>
Dan
I have been surffering to update multiple records in a table/database. Below is my code, when executed, I got the message "Record Save" however, if I check my table "PaySelection" record never updates. Please help, I new to ASP codes.
==============================================
Dim rsPay , Pcode, Sessn, PersonID, gradeslevel
Pcode=Request.Form("PayCode")
grades = Request.Form("gradeslevel")
PersonID= Request.Form("PersonID")
Sessn = request.Form("Sessn")
if trim(gradeslevel) = "" or trim(gradeslevel) = "," then
response.Write "Select the grade level you want to updated" : response.End
end if
set myConn=Server.CreateObject("ADODB.Connection")
set rsPay = Server.CreateObject("ADODB.Recordset")
myConn.Open "Payroll"
'//'// get the individual payrollID
Dim NewID ,icnt
dim Newgrade, gcnt
NewID = split(PersonID,",")
For icnt = 0 To UBound(NewID) - 1
'Response.write NewID(icnt) : response.End
'// get the individual grades levels
Newgrade = split(gradeslevel,",")
For gcnt = 0+gcnt to Ubound(Newgrade) - 1
SQL = "UPDATE PaySelection SET GradesLevel = '"& Newgrade(gcnt) &"' WHERE PayCode = '"&Pcode&"' AND Session = '"&Sessn&"' AND PersonID = '"& NewID(icnt) &"' "
'response.Write sql : response.End
myConn.Execute sql
'response.write sql
gcnt = gcnt + 1
Exit for
Next
SQL = "UPDATE PaySelection SET GradesLevel = '"& Newgrade(gcnt) &"' WHERE PayCode = '"&Pcode&"' AND Session = '"&Sessn&"' AND PersonID = '"& NewID(icnt) &"' "
'response.Write sql : response.End
myConn.Execute sql
'response.write sql
Next
set rsPay = Nothing
set myConn = nothing
%>
<p align="center"><b><font face="Tahoma" color="#0000FF" size="2">Record Successfully updated !</font></b></p>
<p> </p>
<p align="center">
<input type="button" value=" << Back " onClick="javascript:window.navigate('cngpayroll.asp')">
</body>
</p>
</html>
Dan