Trouble updating my database with an ASP page

ASP Free Forums Sponsor:

June 2nd, 2000, 04:25 PM

Steve Schofield

Contributing User

ASP Free God 20th Plane (14500 - 14999 posts)

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 22

Trouble updating my database with an ASP page

Originally posted by : David (branham@bright.net) I've been trying this for two weeks now without much success. It is supposed to update four values in my database. When I try to run the page, i get the error at the very bottom. I have no trouble selecting the values and getting them into the input boxes, its getting the second page to update the records. What am i doing wrong? I also have a second question. I'm using a cookie password system in conjunction with a table in my database. I set the username of the cookie=username . If you notice in my first page, the select page, I've had to physically add a value <WHERE tblSqlAdd.Callsign = Pallos>. I want to put my username value in there so that the record selected is that of the person loging in. Is that possible? and if so how? ############################################ <% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work If Session("UserLoggedIn") <> "true" Then Response.Redirect("login.asp") End If %> <% username=Request.Cookies("name")%> <% Dim MyConn, sSql, RS, Count, i Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=f:siteswww7
oosterdbadoandsqladd3.mdb") sSql = "SELECT tblSqlAdd.Email, tblSqlAdd.ICQ, tblSqlAdd.biohref, tblSqlAdd.pichref FROM tblSqlAdd WHERE tblSqlAdd.Callsign='Pallos' ORDER BY tblSqlAdd.ICQ DESC" Set RS = MyConn.Execute(sSql) %> <HTML> <HEAD> <TITLE>Saber Activity Meter</TITLE> </HEAD> <BODY BGCOLOR="#006699" background="saback.jpg" LINK="#000000" VLINK="#C0C0C0" ALINK="#000000 TEXT="#000000" topmargin="0"> <center> <table width="640" height="120" border="0" cellspacing="0" cellpadding="0" background="top.jpg"> <tr><td></td><TD valign="bottom"></td></TR></TABLE> <center>[<a href="http://www6.ewebcity.com/saber/matches.asp">Veiw Recent Matches</a>] [<a href="http://www.bright.net/~branham">Saber Wing Home</a>] [<a href="http://www.starfighters.com/boards/saber/">Saber Wing Message Board</a>] [<a href="mailto:branham@bright.net">Report Bugs</a>]</center> <TABLE ALIGN="center" height="173" WIDTH="400" BORDER="0" background="dback.jpg" BGCOLOR="#C0C0C0" CELLPADDING="0" CELLSPACING="0"><TR height="19" valign="top"><TD><IMG SRC="sabarntx.jpg"></TD></TR> <TR height="135" valign="center"> <TD> <center><%Response.Write(username)%>, welcome to the Player Update section of the Saber Database. You may change all of your information from this page, except your callsign. To change your callsign will mean that you must re-register from the begining. To change your data, deleate the old information out of the text box, and type in your new information. Then click the Update Stats button.</center> </TD> </TR> <TR valign="bottom" height="19"><TD><IMG SRC="sabar.jpg"></TD></TR></TABLE> <div align="center"> <table border=1> <tr> <% For i= 0 to RS.Fields.Count - 1 %> <th BGCOLOR="#C0C0C0"><% = RS(i).Name %></th> <% Next %> </tr> <% Count = 0 %> <% While Not RS.EOF %> <tr> <% for i= 0 to RS.Fields.Count - 1 %> <% If Count = 0 Then %> <td bgcolor="#c0c0c0"><div align="center"><form method="post" name="form1" action="updateplayerstats.asp"><input type="text" size="25" name="<% = RS(i).Name %>" value="<% = RS(i) %>"></div></td> <% Else %> <td bgcolor="#c0c0c0"><div align="center"><input type="text" size="25" name="<% = RS(i).Name %>" value="<% = RS(i) %>"></div></td> <% End If %> <% Next %> </tr> </table> <table border=1> <tr><td><input type="Submit" value="Update Player Stats" name"b1"></td></tr></table></form> <% Count = Count + 1 If Count = 2 Then Count = 0 RS.MoveNext WEND RS.Close Set RS = Nothing %> </table> </div> </BODY> </HTML> ############################################ <%@ Language="VBScript"%> <html> <head> <title>ASPfree.com: <% =strTitle %></title> </head> <body> <% strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/adoandsqladd3.mdb") dim conn dim rs dim strID Dim strEmail Dim strICQ Dim strbiohref Dim strpichref strEmail = Request.Form("Email") strICQ = Request.Form("ICQ") strbiohref = Request.Form("biohref") strpichref = Request.Form("pichref") set conn = server.createobject("adodb.connection") conn.open strconn set rs = server.createobject("adodb.recordset") rs.open "tblSqlAdd", conn, 2, 2 sql = "update tblSqlAdd set" sql = sql & "tblSqlAdd.Email = '" & strEmail & "'," sql = sql & "tblSqlAdd.ICQ = '" & strICQ & "'," sql = sql & "tblSqlAdd.biohref = '" & strbiohref & "' " sql = sql & "tblSqlAdd.pichref = '" & strpichref & "' " sql = sql & "where tblSqlAdd.Callsign = '" & Pallos & "'" rs.update %> Here are the results of what you've done! <table BORDER="0"> <tr><td>Email</td><td><% = rs("strEmail")%></td></TR><TR><td> ICQ</td><td><% = rs("strICQ")%></td></TR><TR><TD> Bio URL</td><td><% = rs("strbiohref")%></td></TR><TR> <TD>Pic URL</td><td><% = rs("strpichref")%></td></tr> </table> <% set rs= nothing set conn = nothing %> </body> </html> ############################################# Here are the results of what you've done! Email ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /rooster/updateplayerstats.asp, line 45

June 7th, 2000, 02:04 PM

