ADO Update question

[ceeleelewis]

Hello,

I have an Edit subroutine that I want to Update my table information when I submit this form. When I had this form just dynamically showing me the fields that I wanted to update, everything ran smoothly. Now that I want to display the fields in my form, I'm getting a nasty bug saying that two of my fields are empty.... when I do a response.write(objRS("RequesterName&quot), I can see that there is data in the field so my questions are...

Is there a reason why the command response.write(Request.Form("RequesterName&quot) is not returning any thing?

Also, should I be creating a read for update string using SQL?

As always, any direction is greatly appreciated....

see code below..


'==================================================================================================
' Subroutine - Edit Record
'==================================================================================================
Sub subEditRecord

'Dim i, intFieldCount

'Define SQL Query& Request.Querystring("Edit&quotcmdCntrgrp, Status, reqFormId
strSQL = "SELECT cmdCntrgrp, RequesterId, RequesterName, ManagerName, RequesterEmail, ManagersEmail, RequesterPhone, ManagersPhone, DeptName, BusinessUnit, SysAdmin, MakeModel, OtherMakeModel, ServerLoc, OtherServLocation, ServType, IPAdd, OSType, OtherOSType, OSVersion, AppsMon, NumCPU, BusReason, Status, DetailDescript, ProjectNumber, CAR,reqFormId FROM [CMCNTRreq] WHERE [reqFormId]='" & Request.Querystring("Edit&quot & "'"

'Open recordset passing the SQL to the connection object.
'Open as Static to be able to execute more Move commands in the recordset.
objRS.open strSQL, objConn, adOpenDynamic, adLockOptimistic

'Check for errors in objConn
subErrorCheck

'intFieldCount = objRS.Fields.Count

If Request.Form("Update&quot = 1 Then
response.write(Request.Form("RequesterName&quot)
'If Request.Form("RequesterName&quot = "" Then' or Request.Form("RequesterId&quot = ""
If Not IsEmpty(Request.Form)Then

'If Request.Form("RequesterName&quot = "" Then
%>
<p align=&quot;Center&quot;>
<font color=&quot;#FF0000&quot;>Error.</font><br><br> Requester Name(RequesterName) and Requester Id fields cannot be blank.<br><br>
<a href='#1' onClick='history.back()'>Back</a>
</p>
<%

Else

'Update the database
'objRS(&quot;reqFormId&quot = Trim(Request.Form(&quot;reqFormId&quot)
'objRS(&quot;reqDate&quot = Trim(Request.Form(&quot;reqDate&quot)
'objRS(&quot;RequesterId&quot = Trim(Request.Form(&quot;RequesterId&quot)
objRS(&quot;RequesterName&quot = (Request.Form(&quot;RequesterName&quot)
objRS(&quot;ManagerName&quot =(Request.Form(&quot;ManagerName&quot)
objRS(&quot;RequesterEmail&quot = Trim(Request.Form(&quot;RequesterEmail&quot)
objRS(&quot;RequesterPhone&quot = Trim(Request.Form(&quot;RequesterPhone&quot)
objRS(&quot;ManagersPhone&quot = Trim(Request.Form(&quot;ManagersPhone&quot)
objRS(&quot;DeptName&quot = Trim(Request.Form(&quot;DeptName&quot)
objRS(&quot;BusinessUnit&quot = Trim(Request.Form(&quot;BusinessUnit&quot)
objRS(&quot;SysAdmin&quot = Trim(Request.Form(&quot;SysAdmin&quot)
objRS(&quot;MakeModel&quot = Trim(Request.Form(&quot;MakeModel&quot)
objRS(&quot;OtherMakeModel&quot = Trim(Request.Form(&quot;OtherMakeModel&quot)
objRS(&quot;ServerLoc&quot = Trim(Request.Form(&quot;ServerLoc&quot)
objRS(&quot;OtherServLocation&quot = Trim(Request.Form(&quot;OtherServLocation&quot)
objRS(&quot;ServType&quot = Trim(Request.Form(&quot;ServType&quot)
objRS(&quot;IPAdd&quot = Trim(Request.Form(&quot;IPAdd&quot)
objRS(&quot;OSType&quot = Trim(Request.Form(&quot;OSType&quot)
objRS(&quot;OtherOSType&quot = Trim(Request.Form(&quot;OtherOSType&quot)
objRS(&quot;OSVersion&quot = Trim(Request.Form(&quot;OSVersion&quot)
objRS(&quot;AppsMon&quot = Trim(Request.Form(&quot;AppsMon&quot)
objRS(&quot;NumCPU&quot = Trim(Request.Form(&quot;NumCPU&quot)
objRS(&quot;BusReason&quot = Trim(Request.Form(&quot;BusReason&quot)
objRS(&quot;Status&quot = Trim(Request.Form(&quot;Status&quot)
objRS(&quot;cmdCntrgrp&quot = Trim(Request.Form(&quot;cmdCntrgrp&quot)
objRS(&quot;DetailDescript&quot = Trim(Request.Form(&quot;DetailDescript&quot)




If Trim(Request.Form(&quot;cmdCntrgrp&quot) = &quot;&quot; Then
objRS(&quot;cmdCntrgrp&quot = Replace(&quot;cmdCntrgrp&quot;,&quot; &quot;,&quot;n/a&quot
Else
objRS(&quot;cmdCntrgrp&quot = Trim(Request.Form(&quot;cmdCntrgrp&quot)
End If
objRS.Update

'Check for errors in objConn
subErrorCheck

%>
<p align=&quot;Center&quot;>
Your update has been processed succesfully.<br><br>
<a href=&quot;commandopenreqmngr.asp&quot;>Return to Open Requests</a>
</p>
<%

End If
Else

%>

<form method=&quot;post&quot; action=&quot;commandopenreqmngr.asp?Edit=<%= Request.Querystring(&quot;Edit&quot %>&quot;>

<table width=&quot;70%&quot; align=&quot;center&quot; cellspacing=&quot;0&quot; cellpadding=&quot;3&quot; border=&quot;0&quot;>
<tr>
<td align=&quot;center&quot; colspan=&quot;6&quot;><font size=&quot;3&quot;> <strong> Please edit the information below</strong></font></td>
</tr>


<tr>

<td width=&quot;20%&quot;><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b> Requester Name:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;RequesterName&quot%>&quot; /> </td>

<td width=&quot;25%&quot; align=&quot;right&quot;><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b> Requester Phone:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;RequesterPhone&quot%>&quot; /> </td>

</tr>




<tr>

<td>&nbsp; </td>

</tr>



<tr>
<td colspan=&quot;2&quot; align=&quot;right&quot; ><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b>Requester Email:</b></font></td>
<td align=&quot;center&quot; ><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;RequesterEmail&quot%>&quot; /> </td>

</tr>

<tr>

<td>&nbsp; </td>

</tr>

<tr>
<td width=&quot;20%&quot;><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b> Manager's Name:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ManagerName&quot%>&quot; /> </td>

<td width=&quot;25%&quot; align=&quot;right&quot;><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b>Manager's Phone:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ManagersPhone&quot%>&quot; /> </td>
</tr>

<tr>

<td>&nbsp; </td>

</tr>

<tr>
<td colspan=&quot;2&quot; align=&quot;right&quot;><font color=&quot;#FF0000&quot; size=&quot;2&quot;><b>Manager's Email:</b></font></td>
<td align=&quot;center&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ManagersEmail&quot%>&quot; /> </td>

</tr>

<tr>

<td>&nbsp; </td>

</tr>


<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td width=&quot;20%&quot;><font size=&quot;2&quot;><b> Department Name:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;DeptName&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Business Unit:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;BusinessUnit&quot%>&quot; /> </td>


</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Project Number:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ProjectNumber&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>C.A.R.:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;CAR&quot%>&quot; /> </td>
</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Current Status:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;Status&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Assign To:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;cmdCntrgrp&quot%>&quot; />

</tr>

<tr>
<td><font size=&quot;2&quot;><b>Business Reason:</b></font></td>
<td colspan=&quot;3&quot;><textarea name=&quot;Business Reason&quot; cols=&quot;10&quot; rows=&quot;3&quot;><%= objRS(&quot;BusReason&quot %></textarea></td> </td>
</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Make and Model:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;MakeModel&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Other Make and Model:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;OtherMakeModel&quot%>&quot; /> </td>


</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Sever Location:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ServerLoc&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Other Server Location:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;OtherServLocation&quot%>&quot; /> </td>



</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Type Of Server:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;ServType&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>IP Address:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;IPAdd&quot%>&quot; /> </td>


</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Type Of OS:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;OSType&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Other Type Of OS:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;OtherOSType&quot%>&quot; /> </td>

</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Version Of OS:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;OSVersion&quot%>&quot; /> </td>

<td width=&quot;25%&quot;><font size=&quot;2&quot;><b>Applications To Monitor/Report:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;AppsMon&quot%>&quot; /> </td>

</tr>

<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>Number Of CPUs:</b></font></td>
<td width=&quot;15%&quot;><input type=&quot;text&quot; value=&quot;<%= objRS(&quot;NumCPU&quot%>&quot; /> </td>

<td width=&quot;20%&quot;><font size=&quot;2&quot;><b>&nbsp;</b></font></td>
<td width=&quot;15%&quot;>&nbsp; </td>




</tr>

</tr>

</table>

<table width=&quot;70%&quot; align=&quot;center&quot; cellspacing=&quot;0&quot; cellpadding=&quot;3&quot; border=&quot;0&quot;>



<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td><font size=&quot;2&quot;><b>Command Center Log:</b></font></td>
<td colspan=&quot;2&quot;><textarea name=&quot;Any Other Requster Descriptions&quot; cols=&quot;35&quot; rows=&quot;5&quot;><%= objRS(&quot;DetailDescript&quot %></textarea></td>
<tr bordercolorlight=&quot;#FFFFFF&quot; bgcolor=&quot;#c0c0c0&quot;>
<td><font size=&quot;2&quot;><b>Requester Descriptions:</b></font></td>
<td colspan=&quot;2&quot;><textarea name=&quot;Any Other Requster Descriptions&quot; cols=&quot;35&quot; rows=&quot;5&quot;><%= objRS(&quot;DetailDescript&quot %></textarea></td>
</tr>
</tr>

<tr>

<td colspan=&quot;6&quot; align=&quot;center&quot;>
<a href='#1' onClick='history.back()'>Back</a>
</td>
</tr>

<tr>
<td colspan=&quot;6&quot; align=&quot;center&quot;>
<input type=&quot;hidden&quot; name=&quot;Update&quot; value=&quot;1&quot;>
<input type=&quot;submit&quot; value=&quot;submit&quot;>
</td>
</tr>



</table>
</form>



<%
End If

End Sub
%>