my cursor doesnt move forward. my code is below.plz help....



<%

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

rsProd.ActiveConnection = MM_phones2_STRING

rsProd.Source = "SELECT * FROM prod"

rsProd.CursorType = 0

rsProd.CursorLocation = 2

rsProd.LockType = 3

rsProd.Open()

rsProd_numRows = 0

%>



<% dim itemcode1,upsella,upsellb,upsellc,upselld,upsell		

	itemcode1=request.querystring("prodcode") %>

<% 			

rsprod.movefirst

do  while not rsProd.eof

if Ucase((rsProd.Fields.Item("itemcode").value))=UCASE(request.querystring

("prodcode")) then

response.write "prod found"

end if

rsProd.movenext

LOOP

%>