my update record to database thru asp is not runnin

hi
this saritha
i am facing a problem with the update record in asp ,
please help me out
my code is



<html>
<body><h2>Update Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "dsn=saritha;uid=scott;pwd=tiger"
company_name = Request.Form("company_name")
if Request.form("company_name")="" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM customer_details WHERE company_name='" & company_name & "'",conn
%>
<form method="post" action="custupdate1.asp">
<table>
<%for each x in rs.Fields.count-1%>
<tr>
<td><%=x.name%></td>
<td><input name="<%=x.name%>" value="<%=x.value%>"></td>
<%next%>
</tr>
</table>
<br /><br />
<input type="submit" value="Update record">
</form>
<%
else
sql="UPDATE customers SET "
sql=sql & "company_name='" & Request.Form("company_name") & "',"
sql=sql & "contact_person='" & Request.Form("contact_person") & "',"
sql=sql & "add1='" & Request.Form("add1") & "',"
sql=sql & "add2='" & Request.Form("add2") & "',"
sql=sql & "city='" & Request.Form("city") & "',"
sql=sql & "state='" & Request.Form("state") & "',"
sql=sql & "pincode='" & Request.Form("pincode") & "',"
sql=sql & "phone_no='" & Request.Form("phone_no") & "'"
sql=sql & " WHERE company_name='" & company_name & "'"
on error resume next
conn.Execute sql
if err<>0 then
response.write("No update permissions!")
response.write(err.description)
else
response.write("Record " & company_name & " was updated!")
end if
end if
conn.close
%></body>
</html>

 

 

 

 

Top