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!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help - ADODB.Field (0x80020009)

Status
Not open for further replies.
AGNEW2PRG

AGNEW2PRG

Technical User
Joined
Aug 5, 2003
Messages
98
Location
AE
I have a page that populates a drop down form a DB table. which works. On clicking edit record i am trying to load the record values into the form2 below. I checked if the record ID is being passed via a seperate asp page. this works. however i am getting the error above, and cant work it out. and help would be much appreciated. Thankd


<!--#include virtual="/includes/connection.asp" -->
<%
'------------------------------------------------------------------------------
'--- Variables
'------------------------------------------------------------------------------

Dim RS,RS1,strSQL,strSQL1

Set RS = Server.CreateObject("ADODB.Recordset")
Set RS1 = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblclients.* FROM tblclients"
strSQL1 = "SELECT tblclients.* FROM tblclients WHERE ID=" & (recID)

RS.Open strSQL, conn
%>
<!--'------------------------------------------------------------------------------
'--- Start of Customer Select form
'---------------------------------------------------------------------------------->
<html>
<form name="selcust" class="fldheaders" action="tst_lst.asp" method="post">
<table align="center" class="tblbg" width="500" cellpadding="2" cellspacing="0">
<tr>
<td align="center">Select Customer to edit:&nbsp;&nbsp;<SELECT name="Customer">

<option selected>
<% Do While Not RS.EOF
Response.Write("<OPTION value=""" & RS("ID") & """>" & RS("company") & "</option>")
RS.MoveNext
Loop

recID = Request.Form("customer")

Sub edit_onclick
'strSQL1 = "SELECT tblclients.* FROM tblclients WHERE ID=" & (recID)
RS1.Open strSQL1, conn
End Sub

%>
</select>
<INPUT TYPE="BUTTON" name="edit" value="Edit Record">
</td>
</tr>
</table>
</form>
</html>
<!------------------------------------------------------------------------------
'--- End of Customer Select form
'------------------------------------------------------------------------------>



<!------------------------------------------------------------------------------
'--- Record Details Form
'--------------------------------------------------------------------------------->
<html>
<head>
<title>Add New Customer Record</title>
<style type="text/css">
<!------------------------------------------------------------------------------
'--- CSS Start
'------------------------------------------------------------------------------->

<!--

.headings {
font-family: "Arial";
font-size: 14pt;
font-weight: bold;
color: #000000;
}

.tblheaders {
font-family: "Verdana";
font-size: 9pt;
font-weight: bold;
color: #FFFFFF;
background-color: #000099;
}

.fldheaders {
font-family: "Verdana"; font-size: 9pt;
font-weight: bold;
color: #797979;
}

.flds {
font-family: "Verdana";
font-size: 9pt;
font-weight: normal;]
bordercolor-color: #ffffff;
}

.bgwhite {
background-color: #FFFFFF;
bordercolor-color: #ffffff;
}

.tblbg {
font-family: "Verdana";
font-size: 9pt;
font-weight: bold;
color: #797979;
background-color: #ffffff;
bordercolor-color: #ffffff;
border: 0;

}

.aligncenter {
align: center;
}

-->
<!------------------------------------------------------------------------------
'--- CSS End
'--------------------------------------------------------------------------------->
</style>

</head>

<form name="addcust" action="customer_add.asp" method="post">
<br>

<table bgcolor="F4F4F4" bordercolor="#ffffff" cols="2" border="1" cellpadding="2" cellspacing="0"align="center">

<tr>
<th class="tblheaders" COLSPAN=2 height="30">Update Record</th>
</tr>

<tr>
<td width="150" align="right" class="fldheaders">Company Name:</td>
<td width="350" align="left"><input name="company" type="text" size="50" class="flds" value="<%=RS("company")%>"></td>
</tr>

<tr>
<td width="150" align="right" class="fldheaders">Contact Name:</td>
<td width="350" align="left"><input name="contact" type="text" size="35" class="flds" value="<%=RS("contact")%>"></td>
</tr>

<tr>
<td width="150" align="right" class="fldheaders">Address:</td>
<td width="350" align="left"><input name="address" type="text" size="50" class="flds" value="<%=RS("address")%>"></td>
</tr>

<tr>
<td width="150" align="right" class="fldheaders">Tel No:</td>
<td width="350" align="left"><input name="phone" type="text" size="25" class="flds" value="<%=RS("phone")%>"></td>
</tr>

<tr>
<td width="150" align="right" class="fldheaders">Account Manager</td>
<td width="350" align="left"><input name="accmgr" type="text" size="35" class="flds" value="<%=RS("accmgr")%>"></td>
</tr>

<tr>
<td width="150" align="right" class="fldheaders" valign="hor">Comments</td>
<td width="350" align="left"><textarea name="notes" cols="40" rows="5" class="flds">value="<%=RS("notes")%>"></textarea></td>
</tr>


<tr>
<td width="150" class="tblbg"></td>
<td width="350" class="tblbg" align="left"><br><input name="cancel" type="reset" id="cancel" value="Cancel">
<input name="add" type="submit" id="add" value="Add Record">
</td>
</tr>

</table>

<br>

<hr size="1" width="550" align="center" color="#003399">

</form>
</html>

<!------------------------------------------------------------------------------
'--- End of Record Details Form
'--------------------------------------------------------------------------------->


<!------------------------------------------------------------------------------
'--- Closes Open Recordset
'--------------------------------------------------------------------------------->
<%
RS.Close
Set RS = Nothing
RS1.Close
Set RS1=Nothing
Set conn = Nothing
%>
 
Sort by date Sort by votes
you're crossing client side and server side scripting.

this
Sub edit_onclick
'strSQL1 = "SELECT tblclients.* FROM tblclients WHERE ID=" & (recID)
RS1.Open strSQL1, conn
End Sub

will not catch this
Code: 
<INPUT TYPE="BUTTON" name="edit" value="Edit Record">

submit a hidden form field so you know the edit value was clicked. Then in the same page or a different one validate prior to going on by that hidden field.

Check out your complete logic flow also. flow chart it and you might see the solution


General FAQ faq333-2924
5 steps to asking a question faq333-3811
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

RonMc
  • Locked
  • Question Question
classic asp - getting dropdown selection and reposting - help
Replies
1
Views
666
ChrisHirst
ChrisHirst
jd.ford1
  • Locked
  • Question Question
Need help with syntax
Replies
10
Views
660
jd.ford1
jd.ford1
mopacfan
  • Locked
  • Question Question
Help with retrieving image dimensions &amp; details
Replies
1
Views
337
Ed Mozley
Ed Mozley
victorvillatoro
  • Locked
  • Question Question
ADODB.Field (0x80020009) Either BOF or EOF is True, or the current rec
Replies
5
Views
270
victorvillatoro
victorvillatoro
PaulSc
  • Locked
  • Question Question
Some help please - asp/javascript security
Replies
2
Views
327
BigRed1212
BigRed1212

Part and Inventory Search

Sponsor

Back
Top