<%
Set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.open "aodesigns", "sa", "m6power"
set itemsfound = Server.createObject("ADODB.Recordset")
sql3="SELECT * FROM products"
itemsfound.Open sql3, connObj, 3, 3
firstrec=itemsfound.fields("id")
itemsfound.movelast
lastrec=itemsfound.fields("id")
itemsfound.movefirst
do while not itemsfound.fields("partnum") = request.querystring("partnum")
itemsfound.movenext
loop
if request.querystring("direction") = "prev" and int(itemsfound.fields("id")) <> int(firstrec) then itemsfound.move -1
if request.querystring("direction") = "next" and int(itemsfound.fields("id")) <> int(lastrec) then itemsfound.move 1
%>
