A simple code comparing querystring to recordset value

[begoddendave]

Hi

I am desperate for some help. I have a very simple piece of code that doesn't work.

I request a number from the query string
I request a number from a database (MS Access)

If one is bigger, display true, else, display false!!

Then, go to the next item and do the same until EOF/BOF

So, my code looks like

While ((RepeatAdvancedSearchResults__numRows <> 0) AND (NOT rsAdvancedSearchResults.EOF)) 
 
 
if (rsAdvancedSearchResults.Fields.Item("MinContacts").Value) >= request.QueryString("contacts") then
response.write("It worked")
else
response.write("It did NOT work")
end if
%>
 
SHOW INFORMATION
 
<% 
  RepeatAdvancedSearchResults__index=RepeatAdvancedSearchResults__index+1
  RepeatAdvancedSearchResults__numRows=RepeatAdvancedSearchResults__numRows-1
  rsAdvancedSearchResults.MoveNext()
Wend
%>

The page loads as it should do, but it doesn't do the maths. Either every product is true, or every product is false.

I have tried converting the numbers into variables. Do I need to tell the computer the variable is an int??


Please help

Thanks

Dave

[begoddendave]

The answer (I would normally remove the link/post, but I don't know how to, so instead of leaving it, I thought I would answer it)

Define the conditions with the SQL. So, I wrote

rsAdvancedSearchResults.Source = "SELECT * FROM GradParts where ((MinContacts <= " + replace (var_Contacts,"'","''") + ") and (MaxContacts >= " + replace (var_Contacts,"'","''") + "))

At first, it still wouldn't work.During the replace code, it is normally started with '" (please note the single quotation mark) which make it a string. Removing it made it an int!! (I think)

Dave

[jhardman]

At first, it still wouldn't work.During the replace code, it is normally started with '" (please note the single quotation mark) which make it a string. Removing it made it an int!! (I think)

Yes, that is how you show the difference tin SQL. unfortunately, VBScript doesn't work so well, and it is always assumed that anything sent via querystring is a string. Your first code could be adapted like this:

dim myNum
myNum = cint(request.querystring("contacts"))
if (rsAdvancedSearchResults.Fields.Item("MinContacts").Value) >= myNum then

the cint() function converts a string to an integer, then this value can be used for the comparison.

Jared