String compare not working?

Any ideas why this won't work. It runs fine without the strcomp if then condition. Thanks.

<%
cn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("nature.mdb")
set rstitle = server.createobject("ADODB.Recordset")
sql = "nature1query"
rstitle.Open sql, cn
Response.Write("<title>Car Site - ")
titlenumber=0
num1=1
num2=20
while not rstitle.eof
titlenumber=titlenumber+1

do while titlenumber >= num1 And titlenumber <= num2

string1 = strcomp(rs("custom1"),"Auto",vbtextcompare)
If string1 = 0 Then
Response.Write (rstitle("name") & " ")
end if

titlenumber=titlenumber+1
rstitle.movenext
loop
rstitle.movenext
wend

Response.Write("</title>" & vbCr)
rstitle.Close
Set rstitle = Nothing
%>

this is ASP question (vbscript not VB) so post it in the ASP forum... you'll get more answers that way as less ppl view this forum.

OK, will try the ASP Forum. Thanks.