kdwebsol
08-25-2005, 01:51 AM
Can anyone suggest a good tutorial on using mySQL with ASP. I have installed mySQL on a Windows 2003 test server and trying to update some records and I am having problems. I am not sure if it is with the install or my code. I can add records ok but updating is another story.
Any help would be greatly appreciated.
When trying to update a record I receive two different errors.
The first is:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/new.asp, line 52
The second is:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
Query-based update failed because the row to update could not be found.
/new.asp, line 53
This is my code:
<%
Conn2 = "DSN=1stworks;UID=root;PWD=rags1690;DATABASE=1stworks"
dim saved
dim cat, cat2, cat3
dim msg
cat = request.Form("Lname")
cat2 = request.Form("Fname")
cat3 = request.Form("Phone")
if request.Form("submit")<>"" then
call SaveRecord()
End if
if request.QueryString("id")<>"" then
call GetRecord()
End if
Sub SaveRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn2
if request.Form("id")="" then
rs.open "Select * From tblContacts",cn,2,3
rs.addnew
rs.fields("Lname") = cat
rs.fields("Fname") = cat2
rs.fields("Phone") = cat3
rs.update
msg = "Record is saved"
saved = true
else
rs.open "Select * From tblContacts Where ID=" & request.Form("ID"),cn,2,3
rs.fields("Lname") = cat
rs.fields("Fname") = cat2
rs.fields("Phone") = cat3
rs.update
msg = "Record is updated"
saved = true
End if
rs.close
cn.close
set rs = nothing
set cn = nothing
End Sub
Sub GetRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn2
rs.open "Select * From tblContacts Where ID=" & request.QueryString("id"),cn
if not rs.eof then
cat = rs.fields("Lname")
cat2 = rs.fields("Fname")
cat3 = rs.fields("Phone")
End If
rs.close
cn.close
set rs = nothing
set cn = nothing
saved = false
End Sub
%>
<html>
<head>
<title>Addnew</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<p><strong>Addnew </strong></p>
<p>
<%if not saved then%>
</p>
<form action="" method="post" name="form1">
<table width="56%" height="54" border="1" cellpadding="1" cellspacing="1" bordercolor="#000000">
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>Last Name</strong></td>
<td width="63%"><input name="Lname" type="text" id="Lname" value="<%=cat%>">
</td>
</tr>
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>First Name</strong></td>
<td width="63%"><input name="Fname" type="text" id="Fname" value="<%=cat2%>">
</td>
</tr>
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>Phone</strong></td>
<td width="63%"><input name="Phone" type="text" id="Phone" value="<%=cat3%>">
</td>
</tr>
<tr>
<td height="26"> </td>
<td><input type="submit" name="Submit" value="Save Record"> <input type="reset" name="Submit2" value="Reset Form">
</td>
</tr>
</table>
<input name="ID" type="hidden" id="ID" value="<%=request.querystring("ID")%>">
</form>
kdwebsol is online now
Any help would be greatly appreciated.
When trying to update a record I receive two different errors.
The first is:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
/new.asp, line 52
The second is:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
Query-based update failed because the row to update could not be found.
/new.asp, line 53
This is my code:
<%
Conn2 = "DSN=1stworks;UID=root;PWD=rags1690;DATABASE=1stworks"
dim saved
dim cat, cat2, cat3
dim msg
cat = request.Form("Lname")
cat2 = request.Form("Fname")
cat3 = request.Form("Phone")
if request.Form("submit")<>"" then
call SaveRecord()
End if
if request.QueryString("id")<>"" then
call GetRecord()
End if
Sub SaveRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn2
if request.Form("id")="" then
rs.open "Select * From tblContacts",cn,2,3
rs.addnew
rs.fields("Lname") = cat
rs.fields("Fname") = cat2
rs.fields("Phone") = cat3
rs.update
msg = "Record is saved"
saved = true
else
rs.open "Select * From tblContacts Where ID=" & request.Form("ID"),cn,2,3
rs.fields("Lname") = cat
rs.fields("Fname") = cat2
rs.fields("Phone") = cat3
rs.update
msg = "Record is updated"
saved = true
End if
rs.close
cn.close
set rs = nothing
set cn = nothing
End Sub
Sub GetRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn2
rs.open "Select * From tblContacts Where ID=" & request.QueryString("id"),cn
if not rs.eof then
cat = rs.fields("Lname")
cat2 = rs.fields("Fname")
cat3 = rs.fields("Phone")
End If
rs.close
cn.close
set rs = nothing
set cn = nothing
saved = false
End Sub
%>
<html>
<head>
<title>Addnew</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<p><strong>Addnew </strong></p>
<p>
<%if not saved then%>
</p>
<form action="" method="post" name="form1">
<table width="56%" height="54" border="1" cellpadding="1" cellspacing="1" bordercolor="#000000">
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>Last Name</strong></td>
<td width="63%"><input name="Lname" type="text" id="Lname" value="<%=cat%>">
</td>
</tr>
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>First Name</strong></td>
<td width="63%"><input name="Fname" type="text" id="Fname" value="<%=cat2%>">
</td>
</tr>
<tr>
<td width="37%" height="23" bgcolor="#CCCCCC"><strong>Phone</strong></td>
<td width="63%"><input name="Phone" type="text" id="Phone" value="<%=cat3%>">
</td>
</tr>
<tr>
<td height="26"> </td>
<td><input type="submit" name="Submit" value="Save Record"> <input type="reset" name="Submit2" value="Reset Form">
</td>
</tr>
</table>
<input name="ID" type="hidden" id="ID" value="<%=request.querystring("ID")%>">
</form>
kdwebsol is online now