Comparing Numeric Values

I have a desire to be able to find out if a certain number (AreaID) exists in a database or not. If the areaID exists in the database, I don't want any updates to the database. Please look at the bolded line below. Both Area and rsCity("Area") are numbers. I know how to do this with letters, but I am not sure how to do with numbers. With letters, you would do something like: If Lcase(City) = Lcase(rs2("City")) Then

Here's some of the code:
'Initalize Error
Error = False
'Loop through all the records in the recordset to check that the areaID is not already in the database
Do While NOT rsCity.EOF
'Check to see if the database already has this area
If Area = rsCity("AreaID") Then
Error = True %>

PS:  An explanation of cLng()

cLng() converts the passed value into a long integer.  You also have cInt() which convers the passed value into an integer.  If either of the two things you are comparing are not numerical, but string, then you can't compare them until they are both integers.

Misty wrote: Error = False Do While NOT rsCity.EOF If Area = rsCity("AreaID") Then Error = True %>

Just spotted something that is unrelated to your query, but that can be improved. I don't know the rest of the code, but I'm assuming you are going through the recordset to determine if AreaID exists or not, and if it does Error becomes true, why not exiting the Do ... Loop you are in by using a Exit Do? If you don't, the recordset will continue to be probed even thou your condition has been met, wasting cycles and all.

Error = False Do While NOT rsCity.EOF If Area = rsCity("AreaID") Then Error = True Exit Do %>

Just a point.

I cannot get the query to work. I am getting the following error message:

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Can someone please help me to figure out what is wrong? The querystring is right. I suspect that it might have to do something with the comparison of the integers.

Let me show more code:

  'Create a recordset

      set rsCity = Server.CreateObject("ADODB.Recordset")

      rsCity.Open sql, connectionString, adOpenDynamic, adLockOptimistic

     

    'Initalize Error

    Error = False

   

    'Loop through all the records in the recordset to check that the user id and the e-mail address are not already in the database

                         Do While NOT rsCity.EOF

   

    'Check to see if the database already has this city

    If cLng(Area) = cLng(rsCity("AreaID")) then

   

 

   

    Error = True

   

    

    %>

 

<%

 

 

Exit Do

End If                  

 

'Move to the next recordset

rsCity.MoveNext

Loop

 

 

If Error = False then 

 

      

      rsCity("AreaID") = Area (this is the line that the error message is on)

 

     

      rsCity.update