<% Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\\192.168.20.9\inetpub\dbs\videos.mdb","","" %> <% sql = "SELECT * FROM [tMovies]" sql = sql & " WHERE BoolIn=Yes " sql= sql & " ORDER BY txtName, txtDirector" 'response.write sql Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 1 rs.movelast rs.movefirst %>

Mather House Video Collection

<% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

Title	Director
<%=Server.HTMLEncode(rs.Fields("txtName").Value)%>	<%=Server.HTMLEncode(rs.Fields("txtDirector").Value)%>

---

This file is automatically generated.
<% rs.close set rs=nothing db.close set db=nothing %>