problems due to insertion of data

[leonel]

I am using:
OS: window xp
server: IIS
Database:MS ACCESS
Browser: Internet Explorer

Please tell me what is wrong with this code:

<%
if request.form("addnow") <> "" then
dim conn, name, id, dob, dept, sql,rs
id = request.form("txtid")
name = request.form("txtname")
dob = request.form("txtdob")
dept = request.form("txtdept")

set conn = Server.createObject("ADODB.Connection")
conn.provider = "Microsoft.Jet.OLEDB.4.0"
conn.open "C:\Inetpub\wwwroot\ado\employeedatabase.mdb"


sql = "INSERT INTO Employee(id,name,dob,deptname)" & "VALUES("&id&",'"&name&"',#"&dob&"#,'"&dept&"' )"

on error resume next

conn.execute sql
if err.number<>0 then
if err.number = -2147217913 then
errormessage = "Date is wrong syntax, must be MM/DD/YYYY format:"
elseif err.number = -2147467259 then
errormessage = "Primary key already exist"
elseif err.number = -2147217904 then
errormessage = "Id must be a number!"
else
errormessage = "Unknown error ["& err.number &"] "& err.Description
end if
end if

conn.close
set conn = nothing

if errormessage = "" then
response.redirect "listing.asp"
response.end
end if
end if
%>

it give me "Primary key already exist"

thanks

leon

[dswethar]

I think you are trying to post an id that already exists.

Try to give an id that does not exist in the database.