Gossamer Forum
Home : General : Databases and SQL :

Help on deleting.

Quote Reply
Help on deleting.
I got a problem deleting the row of info after i successfully insert it into my database.

This the code for it.

Thank You in Advance.



<html>
<head>



<title>updating a record</title></head>
<body>



<h2>Updating Record</h2>
<%


set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("Train.mdb"))


dim soStaffid

soStaffid = request.QueryString("so")


Staffid=Request.Form("Staffid")


if Request.form("Course_Title")="" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM reg WHERE Staffid = " & soStaffid, conn


%>

<form method="post" action="record_update_staff.asp">
<table>
<%for each x in rs.Fields%>
<tr>
<td><%=x.name%></td>
<td><input name="<%=x.name%>" value="<%=x.value%>"></td>
<%next%>
</tr>




</table>
<br/><br/>
<input type="submit" value="Add"><BR><BR><BR>
<td>click on back to reSelect</td>
</form>


<%
else


sql="INSERT INTO Info (Name,Designation,Course_Title,Start_Date,Days,Dept)"

sql=sql & " VALUES "
sql=sql &"('" & Request.Form("Name") &"',"
sql=sql &"'" & Request.Form("Designation") &"',"
sql=sql &"'" & Request.Form("Course_Title") &"',"
sql=sql &"'" & Request.Form("Start_Date") &"',"
sql=sql &"'" & Request.Form("Days") &"',"
sql=sql &"'" & Request.Form("Dept") &"')"


on error resume next
conn.Execute sql
if err<>0 then
response.write(sql &" "& err.description & "No update permissionS!")
else
Response.Write("Record Added")


sql="DELETE * from Reg where Staffid='"&soStaffid&"'"




%>
<br>
<br>
<br>
<a href="view_reg.asp" STYLE='text-decoration: none'>Back</a>
<%
end if
end if


%>

</body>
</html>

Quote Reply
Re: [gnehs] Help on deleting. In reply to
What error message do you receive?
========================================
Buh Bye!

Cheers,
Me
Quote Reply
Re: [Stealth] Help on deleting. In reply to
HEY Thank....by chance i solve it oredi.

Thank you very much