Thread: Suggestions - ChangedOn field

Hi BLaaaaaaaaaarche,

Ok, having some difficultly here. After our conversation yesterday, I've added a new field for the LastModifiedOn to display the last time the record has been updated. I'm trying to work with the code above to continue to give a checkbox on the screen so if i check the checkbox, only the ones checked should get updated.

I'm not getting error on the screen when I submit but it's not updating.

1) Should I have added a field to hold the checkbox value? I have this:

Code:

<td><input type="checkbox" name="ID_<%response.write(i)%>"></td>

Thanks again!

Ok, here is what I have so far....trying to get it to only update which lines are checked.

Code:

<%
If Request.Form("Submit") <> "" Then
	For Each Item In Request.Form
		If Left(Item, 2) = "ID" Then
			intID = Split(Item, "_")(1)
			strMfg1Row = Request.Form("Mfg1_" & intID)
			strMfg2Row = Request.Form("Mfg2_" & intID)
			strMfg3Row = Request.Form("Mfg3_" & intID)


			strSQL = "UPDATE tblList SET Mfg1 = '" & strMfg1Row & "', " & _
				"Mfg2 = '" & strMfg2Row & "', " & _
				"Mfg3 = '" & strMfg3Row & "' " & _
				"WHERE ItemID = " & intID
			response.write strSQL & "<br>"
		End If

	Next
End If
%>

<form method="post" action="">
<table>
<TR>
<th></th>
<th>Desc.</th>
<th>Material No.</th>
<th>Mfg1</th>
<th>Mfg2</th>
<th>Mfg3</th>
      </TR>
</CENTER>


<%
' scroll to starting record
i = 1


do while not rs.EOF
	if i > iStopRec then
		exit do
	end if
	
	i = i + 1
%>

<TR>      
<td>
	<input type=hidden value="<%= rs("ItemID") %>" name="ItemIDRow<%response.write(i)%>">
	</td>

     <td><input type="checkbox" name="ID_<%response.write(i)%>"></td>
<td><input type="text" name="Description<%response.write(i)%>" value="<%=rs("Description")%>"
</td>
<td><input type="text" name="Material<%response.write(i)%>" value="<%=rs("MaterialNum")%>"
</td>

<TD>
	<%'Check to see if they are alowed to Edit mfg1 fields
		If cint(Session("AccessLevel")) >=4 then 
			%><INPUT CLASS="clrBg" type="text" name="Mfg1Row<%=response.write(i)%>" size="9" maxlength="9" value="<%=rs("Mfg1")%>"</TD><%
		Else
			%><INPUT CLASS="clrBg" type="text" name="Mfg1Row<%=response.write(i)%>" size="9" maxlength="9" readonly value="<%=rs("Mfg1")%>"</TD>	<%
		End if
	%>
	</TD>
<TD>
	<%'Check to see if they are alowed to Edit mfg2 fields
		If cint(Session("AccessLevel")) >=4 then 
			%><INPUT CLASS="clrBg" type="text" name="Mfg2Row<%=response.write(i)%>" size="9" maxlength="9" value="<%=rs("Mfg2")%>"</TD><%
		Else
			%><INPUT CLASS="clrBg" type="text" name="Mfg2Row<%=response.write(i)%>" size="9" maxlength="9" readonly value="<%=rs("Mfg2")%>"</TD>	<%
		End if
	%>
	</TD>
<TD>
	<%'Check to see if they are alowed to Edit mfg3 fields
		If cint(Session("AccessLevel")) >=4 then 
			%><INPUT CLASS="clrBg" type="text" name="Mfg3Row<%=response.write(i)%>" size="9" maxlength="9" value="<%=rs("Mfg3")%>"</TD><%
		Else
			%><INPUT CLASS="clrBg" type="text" name="Mfg3Row<%=response.write(i)%>" size="9" maxlength="9" readonly value="<%=rs("Mfg3")%>"</TD>	<%
		End if
	%>
	</TD>

<%
	i = i + 1
  rs.MoveNext
loop

rs.Close

%>

No errors but it's not updating...my response.write strSQL outputs:

Code:

UPDATE tblList SET Mfg1 = , Mfg2 = , Mfg3 = WHERE ItemID = 2

Ok, Thank you BLaaaaaaaaaarche and JMurrayhead very much, I am able to update just the records that are checked now.

But since I am now doing the update on the same page I need some assistance.

I am use to having this button:

Code:

<SCRIPT>
document.write(new VMLBtn("Save","validate()",90));
</SCRIPT>

with this for the form, where my update statement on UpdateListFinish.asp:

Code:

<FORM name=frmSearch action="UpdateListFinish.asp" method="post" ONSUBMIT="return false;">

Code:

function validate(){
      if (getIsDataValid()) {
          frmSearch.submit();
      }
  }


  function getIsDataValid(){
       return true;
  }

But now since I'm using this to submit button:

Code:

<input type="submit" name="Submit" value="SAVE">

with this:

Code:

<form method="post" action="">

How can I make the below work with the line below work with my original button(VMLBtn)?

Code:

If Request.Form("submit") <> "" Then

disregard previous post. in order for me to use my pretty button, i've moved the update code back to the updateFinish.asp and it's working well so far.

Thanks again to both of your for your help with this!