<% set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("films.mdb") & ";Persist Security Info = False" set objCommand = Server.CreateObject("ADODB.Command") strSQL = "SELECT * FROM movies, director WHERE movies.directorid = director.directorid" objCommand.ActiveConnection = objConn objCommand.CommandText = strSQL objCommand.CommandType = adCmdText set objRS = objCommand.Execute while not objRS.EOF Response.Write objRS("Title") & " " & objRS("Name") & "
" objRS.MoveNext Wend %>