<%
dim strProvider
dim rstCat
strProvider="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("U_load.mdb")
Set rstCat = Server.CreateObject("ADODB.recordset")
rstCat.Open "Select * From Categories", strProvider, adOpenStatic, adLockReadOnly
Response.Write "
All parts"
rstCat.movefirst
do while not rstCat.eof
Response.Write "
"& rstCat.Fields("Category") & ""
rstCat.MoveNext
loop
%>