Steve Schofield

Contributing User

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 22

Originally posted by : uday (kuday99@hotmail.com) Hello U written Update Sql statement, finally Ur updating recordset object. That's why Ur receiving that error. U just code MyConn.execute sql after Sql string That' it any problem contact me good luck ------------ David at 6/2/2000 1:25:42 PM I've been trying this for two weeks now without much success. It is supposed to update four values in my database. When I try to run the page, i get the error at the very bottom. I have no trouble selecting the values and getting them into the input boxes, its getting the second page to update the records. What am i doing wrong? I also have a second question. I'm using a cookie password system in conjunction with a table in my database. I set the username of the cookie=username . If you notice in my first page, the select page, I've had to physically add a value <WHERE tblSqlAdd.Callsign = Pallos>. I want to put my username value in there so that the record selected is that of the person loging in. Is that possible? and if so how? ############################################ <% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work If Session("UserLoggedIn") <> "true" Then Response.Redirect("login.asp") End If %> <% username=Request.Cookies("name")%> <% Dim MyConn, sSql, RS, Count, i Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=f:siteswww7
oosterdbadoandsqladd3.mdb") sSql = "SELECT tblSqlAdd.Email, tblSqlAdd.ICQ, tblSqlAdd.biohref, tblSqlAdd.pichref FROM tblSqlAdd WHERE tblSqlAdd.Callsign='Pallos' ORDER BY tblSqlAdd.ICQ DESC" Set RS = MyConn.Execute(sSql) %> <HTML> <HEAD> <TITLE>Saber Activity Meter</TITLE> </HEAD> <BODY BGCOLOR="#006699" background="saback.jpg" LINK="#000000" VLINK="#C0C0C0" ALINK="#000000 TEXT="#000000" topmargin="0"> <center> <table width="640" height="120" border="0" cellspacing="0" cellpadding="0" background="top.jpg"> <tr><td></td><TD valign="bottom"></td></TR></TABLE> <center>[<a href="http://www6.ewebcity.com/saber/matches.asp">Veiw Recent Matches</a>] [<a href="http://www.bright.net/~branham">Saber Wing Home</a>] [<a href="http://www.starfighters.com/boards/saber/">Saber Wing Message Board</a>] [<a href="mailto:branham@bright.net">Report Bugs</a>]</center> <TABLE ALIGN="center" height="173" WIDTH="400" BORDER="0" background="dback.jpg" BGCOLOR="#C0C0C0" CELLPADDING="0" CELLSPACING="0"><TR height="19" valign="top"><TD><IMG SRC="sabarntx.jpg"></TD></TR> <TR height="135" valign="center"> <TD> <center><%Response.Write(username)%>, welcome to the Player Update section of the Saber Database. You may change all of your information from this page, except your callsign. To change your callsign will mean that you must re-register from the begining. To change your data, deleate the old information out of the text box, and type in your new information. Then click the Update Stats button.</center> </TD> </TR> <TR valign="bottom" height="19"><TD><IMG SRC="sabar.jpg"></TD></TR></TABLE> <div align="center"> <table border=1> <tr> <% For i= 0 to RS.Fields.Count - 1 %> <th BGCOLOR="#C0C0C0"><% = RS(i).Name %></th> <% Next %> </tr> <% Count = 0 %> <% While Not RS.EOF %> <tr> <% for i= 0 to RS.Fields.Count - 1 %> <% If Count = 0 Then %> <td bgcolor="#c0c0c0"><div align="center"><form method="post" name="form1" action="updateplayerstats.asp"><input type="text" size="25" name="<% = RS(i).Name %>" value="<% = RS(i) %>"></div></td> <% Else %> <td bgcolor="#c0c0c0"><div align="center"><input type="text" size="25" name="<% = RS(i).Name %>" value="<% = RS(i) %>"></div></td> <% End If %> <% Next %> </tr> </table> <table border=1> <tr><td><input type="Submit" value="Update Player Stats" name"b1"></td></tr></table></form> <% Count = Count + 1 If Count = 2 Then Count = 0 RS.MoveNext WEND RS.Close Set RS = Nothing %> </table> </div> </BODY> </HTML> ############################################ <%@ Language="VBScript"%> <html> <head> <title>ASPfree.com: <% =strTitle %></title> </head> <body> <% strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/adoandsqladd3.mdb") dim conn dim rs dim strID Dim strEmail Dim strICQ Dim strbiohref Dim strpichref strEmail = Request.Form("Email") strICQ = Request.Form("ICQ") strbiohref = Request.Form("biohref") strpichref = Request.Form("pichref") set conn = server.createobject("adodb.connection") conn.open strconn set rs = server.createobject("adodb.recordset") rs.open "tblSqlAdd", conn, 2, 2 sql = "update tblSqlAdd set" sql = sql & "tblSqlAdd.Email = '" & strEmail & "'," sql = sql & "tblSqlAdd.ICQ = '" & strICQ & "'," sql = sql & "tblSqlAdd.biohref = '" & strbiohref & "' " sql = sql & "tblSqlAdd.pichref = '" & strpichref & "' " sql = sql & "where tblSqlAdd.Callsign = '" & Pallos & "'" rs.update %> Here are the results of what you've done! <table BORDER="0"> <tr><td>Email</td><td><% = rs("strEmail")%></td></TR><TR><td> ICQ</td><td><% = rs("strICQ")%></td></TR><TR><TD> Bio URL</td><td><% = rs("strbiohref")%></td></TR><TR> <TD>Pic URL</td><td><% = rs("strpichref")%></td></tr> </table> <% set rs= nothing set conn = nothing %> </body> </html> ############################################# Here are the results of what you've done! Email ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /rooster/updateplayerstats.asp, line 45

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: