<% DIM db_link DIM db_comments DIM db_link2 DIM db_comments2 connstr = "dsn=aptnt3;uid=aptpages;pwd=goatboy" SET conn2 = Server.CreateObject("adodb.connection") conn2.Open(connstr) SQL5 = "SELECT * FROM documentcenter WHERE AID=" & AID & " AND category='Resident Handbook' ORDER BY weight" SET rs5 = conn2.Execute(SQL5) IF NOT rs5.EOF THEN db_link = "http://documents.ellipseinc.com/images/greystar/" & rs5("path") & """ target=""_blank" db_comments = rs5("description") ELSE db_link = "javascript:;" db_comments = "" END IF SQL5 = "SELECT * FROM documentcenter WHERE AID=" & AID & " AND category='Resident Survey' ORDER BY weight" SET rs5 = conn2.Execute(SQL5) IF NOT rs5.EOF THEN db_link2 = "http://documents.ellipseinc.com/images/greystar/" & rs5("path") & """ target=""_blank" db_comments2 = rs5("description") ELSE db_link2 = "javascript:;" db_comments2 = "" END IF rs5.Close conn2.Close SET conn2 = NOTHING %>