<% dim OBJdbConn, SQLretrieve, SQLresult,sqlCount,OBJcount,SQLdelete Set OBJdbConn = Server.CreateObject("ADODB.Connection") OBJdbConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("db/oscars.mdb") & ";" OBJdbConn.Open 'SQLretrieve = "SELECT * FROM oscarcontest where fname ='Steven' and lname= 'Koehler' and actor='Russell Crowe' and picture='Gladiator' and director='Steven Soderberg for Traffic' and actress='Julia Roberts' and supactor='Benicio Del Toro'" SQLretrieve = "SELECT * FROM oscarcontest" Set SQLresult= OBJdbConn.Execute(SQLretrieve) 'delete all the blank records 'SQLdelete= "DELETE oscarcontest where fname=''" 'OBJdbConn.execute(SQLdelete) 'count all the records set OBJcount=Server.CreateObject("ADODB.Recordset") OBJcount.open SQLretrieve, OBJdbConn, 3 sqlCount= OBJcount.recordcount %> Total Records: <%= sqlCount %>

---

<% do while not SQLresult.eof if bgcolor="FFFFFF" then bgcolor="CCCCCC" else bgcolor="FFFFFF" end if %> <% SQLresult.movenext loop %>

Actor	Actress	Sup Actor	Sup Actress	Director	Picture	Tie	Name	Address	City, State	E-mail
<%= SQLresult("actor") %>	<%= SQLresult("actress") %>	<%= SQLresult("supactor") %>	<%= SQLresult("supactress") %>	<%= SQLresult("director") %>	<%= SQLresult("picture") %>	<%= SQLresult("tie") %>	<%= SQLresult("fname") %>  <%= SQLresult("lname") %>	<%= SQLresult("street") %>	<%= SQLresult("city") %>, <%= SQLresult("state") %>	<%= SQLresult("email") %>

<%OBJdbConn.close %>