hi
i m displaying list of records with edit and delete button.code is here
what i wanted to do is as user click on edit button then this coulmn "<TD align=""left"">"& rstSettings("SettingValue")&"</TD>" should display value in text box for edit purpose and edit button should display save button.as user click on save button then original column will display without text box and button will be edit button.Code:If(Not rstSettings.EOF) then While Not rstSettings.EOF lCounter = lCounter + 1 StrDisplay = StrDisplay & "<TR class=""Row" & lCounter Mod 2 & """>" StrDisplay = StrDisplay & "<TD align=""left"">"& rstSettings("ProtocolSettingNo")&"</TD>" StrDisplay = StrDisplay & "<TD align=""left"">"& rstSettings("DocumentTypeNo")&"</TD>" StrDisplay = StrDisplay & "<TD align=""left"">"& rstSettings("DocumentFormatNo")&"</TD>" StrDisplay = StrDisplay & "<TD align=""left"">"& rstSettings("PartnerID")&"</TD>" StrDisplay = StrDisplay & "<TD align=""left"">"& rstSettings("SettingValue")&"</TD>" StrDisplay = StrDisplay & "<TD align=""right"" colspan=""2""><input type=""button"" name='btnEdit_"& vlMemberID &"' value=""Edit"" onClick=""fnNextPage('"& vlMemberID &"','"& Server.URLEncode(rstSettings("ProtocolSettingNo")) &"');"">" StrDisplay = StrDisplay & "<input type=""button"" name='btnDelete_"& vlMemberID &"' value=""Delete"" onClick=""fnDelete('"& vlMemberID &"','"& rstSettings("ProtocolSettingNo") &"','"&rstSettings("DocumentTypeNo")&"','"&rstSettings("DocumentFormatNo")&"','"&rstSettings("PartnerID")&"','"&rstSettings("SettingValue")&"');""></TD>" StrDisplay = StrDisplay & "</TR>" rstSettings.MoveNext Wend Set objData = nothing Set rstSettings = nothing Else StrDisplay = StrDisplay & "<TR class=""Row1"" ><TD Colspan=7><font color=red><B>No Protocol Settings Found.<B></TD></TR>" End If
how to do this?



LinkBack URL
About LinkBacks
Reply With Quote

Bookmarks