<%@ Language=VBScript %>

Homepage Movie list Search Join Option 5 Option 6 Option 7 Name Email Address ID number Phone <% dim conn, sql, rs set conn=Server.CreateObject("ADODB.connection") conn.open "dsn=movies" set rs=Server.CreateObject("ADODB.recordset") sql="select * from categories order by category_id" rs.Open sql, conn Response.Write "" & "Category" & "" while not rs.EOF ' Response.Write "" & rs("category") & "" rs.MoveNext wend rs.Close %> Category Comuters Bank Commersion Other Profession