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>
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>