<form method=”post” name=”frmTallyDetail” > <label style="HEIGHT: 20px; LEFT: 5px; POSITION: absolute; TOP: 215px; WIDTH: 150px" id=”lblComments”> Comments: </label> <input style="HEIGHT: 20px; LEFT: 90px; POSITION: absolute; TOP: 215px; WIDTH: 315px; FONT-SIZE: 9pt;" id=”txtComments1” name=”txtComments1” value="<%=trim(oRS("Comments1"))%>" readonly maxlength="<%=oRS.fields("Comments1").definedsize%>"> <INPUT id=”cmdSave” name=”cmdSave” type=”button” value=" Save " style="position:absolute; left:100; top:275;”> </form> <script Language=vbScript> Sub cmdSave_OnClick() frmLineDetail.Submit() location.href = "LCResponseE.asp?pid=" & sEditID End Sub </script>Data Save Form
<% Dim sComment1 sComment1 = Request.Form("txtComments1”) Dim projid projid = Request.QueryString("pid") Dim oTallyRS Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open "Select * from Tally where TallyPK = '" & projid & "'",strConn,3,3 oRS("Comment1") = sComment1 oRS.Update %>Tom