recordset.addnew giving me error

[JohannIcon]

I have the following code:-

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & Server.MapPath("../pnwebsite.mdb&quot & ";" & _
"Persist Security Info=False"

Set cnn=Server.CreateObject("ADODB.Connection&quot
cnn.Open strConn

set rsTable = Server.CreateObject("ADODB.Recordset&quot
sqlquery = "SELECT * FROM Users WHERE (Name = " & PerName & &quot and (Surname = " & PerSurname & &quot and (Email = " & PerEmail & &quot"
rsTable.open sqlquery, cnn, adOpenStatic, adLockOptimistic, adCmdText

if rsTable.EOF then
''Add a new record
rsTable.addnew
rsTable("Name&quot = PerName
rsTable("Surname&quot = PerSurname
rsTable("Email&quot = PerEmail
rsTable("LastPollVoted&quot = PerPoll
rsTable("DateRegistered&quot = PerDateReg
rsTable("Password&quot = PerPassword

rsTable.update
rsTable.close
cnn.close
end if

but the browser is giving me the following error:-

ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

What is the problem?

Thanks for your help!

 

[FesterSXS]

try putting single quotes around your strings in the SQL query:

sqlquery = "SELECT * FROM Users WHERE (Name = '" & PerName & "') and (Surname = '" & PerSurname & "') and (Email = '" & PerEmail & "')"

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[JohannIcon]

Hey thanks for your reply.

I already did that in the opening of the script:-

PerName = "'" & request.Form("issem&quot & "'"
PerSurname = "'" & request.Form("kunjom&quot & "'"
PerEmail = "'" & request.Form("email&quot & "'"
PerPassword = "'" & "12345" & "'"
PerPoll = 0
PerDateReg = Date()

 

[FesterSXS]

are you declaring msado15.dll for your ADO constants: adOpenStatic, adLockOptimistic & adCmdText Tony

http://www.phoenix-paints.co.uk/portfolio

 

[JohannIcon]

Hi FesterSXS,

I took another road, I used the rs.addnew and it worked fine. Thanks for your help