Insert Record Problem

Insert

[valmiki]

Hi all,

Please help me recording the insert query in my ASP page.

the code is given below

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->
<!-- #include virtual="/includes/adovbs.inc" -->
<%
Function SecurityEncode(strField)
SecurityEncode = Replace(strField, "'", "''")
End Function

Dim lDocNo, Ln, strSex, optMale, Val, NewVal, GENERATEKEYNO

DIM objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "Party", objConn, , adLockOptimistic, adCmdTable

optMale = Request.form("Sex")

If optMale = "Male" Then
strSex = "M"
Else
strSex = "F"
End If
dimsql
dim updateRS

ln = 0
lDocNo = 0
NewVal = 0
query1 = "select code from party where unqid = (select max(unqid) from party)"

'Response.Write(query1 & "<br>")

Set objRS = objConn.Execute(query1)

'objRS.Open query1, objConn, , adLockOptimistic, adCmdTable
'Response.Write(objRS("Code") & "<br>")

If objRS.EOF = False Then
Ln = Len(objRS(0))
lDocNo = Mid(objRS(0), 9, Ln)
NewVal = (lDocNo+1)
GENERATEKEYNO = "SMI" & strSex & "/" & Right(Date, 2) & "/" & NewVal
Else
GENERATEKEYNO = "SMI" & strSex & "/" & Right(Date, 2) & "/" & "201"
End If

'Response.Write(Ln & "<br>")
'Response.Write(lDocNo & "<br>")
'Response.Write(NewVal & "<br>")
'Response.Write(GENERATEKEYNO & "<br>")

dob = Request.Form("DOB")
'temp1 = Request.Form("hh")
'temp2 = Request.Form("mm")
'temp3 = Request.Form("ss")

temp1 = temp1 & ":" & temp2 & ":" & temp3

age = DateDiff("yyyy", dob, date())
'time4 = FormatDateTime(temp1, 3)

SQl = "INSERT INTO PARTY (Code,Name,Sex,MStatus,DOB,Time,Age,BCountry,BState, " & _
"BDistrict,Religion,Caste,SubCaste,NCountry,NState,NDistrict, PAddress, CAddress,ResidingAt, OwnHouse," & _
"PhoneNumbers, DOR, Email,SContact,Height,Weight,Complexion,Qualification,Description,Employment," & _
"CompanyName,Designation,WorkingPlace,Salary,FatherName,FatherOccupation,MotherName,MotherOccupation," & _
"BroSis,OtherDetails,Remarks,Requirements, RegFeePaid )" & _
"VALUES('" & GENERATEKEYNO & "','" & SecurityEncode(Request.Form("Name")) & "','" & _
SecurityEncode(Request.Form("Sex")) & "','" & SecurityEncode(Request.Form("MStatus")) & "','" & _
SecurityEncode(Cdate(Request.Form("DOB"))) & "','" & "','" & _
age & "','" & SecurityEncode(Request.Form("BCountry")) & "','" & _
SecurityEncode(Request.Form("BState")) & "','" & SecurityEncode(Request.Form("BDistrict")) & "','" & _
SecurityEncode(Request.Form("Religion")) & "','" & SecurityEncode(Request.Form("Caste")) & "','" & _
SecurityEncode(Request.Form("SubCaste")) & "','" & SecurityEncode(Request.Form("NCountry")) & "','" & _
SecurityEncode(Request.Form("NState")) & "','" & SecurityEncode(Request.Form("NDistrict")) & "','" & _
SecurityEncode(Request.Form("PAddress")) & "','" & SecurityEncode(Request.Form("CAddress")) & "','" & _
SecurityEncode(Request.Form("ResidingAt")) & "','" & SecurityEncode(Request.Form("OwnHouse")) & "','" & _
SecurityEncode(Request.Form("PhoneNumbers")) & "','" & Date() & "','" & SecurityEncode(Request.Form("EmailAddress")) & "','" & _
SecurityEncode(Request.Form("SContact")) & "','" & SecurityEncode(Request.Form("Height")) & "','" & _
SecurityEncode(Request.Form("Weight")) & "','" & SecurityEncode(Request.Form("Complexion")) & "','" & _
SecurityEncode(Request.Form("Qualification")) & "','" & SecurityEncode(Request.Form("Description")) & "','" & _
SecurityEncode(Request.Form("Employment")) & "','" & SecurityEncode(Request.Form("CompanyName")) & "','" & _
SecurityEncode(Request.Form("Designation")) & "','" & SecurityEncode(Request.Form("WorkingPlace")) & "','" & _
SecurityEncode(Request.Form("Salary")) & "','" & SecurityEncode(Request.Form("FatherName")) & "','" & _
SecurityEncode(Request.Form("FatherOccupation")) & "','" & SecurityEncode(Request.Form("MotherName")) & "','" & _
SecurityEncode(Request.Form("MotherOccupation")) & "','" & SecurityEncode(Request.Form("BroSis")) & "','" & _
SecurityEncode(Request.Form("OtherDetails")) & "','" & SecurityEncode(Request.Form("Remarks")) & "','" & _
SecurityEncode(Request.Form("Requirements")) & "','N')"

'Response.Write(sql)
'Response.End
objConn.Execute sql

and the result i'm getting is an error message which is given below

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Cannot insert the value NULL into column 'UnqId', table 'swayamvaramhyd.swayamvaramhyd.Party'; column does not allow nulls. INSERT fails.

/confirm.asp, line 98

please help me what could be wrong

[mrMister]

The UnqId column has to have data entered in to it. Either insert a unique ID each time in your ASP code or preferably change the UnqId column to an Identity column (using Enterprise Manger is the easiest way)