Edit not passing values to SQL DB on submit

sugermama · Mar 27, 2002

I am stumped. I can't seem to figure out why the values are not being passed (except MACOM) upon submit. If anyone has a moment to look at my code and possibly assist, I would be greatly appreciative. I am sure I am making some boneheaded mistake that I can't seem to locate.

Thank you.

<%@ Language=VBScript %>



<%
Dim intRecordID, FDConference, strMSC, strLastName, strFirstName, strNickname, strMI
Dim strGradeRank, strMACOM, strOrganization, strTitle, strLocation, strWorkPhone
Dim strDSNPhone, strMobilePhone, strFaxNumber, strEmail, strSEmail, strYear1999
Dim strYear2000, strYear2002
Dim strFDTraining, strPreviousAssignments, strMiscellaneous, strFDOCourseGrad
Dim strSQLReturn, strSpecialtyCode
intRecordID = Request.QueryString("id&quot

%>

<% Select Case Request.ServerVariables("REQUEST_METHOD&quot

%>

<% Case "POST"

intRecordID = Request.Form("intRecordID&quot

strMSC = trim(Request.Form("strMSC&quot

)
strLastName = trim(Request.Form("strLastName&quot

)
strFirstName = trim(Request.Form("strFirstName&quot

)
strNickname = trim(Request.Form("strNickname&quot

)
strMI = trim(Request.Form("strMI&quot

)
strGradeRank = trim(Request.Form("strGradeRank&quot

)
strMACOM = trim(Request.Form("strMACOM&quot

)
strOrganization = trim(Request.Form("strOrganization&quot

)
strTitle = trim(Request.Form("strTitle&quot

)
strLocation = trim(Request.Form("strLocation&quot

)
strWorkPhone = trim(Request.Form("strWorkPhone&quot

)
strDSNPhone = trim(Request.Form("strDSNPhone&quot

)
strMobilePhone = trim(Request.Form("strMobilePhone&quot

)
strFaxNumber = trim(Request.Form("strFaxNumber&quot

)
strEmail = trim(Request.Form("strEmail&quot

)
strSEmail = trim(Request.Form("strSEmail&quot

)
strYear1999 = trim(Request.Form("strYear1999&quot

)
strYear2000 = trim(Request.Form("strYear2000&quot

)
strYear2002 = trim(Request.Form("strYear2002&quot

)
strFDTraining = trim(Request.Form("strFDTraining&quot

)
strPreviousAssignments = trim(Request.Form("strPreviousAssignments&quot

)
strMiscellaneous = trim(Request.Form("strMiscellaneous&quot

)
strSpecialtyCode = trim(Request.Form("strSpecialtyCode&quot

)
strFDOCourseGrad = trim(Request.Form("strFDOCourseGrad&quot

)

strSQLReturn = "UPDATE FDConference Set MSC = '" & strMSC & "', LastName = '" & strLastName & "', FirstName = '" & strFirstName & "', Nickname = '" & strNickname & "', MI = '" & strMI & "', GradeRank = '" & strGradeRank & "', MACOM = '" & strMACOM & "', Organization = '" & strOrganization & "', Title = '" & strTitle & "', Location = '" & strLocation & "', WorkPhone = '" & strWorkPhone & "', DSNPhone = '" & strDSNPhone & "', MobilePhone = '" & strMobilePhone & "', FaxNumber = '" & strFaxNumber & "', Email = '" & strEmail & "', SEmail = '" & strSEmail & "', Year1999 = '" & strYear1999 & "', Year2000 = '" & strYear2000 & "', Year2002 = '" & strYear2002 & "', FDTraining = '" & strFDTraining & "', PreviousAssignments = '" & strPreviousAssignments & "', Miscellaneous = '" & strMiscellaneous & "', SpecialtyCode = '" & strSpecialtyCode & "', FDOCourseGrad = '" & strFDOCourseGrad & "' where RecordID = '" & intRecordID & "'"

oRecordSet = oConnection.Execute(strSQLReturn)

'DBReleaseConnection()

%>

<br><h3>Thank you for submitting your changes. The database has been updated. To view your updates, go to <a href="fdorecords.asp">The public list of records</a> and select the ID number. This will take you to that particular record.</h2>

</td>
</tr>
</table>

<% Case Else

DBGetRecords("SELECT * FROM FDConference WHERE RecordID = " & intRecordID)
strMSC = oRecordSet(1)
strLastName = oRecordSet(2)
strFirstName = oRecordSet(3)
strNickname = oRecordSet(4)
strMI = oRecordSet(5)
strGradeRank = oRecordSet(6)
strMACOM = oRecordSet(7)
strOrganization = oRecordSet(8)
strTitle = oRecordSet(9)
strLocation = oRecordSet(10)
strWorkPhone = oRecordSet(11)
strDSNPhone = oRecordSet(12)
strMobilePhone = oRecordSet(13)
strFaxNumber = oRecordSet(14)
strEmail = oRecordSet(15)
strSEmail = oRecordSet(16)
strYear1999 = oRecordSet(18)

If strYear1999 = "True" Then
strYear1999 = "Yes"
Else
strYear1999 = "No"
End If

strYear2000 = oRecordSet(19)

If strYear2000 = "True" Then
strYear2000 = "Yes"
Else
strYear2000 = "No"
End If

strYear2002 = oRecordSet(20)

If strYear2002 = "True" Then
strYear2002 = "Yes"
Else
strYear2002 = "No"
End If

strFDTraining = oRecordSet(25)
strPreviousAssignments = oRecordSet(26)
strMiscellaneous = oRecordSet(27)
strSpecialtyCode = oRecordSet(28)
strFDOCourseGrad = oRecordSet(29)

If strFDOCourseGrad = "True" Then
strFDOCourseGrad = "Yes"
Else

strFDOCourseGrad = "No"

End If

%>

<TABLE BORDER=0 CELLPADDING=10>

<TD WIDTH="90%">

<p><center><b><font size="2">Foreign Disclosure Database Record Information</font></b>
<br><br>
<center>If you would like to add a picture to one of the records, please email it separate from this form in .jpg or .gif format to <a href="mailto:idev@dami.army.smil.mil">idev@dami.army.smil.mil</a>.<br> <b>** Please include the name of the person in the photo in your email, so that the photo will be attached to the correct record.</b></center><br><br></p>

<form id="EditDB" NAME="EditDB" ACTION="edit_database.asp" method="post"
METHOD="POST">

<table width="300px" border="0">

<tr>
<td class="field"><b>MACOM/CINC:</b>
</td>
<td><input name="strMACOM" type=text size=40 value="<%= strMACOM %>">
</td>
<td class="field"><b>MSC:</b>
</td>
<td><input name="MSC" type="text" size=40 value="<%= strMSC %>">
</td>
</tr>
<td class="field"><b>Location:</b>
</td>
<td><input name="Location" type="text" size=40 value="<%= strLocation %>">
</td>
<td class="field"><b>Organization:</b>
</td>
<td><input name="Organization" type="text" size=40 value="<%= strOrganization %>">
</tr>
<tr>
<td class="field"><b>LastName:</b>
</td>
<td><input type="text" name="LastName" size=40 value="<%= strLastName %>">
</td>
<td class="field"><b>First Name:</b>
</td>
<td><input name="FirstName" type=text size=40 value="<%= strFirstName %>">
</td>
</tr>
<tr>
<td class="field"><b>MI:</b>
</td>
<td><input name="MI" type=text size=4 maxlength=4 value="<%= strMI %>">
</td>
<td class="field"><b>Nickname:</b>
</td>
<td><input name="Nickname" type=text size=20 value="<%= strNickname %>">
</td>
</tr>
<tr>
<td class="field"><b>Title:</b>
</td>
<td><input type="text" name="Title" size=20 value="<%= strTitle %>">
</td>
<td class="field"><b>Grade/Rank:</b>
</td>
<td><input type="text" name="GradeRank" size=20 value="<%= strGradeRank %>">
</td>

</tr>
<tr>
<td class="field"><b>Email:</b>
</td>
<td><input type=text name="Email" type=text size=40 value="<%= strEmail %>">
</td>
<td class="field"><b>SIPRNET Email:</b>
</td>
<td><input type=text name="SEmail" type=text size=40 value="<%= strSEmail %>">
</td>
</tr>
<tr>
<td class="field"><b>Work Phone:</b>
</td>
<td>
<input type=text name="WPhone" maxlength=12 value="<%= strWorkPhone %>">
</td>
<td class="field"><b>DSN Phone:</b>
</td>
<td>
<input type=text name="DPhone" maxlength=12 value="<%= strDSNPhone %>">
</td>
</tr>
<tr>
<td class="field"><b>Fax:</b>
</td>
<td>
<input type=text name="FPhone" maxlength=12 value="<%= strFaxNumber %>">
</td>
<td class="field"><b>Mobile Phone:</b>
</td>
<td><input type="text" name="MPhone" maxlength=12 value="<%= strMobilePhone %>">
</td>
</tr>
<tr>
<td class="field"><b>FDO Course Grad:</b>
</td>
<td><Select NAME="strFDOGrad">
<option value="Choose One" <% If strFDOCourseGrad = "Choose One" then %> SELECTED<% end if %>>Choose One</option>
<option value="Yes" <% If strFDOCourseGrad = "1" then %> SELECTED<% end if %>>Yes</option>
<option value="No" <% If strFDOCourseGrad = "0" then %> SELECTED<% end if %>>No</option>
</select>
</td>
<td class="field" valign-="top"><b>FDO Training:</b>
</td>
<td><input type="text" name="FDOTng" size="40" maxlength="500" value="<%= strFDTraining %>">
</td>

</tr>
<td class="field" valign="top"><b>Attend FD Conference:</b>
</td>
<td><b>1999:</b> 
<input type="text" name="FDConf" size=5 value="<%= strYear1999 %>">
    <b>2000:</b> 
<input type="text" name="FDConf" size=5 value="<%= strYear2000 %>">
    <b>2002:</b> 
<input type="text" name="FDConf" size=5 value="<%= strYear2002 %>">
</td>
<td class="field"><b>Specialty Code:</b>
</td>
<td><input type="text" name="Code" size=40 value="<%= strSpecialtyCode %>">
</td>
</tr>
<tr>
<td class="field"><b>Previous Assignments:</b>
</td>
<td><input type="text" name="Previous" size=40 value="<%= strPreviousAssignments %>">
</td>
<td class="field"><b>Miscellaneous:</b>
</td>
<td><input type="text" name="Misc" size=40 value="<%= strMiscellaneous %>">
</td>

</tr>
</table>

<br>
<p><input TYPE="submit" VALUE="Save Changes"></p>

</form>
<br><br>
<p><a href="db_records.asp">Return to FDO Records List</a></p>
<% End Select %>

</td>
</table>

</td></tr></table>
</td>

RushiShroff · Mar 27, 2002

are u submitting it on the same page ??

If Yes then you should give condition at the start of Request paramete code that

If Request("GiveNameToButton&quot

="Save Changes" then

......................code

resonse.end
end if

Just explain from where values are passing.. Rushi Shroff Rushi@emqube.com
"Life is beautiful."

sugermama · Mar 27, 2002

That did not seem to work. One value is actually passing (MACOM). I am unsure where my error lies as far as the others are concerned.

Thank you for you assistance.

sugermama · Mar 27, 2002

Never mind. Fixed my own problem. Forgot to set the form names to the field names.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Edit not passing values to SQL DB on submit

sugermama

Technical User

RushiShroff

Programmer

sugermama

Technical User

sugermama

Technical User

Similar threads

Part and Inventory Search

Sponsor