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