Insert Error

[DNKMCA]

Hi

Im using ASP to insert value into SQL Server

Code
-----

Set CON = Server.CreateObject("ADODB.Connection")
CON.open sqlConString
Set adRS = Server.CreateObject("ADODB.Recordset")
adRS.LockType = 3
adRS.CursorType = 3
adRS.CursorLocation = 3
adRS.Open "select * from PANTHER_USERS where 1<>1",con
adRS.AddNew
adRS(0) = uid
adRS(1) = convert(varbinary(50),upa) 'Password
adRS(2) = convert(datetime," & now() & ",105) 'Create Date
adRS(3) = "Active" 'Status
adRS.Update
Set adRS = Nothing
Set Con = Nothing
end if
end sub

Gives "ERROR". Any help is appreciated.

Thanks
-DNK