If... statement bringing vauge error ('80020009')

[Gazthrak]

I am trying to search through a mSQL database for duplicate email addresses. My logic is that if the email being entered is returned in the search, then it is a dupe and will go return an error. If not, then it enters the information. The error is with this line:


If Lux_Email("Email") <> "" then


The error that comes up is, with no other indication as to what the error is:

error '80020009'

Here is the whole process:


Set Lux_Email = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT EmailAddress AS Email"
SQL = SQL & " FROM Lux_Sweep"
SQL = SQL & " WHERE EmailAddress = '" & email & "'"
Lux_Email.Open SQL, sConn

If Lux_Email("Email") <> "" then
Set Lux_Email = nothing
Response.redirect("entry.asp?entered=dupe")

Else
Set lux_sweep=server.createObject("ADODB.Recordset")
SQL = "INSERT INTO Lux_Sweep (FName,LName,Address1,Address2,City,State,EmailAddress,Optin,Referer,EntryDate,HasWon,DateWon)"
SQL = SQL & "VALUES ("
SQL = SQL & " '" & fname & "',"
SQL = SQL & " '" & lname & "',"
SQL = SQL & " '" & address1 & "',"
SQL = SQL & " '" & address2 & "',"
SQL = SQL & " '" & city & "',"
SQL = SQL & " '" & state & "',"
SQL = SQL & " '" & email & "',"
SQL = SQL & " '" & optin & "',"
SQL = SQL & " '" & referer & "',"
SQL = SQL & " '" & today & "',"
SQL = SQL & " 'NO',"
SQL = SQL & " '')"
lux_sweep.Open SQL, sConn
Set lux_sweep = nothing

Response.redirect("entry.asp?entered=yes")
End If


I thank you all in advance for any help you can give on the subject.

[ahk2chan]

I think you should try doing:

If Not Lux_Email.EOF Then
...

If it is not EOF, that means you have something in the RecordSet, also means that you have at least 1 entry that has the same email address.