|
Hi
I am getting the given Error...........
Code is given below ---
Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/Application_Form/submitdetail.asp, line 16
<%
' Declaring variables
Dim formno, Courses, FName, MName,LName,email,rbSex,rbMarital,dob,mobileno,caste,corr_address1,corr_address2,corr_address3,corr_city ,corr_pin,corr_state,chk_perm,cnn1
SET objRS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
set cnn1 = SERVER.CREATEOBJECT("ADODB.CONNECTION")
cnn1.mode = 3
cnn1.Provider="Microsoft.Jet.OLEDB.4.0"
cnn1.Open(Server.Mappath("/Application_Form/application.mdb"))
sql = "INSERT INTO personal_info (formno,Courses,FName,MName,LName,email,rbSex,rbMarital,dob_month,dob_day,dob_year,mobileno,caste,corr_address1,corr_address2,corr_address3,corr_city,corr_pin,corr_state)Values('" & Request.Form("formno") & "','" & Request.Form("Courses") & "','" & Request.Form("FName") & "','" & Request.Form("MName") & "','" & Request.Form("LName") & "','" & Request.Form("email") & "','" & Request.Form("rbSex") & "', '" & Request.Form("rbMarital") & "','" & Request.Form("dob_month") & "','" & Request.Form("dob_day") & "','" & Request.Form("dob_year") & "','" & Request.Form("mobileno") & "','" & Request.Form("caste") & "','" & Request.Form("corr_address1") & "','" & Request.Form("corr_address2") & "','" & Request.Form("corr_address3") & "','" & Request.Form("corr_city") & "','" & Request.Form("corr_pin") & "','" & Request.Form("corr_state") & "')"
objRS.OPEN sql,cnn1
cnn1.Execute sql,recaffected
On Error resume Next
if err<>0 then
Response.Write("No update permissions!")
else
Response.Write("<h3>" & recaffected & " Record Added</h3>")
end if
cnn1.close
Set cnn1 = nothing
%>
|
|
|
|
|
|
|
|