Hi guys.
Ive got most of the asp pages for my site done now, Im just having trouble with when I try to edit an existing record.
Delete works fine (although of course it does its only RS.Delete!!)
The code below calls to iteslf, FIRSTIME allowing me to edit an existing record, and second time to actually recieve the posted data from the initial send and update the database, after droping past FIRSTIME on the second pass, going straight to EDIT and then RS.Update.
I recieve an IDref from the query string of the previous page, say the var = 44.
This is compared to a matching field in the database, in the SQL, (sql basically equates to pull a recordset out, when the value of the querystring IDref (44)matches the value 44 in the IDref field in the database.
The error I get is on FIRSTIME, where I try and display
the record contents in a form to give the user the oportunity to edit the fields.
i.e. "<%=RS("Picture"
%>" as the value of Pisture, as the first line in the from throws out the error:
-----------
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/recordsnorthwest/edit.asp, line 51
-----------
There would appear to be a problem with the record I am trying to edit, but I am absolutely flummoxed if I can work this out.
PLEASE, PLEASE, PLEASE, someone help me
THE CODE:
<!--#include File="adovbs.inc"-->
<%
dim conn
dim RS
dim strconn
dim sql
dim searchTerm
'set a local variable to my DSN-less connection String
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("recordsnorthwest.mdb"
'Create the Connection object
set conn = server.createobject("adodb.connection"
conn.open strconn
'get the searchterm from check.asp
searchTerm=Request.QueryString("IDref"
'Create the recordset object
set rs = server.createobject("adodb.recordset"
sql="SELECT * FROM stock WHERE stock.IDref LIKE '%"&searchTerm&"%'"
rs.open sql, conn, adOpenStatic, adLockOptimistic
%>
<html>
<head><title> edit.asp. Edit Contact Details </title>
<link href="css/main.css" rel="stylesheet" type="text/css">
</head>
<body>
<!-- ************************* FIRSTIME *************************** -->
<%
'If this is the first time into this page, (operation=FIRSTIME) display
'the record contents in a form to give the user the oportunity to
'edit the fields
'If this is the second time into this page, (operation=EDIT) then display
'the record contents before writing the amended fields back to the RecordSet.
If Request.QueryString("operation"="FIRSTIME" Then
%>
<div align="center"><img src="images/recordsnorthwest_logo.jpg" width="422" height="34"></div>
<h2> Edit Contact Details </h2>
<!-- Call same page but with the 'edit' operation -->
<form action="edit.asp?IDref=<%RS=("IDref"%>&operation=EDIT" method="post"></form>
<table width="650">
<tr><td></td><td></td><td><h4>Example</h4></td></tr>
<tr><td width="100">Picture</td><td> <input type="text" name="Picture" cols=40 value="<%=RS("Picture"%>"> </td><td><tr><td width="100">Artist</td><td> <input type="text" name="Artist" cols=40 value="<%=RS("Artist"%>"> </td><td>Asha</td></tr>
<tr><td width="100">Title</td><td> <input type="text" name="Title" cols=40 value="<%=RS("Title"%>"> </td><td>JJ Tribute</td></tr>
<tr><td width="100">Label</td><td> <input type="text" name="Label" cols=40 value="<%=RS("Label"%>"> </td><td>Beat Club</td></tr>
<tr><td width="100">Comment</td><td> <input type="text" name="Comment" cols=40 value="<%=RS("Comment"%>"> </td><td>Italian Screamer</td></tr>
<tr><td width="100">Category</td><td> <input type="text" name="Category" cols=40 value="<%=RS("Category"%>"> </td><td>Include any relevent categories; Italian Old Skool Piano House</td></tr>
<tr><td width="100">Year Made</td><td> <input type="text" name="YearMade" cols=40 value="<%=RS("YearMade"%>"> </td><td>1991</td></tr>
<tr><td width="100">Price</td><td> <input type="text" name="Price" cols=40 value="<%=RS("Price"%>"> </td><td>£20.00</td></tr>
<tr><td width="100">Mp3</td><td> <input type="text" name="Mp3" cols=40 value="<%=RS("Mp3"%>"> </td><td> </td></tr>
<tr><td width="100">Cost</td><td> <input type="text" name="Cost" cols=40 value="<%=RS("Cost"%>"> </td><td>£10.00</td></tr>
<tr><td width="100">Date Logged</td><td> <input type="text" name="DateLogged" cols=40 value="<%=RS("DateLogged"%>"> </td><td>02/01/03 </td></tr>
<tr><td width="100">In Stock</td><td> <input type="text" name="InStock" cols=40 value="<%=RS("InStock"%>"> </td><td>Yes</td></tr>
<tr><td width="100">Owner</td><td> <input type="text" name="Owner" cols=40 value="<%=RS("Owner"%>"> </td><td>DT or GB</td></tr>
<tr><td><input type="submit" value="Edit Contact"></td><td> </td></tr>
</table>
</form>
<br><br>
<!-- ***************************** EDIT **************************** -->
<%
ElseIf Request.QueryString("operation"="EDIT" Then
rs("Picture" = request.Form("Picture"
rs("Artist" = request.Form("Artist"
rs("Title" = request.Form("Title"
rs("Label" = request.Form("Label"
rs("Comment" = request.Form("Comment"
rs("Category" = request.Form("Category"
rs("YearMade" = request.Form("YearMade"
rs("Price" = request.Form("Price"
rs("Mp3" = request.Form("Mp3"
rs("Cost" = request.Form("Cost"
rs("DateLogged" = request.Form("DateLogged"
rs("InStock" = request.Form("InStock"
rs("Owner" = request.Form("Owner"
RS.Update
%>
<h2>Edit complete!</h2>
<br><br>
<table border=1 width=100%>
<tr>
<th>ID No.</th>
<th>Picture </th>
<th>Artist </th>
<th>Title </th>
<th>Label </th>
<th>Comment </th>
<th>Category </th>
<th>Year Made </th>
<th>Price </th>
<th>Mp3 </th>
<th>Cost </th>
<th>DateLogged </th>
<th>InStock </th>
</tr>
<tr align="center">
<td><%=RS("Owner"%><%=RS("IDref"%> </td>
<td><img src=<%=RS("Picture"%>></td>
<td> <%=RS("Artist"%> </td>
<td> <%=RS("Title"%> </td>
<td> <%=RS("Label"%> </td>
<td> <%=RS("Comment"%> </td>
<td> <%=RS("Category"%> </td>
<td> <%=RS("YearMade"%> </td>
<td> <%=RS("Price"%> </td>
<td><a href=<%=RS("Mp3"%>><img src=images/mp3_button.gif border=0></a></td>
<td> <%=RS("Cost"%> </td>
<td> <%=RS("DateLogged"%> </td>
<td> <%=RS("InStock"%> </td>
</tr>
</table>
<br><br>
Your amendment has been completed successfully.
<% End If %>
<!-- ***************************** FINISH *************************** -->
<!-- Link to go back to the start page. -->
<a href="default.asp">Return</a> back to menu
<br><br><br>
<a href="default.asp">Start page</a> <br>
<br><br>
</body>
</html>
Ive got most of the asp pages for my site done now, Im just having trouble with when I try to edit an existing record.
Delete works fine (although of course it does its only RS.Delete!!)
The code below calls to iteslf, FIRSTIME allowing me to edit an existing record, and second time to actually recieve the posted data from the initial send and update the database, after droping past FIRSTIME on the second pass, going straight to EDIT and then RS.Update.
I recieve an IDref from the query string of the previous page, say the var = 44.
This is compared to a matching field in the database, in the SQL, (sql basically equates to pull a recordset out, when the value of the querystring IDref (44)matches the value 44 in the IDref field in the database.
The error I get is on FIRSTIME, where I try and display
the record contents in a form to give the user the oportunity to edit the fields.
i.e. "<%=RS("Picture"
%>" as the value of Pisture, as the first line in the from throws out the error:-----------
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch
/recordsnorthwest/edit.asp, line 51
-----------
There would appear to be a problem with the record I am trying to edit, but I am absolutely flummoxed if I can work this out.
PLEASE, PLEASE, PLEASE, someone help me
THE CODE:
<!--#include File="adovbs.inc"-->
<%
dim conn
dim RS
dim strconn
dim sql
dim searchTerm
'set a local variable to my DSN-less connection String
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("recordsnorthwest.mdb"
'Create the Connection object
set conn = server.createobject("adodb.connection"
conn.open strconn
'get the searchterm from check.asp
searchTerm=Request.QueryString("IDref"
'Create the recordset object
set rs = server.createobject("adodb.recordset"
sql="SELECT * FROM stock WHERE stock.IDref LIKE '%"&searchTerm&"%'"
rs.open sql, conn, adOpenStatic, adLockOptimistic
%>
<html>
<head><title> edit.asp. Edit Contact Details </title>
<link href="css/main.css" rel="stylesheet" type="text/css">
</head>
<body>
<!-- ************************* FIRSTIME *************************** -->
<%
'If this is the first time into this page, (operation=FIRSTIME) display
'the record contents in a form to give the user the oportunity to
'edit the fields
'If this is the second time into this page, (operation=EDIT) then display
'the record contents before writing the amended fields back to the RecordSet.
If Request.QueryString("operation"
="FIRSTIME" Then %>
<div align="center"><img src="images/recordsnorthwest_logo.jpg" width="422" height="34"></div>
<h2> Edit Contact Details </h2>
<!-- Call same page but with the 'edit' operation -->
<form action="edit.asp?IDref=<%RS=("IDref"
%>&operation=EDIT" method="post"></form><table width="650">
<tr><td></td><td></td><td><h4>Example</h4></td></tr>
<tr><td width="100">Picture</td><td> <input type="text" name="Picture" cols=40 value="<%=RS("Picture"
%>"> </td><td><tr><td width="100">Artist</td><td> <input type="text" name="Artist" cols=40 value="<%=RS("Artist"%>"> </td><td>Asha</td></tr><tr><td width="100">Title</td><td> <input type="text" name="Title" cols=40 value="<%=RS("Title"
%>"> </td><td>JJ Tribute</td></tr><tr><td width="100">Label</td><td> <input type="text" name="Label" cols=40 value="<%=RS("Label"
%>"> </td><td>Beat Club</td></tr><tr><td width="100">Comment</td><td> <input type="text" name="Comment" cols=40 value="<%=RS("Comment"
%>"> </td><td>Italian Screamer</td></tr><tr><td width="100">Category</td><td> <input type="text" name="Category" cols=40 value="<%=RS("Category"
%>"> </td><td>Include any relevent categories; Italian Old Skool Piano House</td></tr><tr><td width="100">Year Made</td><td> <input type="text" name="YearMade" cols=40 value="<%=RS("YearMade"
%>"> </td><td>1991</td></tr><tr><td width="100">Price</td><td> <input type="text" name="Price" cols=40 value="<%=RS("Price"
%>"> </td><td>£20.00</td></tr><tr><td width="100">Mp3</td><td> <input type="text" name="Mp3" cols=40 value="<%=RS("Mp3"
%>"> </td><td> </td></tr><tr><td width="100">Cost</td><td> <input type="text" name="Cost" cols=40 value="<%=RS("Cost"
%>"> </td><td>£10.00</td></tr><tr><td width="100">Date Logged</td><td> <input type="text" name="DateLogged" cols=40 value="<%=RS("DateLogged"
%>"> </td><td>02/01/03 </td></tr><tr><td width="100">In Stock</td><td> <input type="text" name="InStock" cols=40 value="<%=RS("InStock"
%>"> </td><td>Yes</td></tr><tr><td width="100">Owner</td><td> <input type="text" name="Owner" cols=40 value="<%=RS("Owner"
%>"> </td><td>DT or GB</td></tr><tr><td><input type="submit" value="Edit Contact"></td><td> </td></tr>
</table>
</form>
<br><br>
<!-- ***************************** EDIT **************************** -->
<%
ElseIf Request.QueryString("operation"
="EDIT" Then rs("Picture"
= request.Form("Picture" rs("Artist"
= request.Form("Artist" rs("Title"
= request.Form("Title" rs("Label"
= request.Form("Label" rs("Comment"
= request.Form("Comment" rs("Category"
= request.Form("Category" rs("YearMade"
= request.Form("YearMade" rs("Price"
= request.Form("Price" rs("Mp3"
= request.Form("Mp3" rs("Cost"
= request.Form("Cost" rs("DateLogged"
= request.Form("DateLogged" rs("InStock"
= request.Form("InStock" rs("Owner"
= request.Form("Owner"RS.Update
%>
<h2>Edit complete!</h2>
<br><br>
<table border=1 width=100%>
<tr>
<th>ID No.</th>
<th>Picture </th>
<th>Artist </th>
<th>Title </th>
<th>Label </th>
<th>Comment </th>
<th>Category </th>
<th>Year Made </th>
<th>Price </th>
<th>Mp3 </th>
<th>Cost </th>
<th>DateLogged </th>
<th>InStock </th>
</tr>
<tr align="center">
<td><%=RS("Owner"
%><%=RS("IDref"%> </td><td><img src=<%=RS("Picture"
%>></td><td> <%=RS("Artist"
%> </td><td> <%=RS("Title"
%> </td><td> <%=RS("Label"
%> </td><td> <%=RS("Comment"
%> </td><td> <%=RS("Category"
%> </td><td> <%=RS("YearMade"
%> </td><td> <%=RS("Price"
%> </td><td><a href=<%=RS("Mp3"
%>><img src=images/mp3_button.gif border=0></a></td><td> <%=RS("Cost"
%> </td><td> <%=RS("DateLogged"
%> </td><td> <%=RS("InStock"
%> </td></tr>
</table>
<br><br>
Your amendment has been completed successfully.
<% End If %>
<!-- ***************************** FINISH *************************** -->
<!-- Link to go back to the start page. -->
<a href="default.asp">Return</a> back to menu
<br><br><br>
<a href="default.asp">Start page</a> <br>
<br><br>
</body>
</html>