dati nel db

[mi81973]

ho un problema ,ho una casela di testo che inserisco il codice utente e mi deve visualizzare tutti i dati relativi ad esso.se richiamo il codice utente prmo della lista mi da anche gli altri utenti,mentre se richiamo l'ultimo mi da solo quelli.
ecco il codice:
<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<!--#include file="adovbs.inc"-->
<%dim objconn
set objconn=server.CreateObject("adodb.connection")
objconn.open="provider=Microsoft.Jet.Oledb.4.0; data source="&server.MapPath("mdb-database/ottica.mdb")
dim objrs, bolfound, strutente
strutente = request.Form("COD_UTENTE")
if strutente="" then
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
set objrs = server.CreateObject("adodb.recordset")
objrs.open "ORDINE" , objconn, ,adlockoptimistic, adcmdtable
bolfound = false
do while not (objrs.eof or bolfound)
if (strcomp(objrs("COD_UTENTE"), strutente,vbtextcompare) = 0) then
bolfound = true
else
objrs.movenext
end if
loop
if not bolfound then
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
response.Redirect("attenzione_ottica.asp")
response.end
end if
%>
li visualizzo in una tabella :
<%
do while not objrs.eof%>
<td><div align="center"><font face="arial" size="3" color="#FFFFFF"><b>
<%response.Write objrs("COD_UTENTE")%>insieme con gli altri campi e chiudo con
<%objrs.movenext
loop
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>.mi aiutate?