<% ' -- Create Connection For States Table query and Open object Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("/databases/property.mdb") & ";" ' objConn.Open "DSN=ucbiddata", "", "" ' -- Create SQL Query strSQL = "SELECT States.* FROM States" set objRS = objConn.Execute (strSQL) objRS.MoveFirst Response.Write "" Do While Not objRS.EOF If objRS("Active") = "Y" Then If firstSelect = True Then Response.Write "" & objRS("Name") & "" Else Response.Write "" & objRS("Name") & "" firstSelect = True End If End If objRS.MoveNext Loop Response.Write "" '-- close RS and conn, release mem objRS.Close set objRS = Nothing objConn.Close set objConn = Nothing %>